Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Desktopsymbole ändern

Forumthread: 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
Anzeige

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
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige