Prüfe ob Desktopverknüpfung vorhanden........
13.12.2008 17:44:00
Sonnenpeter
den nachfolgenden Makrocode habe ich aus der Recherche. Funktioniert einwandfrei.
Sub VerkuepfungAnlegen()
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 & "\" & "Stillstands- und Schadensmeldungen.lnk")
'Set oSh = wSh.CreateShortcut(sDesktop & "\" & wbA.Name & ".lnk")
With oSh
.targetpath = wbA.FullName
.Save
End With
Set wSh = Nothing
MsgBox "Desktop-Verknüpfung wurde erstellt", vbExclamation, "Desktop-Verknüpfung"
End Sub
Wie stelle ich es an, dass zunächst geprüft wird ob die Verknüpfung schon vorhanden ist?
Gibt es die Möglichkeit ein vorher ausgewähltes Ikon anstatt der sonst standardisierten Excel- Icons zu hinterlegen?
Gruß Sonnenpeter