Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1776to1780
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Desktopsymbole ändern

Desktopsymbole ändern
27.08.2020 12:06:47
Manfred
Hallo zusammen,
ich habe folgendes Problem und vielleicht könnt ihr mir weiterhelfen. Vorweg, ich habe schon im WWW gesucht und nichts ähnliches gefunden.
Ich muss monatlich Kontrollarbeiten durchführen und dokumentiere dies mit Excel-VBA.
Nun möchte ich das Desktop-Symbol dieser Excelverknüpfung nach Durchführung der Kontrolle durch mein Excelprogramm ändern und am Anfang des Monats über den Scheduler wieder auf das Ursprungssymbol setzen. Man könnte dann anhand des Symbols erkennen, ob die Arbeit schon gemacht wurde oder nicht.
Ähnlich wie der Mülleimer bei Windows auch zwei unterschiedliche Symbole hat, je nachdem ob der Mülleimer voll oder leer ist.
Es geht also nur um das ändern des Symbols. Alles andere steht schon.
Vielen Dank schon im Vorraus
Manfred

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Desktopsymbole ändern
27.08.2020 13:45:25
Nepumuk
Hallo Manfred,
teste mal:
Option Explicit

Public Sub CreateLNK()
    Dim objWSHShell As Object, objShortcut As Object
    Set objWSHShell = CreateObject("WScript.Shell")
    With objWSHShell
        Set objShortcut = .CreateShortcut(.SpecialFolders("Desktop") & "\Test.lnk")
    End With
    With objShortcut
        .TargetPath = ThisWorkbook.FullName
        .WorkingDirectory = ThisWorkbook.Path
        .Hotkey = "CTRL+SHIFT+F"
        .WindowStyle = vbMaximizedFocus
        .IconLocation = Application.Path & "\Excel.exe, 21"
        .Save
    End With
    Set objShortcut = Nothing
    Set objWSHShell = Nothing
End Sub

Gruß
Nepumuk
Anzeige
AW: Desktopsymbole ändern
27.08.2020 15:15:51
Manfred
WOW,
habe gleich einen kurzen Test gemacht. Was soll ich sagen, ich bin begeistert.
Vielen, lieben Dank

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige