Larry,
See macros below.
HTH,
Bernie
MS Excel MVP
Sub CreateDesktopShortcut()
Dim WSHShell As Object
Dim MyShortcut As Object
Dim DesktopPath As String
Set WSHShell = CreateObject("WScript.Shell")
DesktopPath = WSHShell.SpecialFolders("Desktop")
Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\" & _
ActiveWorkbook.Name & ".lnk")
With MyShortcut
.TargetPath = ActiveWorkbook.FullName
.Save
End With
Set WSHShell = Nothing
MsgBox "A shortcut has been placed on your desktop."
End Sub
Sub DeleteDesktopShortcut()
Dim WSHShell As Object
Dim MyShortcut As Object
Dim DesktopPath As String
Set WSHShell = CreateObject("WScript.Shell")
DesktopPath = WSHShell.SpecialFolders("Desktop")
On Error GoTo NotFound
Kill (DesktopPath & "\" & ActiveWorkbook.Name & ".lnk")
MsgBox "A shortcut has been removed from your desktop."
Set WSHShell = Nothing
Exit Sub
NotFound:
MsgBox "A shortcut to the active workbook was not found on your desktop."
Set WSHShell = Nothing
End Sub
"Larry" <(E-Mail Removed)> wrote in message
news:C2C35ED5-A64D-4EDA-81EE-(E-Mail Removed)...
> How do you remove that shortcut using VBA code? Thank you
> --
> Larry
>
>
> "XP" wrote:
>
>> VERY, VERY NICE !
>>
>> Thanks a lot Ron! - just what I needed.
>>
>> "Ron de Bruin" wrote:
>>
>> > Hi XP
>> >
>> > You can find code here to find the path of the desktop
>> > http://www.rondebruin.nl/folder.htm#SpecialFolders
>> >
>> >
>> > To create a shortcut to the activeworkbook try
>> >
>> > Sub Desktopshortcut()
>> > Dim WSHShell As Object
>> > Dim MyShortcut As Object
>> > Dim DesktopPath As String
>> > Set WSHShell = CreateObject("WScript.Shell")
>> > DesktopPath = WSHShell.SpecialFolders("Desktop")
>> > Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\" & _
>> > ActiveWorkbook.Name & ".lnk")
>> > With MyShortcut
>> > .TargetPath = ActiveWorkbook.FullName
>> > .Save
>> > End With
>> > Set WSHShell = Nothing
>> > MsgBox "A shortcut has been placed on your desktop."
>> > End Sub
>> >
>> >
>> >
>> >
>> >
>> >
>> > --
>> >
>> > Regards Ron de Bruin
>> > http://www.rondebruin.nl/tips.htm
>> >
>> >
>> > "XP" <(E-Mail Removed)> wrote in message
>> > news:92317E25-7403-4EF3-8681-(E-Mail Removed)...
>> > > Using Office 2003 and Windows XP.
>> > >
>> > > Is it possible to copy a file to a user's desktop folder and then add a
>> > > shortcut icon to the file to that user's desktop?
>> > >
>> > > If so, could someone please post example VBA code to do this? It would solve
>> > > my deployment issues for a program...
>> >
Similar Threads
