Desktopverknüpfung Name & Logo ändern
28.12.2005 08:24:39
R.Schmitt
hoffentlich seid ihr alle gut durch die Feiertage
gekommen und habt Weihnachtsgans und - plätzchen
genossen. Nun kurz zu meiner Frage :
Mit dem folgenden Makro erstelle ich einen Link auf
dem Desktop. Was ich noch gewährleisten will ist :
- Prüfen ob die Verknüpfung bereits besteht, denn
sie soll nur beim ersten Öffnen angelegt werden.
- Den Namen ändern in "Aktuelle Auftragsrunde"
- Das angezeigte Symbol vom .xls auf ein anderes
ändern (es gibt da ja einen ganzen Ordner voll
Alternativen - nur wo sind die denn ?)
Sub LnkAufDesktop()
Dim wbA As Workbook
Dim wSh As Object
Dim oSh As Object
Dim sDesktop As String
Set wbA = ActiveWorkbook
If wbA.Name = wbA.FullName Then
MsgBox wbA.Name & " muss erst gespeichert werden!"
Exit Sub
End If
Set wSh = CreateObject("WScript.Shell")
sDesktop = wSh.SpecialFolders("Desktop")
Set oSh = wSh.CreateShortcut(sDesktop & "\" & wbA.Name & ".lnk")
With oSh
.Targetpath = wbA.FullName
.Save
End With
Set wSh = Nothing
End Sub
Vielen Dank
R.Schmitt