title image


Smiley Re: Desktop-Verknüpfung per Makro
Hallo



Du musst im VBA-Editor einen Verweise auf die Windows Scripting Host Object Library machen (Extras - Verweise...) un dann einen COde wie den folgenden ablaufen lassen:



Quelle: Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln



Bye



Sub ShortcutDemo()

Dim WSHShell As Object

Dim MyShortcut As Object

Dim DesktopPath As String

Set WSHShell = CreateObject("WScript.Shell")

' Read desktop path using WshSpecialFolders object

DesktopPath = WSHShell.SpecialFolders("Desktop")

' Create a shortcut object on the desktop

Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\" & ActiveDocument.Name & ".lnk")

' Set shortcut object properties and save it

With MyShortcut

.TargetPath = ActiveDocument.FullName

.Save

End With

Set WSHShell = Nothing

End Sub



Häufig gestelllte Fragen zu MS Word und Word-VBA
Index Inhalt



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: