Desktopsymbole ändern

Forumthread: Desktopsymbole ändern
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Desktopsymbole ändern

27.08.2020 14: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

AW: Desktopsymbole ändern

27.08.2020 15:45:25

Nepumuk
AW: Desktopsymbole ändern

27.08.2020 17:15:51

Manfred

AW: Desktopsymbole ändern

27.08.2020 15: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

AW: Desktopsymbole ändern

27.08.2020 17:15:51

Manfred

WOW,
habe gleich einen kurzen Test gemacht. Was soll ich sagen, ich bin begeistert.
Vielen, lieben Dank