Desktopverknüpfung...bin ratlos
24.01.2008 15:37:17
Olli
ich stehe vor einem großen Rätsel und kann es mir nicht erklären.
Ich erstelle über ein VBA in Excel eine Desktopverknüpfung zu einer PowerPoint-Datei.
VBA-Code:
Dim wsh As New IWshShell_Class
Dim SC As IWshShortcut_Class
Dim sPath As String, sFile As String
sPath = wsh.SpecialFolders.Item("Desktop")
' Hier der Name der Datei, zu der eine Verknüpfung erstellt werden soll
sFile = strOrdner & "\wer wird unser Azubi.pps"
' Hier der Name der Verknüpfung, wie er auf dem Desktop erscheinen soll
Set SC = wsh.CreateShortcut(sPath & "\Wer wírd Azubi.lnk")
SC.TargetPath = sFile
' Hier das selbst erstellte Icon
SC.IconLocation = strOrdner & "\wwm.ico"
SC.Save
Soweit kein Problem. Aber...wird nun die PowerPoint - Datei über diese Verknüpfung aufgerufen funktionieren die dortigen Makros nicht mehr einwandfrei.
Starte ich die PowerPoint-Datei selber funktioniert alles. Erstelle ich manuell eine Verknüpfung auf den Desktop funktioniert auch alles. Nur die Verknüpfung, die ich mittels VBA erstellt habe, da laufen die Makros in der ppt. nicht mehr.
Kann sich das wer erklären? Ich steh jetzt echt auf dem Schlauch ?
Gruß
Olli