Create shortcut using VBA

[Davers]

Hi everyone. Long time no post...is it possible to create a shortcut to a workbook on my desktop using VBA?

Thanks for any help!

Dave

 

[Ali Kırksekiz]

Hi Dave;

http://cpap.com.br/orlando/CreateShortCutMore.asp?IdC=OrlMoreWin

 

[Davers]

Thanks for the link fructose...I can't use an add-in however for this workbook...it is a handy one so I downloaded it anyway!

I think I'm just going to use the following:

Sub Create_ShortCut()
        
' needs reference to Windows Script Host Object Model
Dim sc_Path As String
Dim WSHShell As IWshShell
Dim MyShortcut As IWshShortcut_Class

sc_Path = "C:\"
Set WSHShell = New IWshShell_Class
Set MyShortcut = WSHShell.CreateShortcut(sc_Path & "\" & ActiveWorkbook.Name & ".lnk")

With MyShortcut
    .TargetPath = ActiveWorkbook.FullName
    .Save
End With

Set WSHShell = Nothing
    
End Sub

Even though I'll need to set the reference to the Windows Script Host Object Model...

Thanks and have a good day,

Dave

 

[Norie]

Dave

You could probably avoid needing to create the reference by using late binding.

You would need to adjust the code to do that, I'm not exactly sure how but I'll see if I can find out and post back.

Something like this perhaps.

Sub Create_ShortCut()
       
' needs reference to Windows Script Host Object Model
Dim sc_Path As String
Dim WSHShell As Object
Dim MyShortcut As Object

sc_Path = "C:"
Set WSHShell = CreateObject("WScript.Shell")

Set MyShortcut = WSHShell.CreateShortcut(sc_Path & "\" & ActiveWorkbook.Name & ".lnk")

With MyShortcut
    .TargetPath = ActiveWorkbook.FullName
    .Save
End With

Set WSHShell = Nothing
   
End Sub

 

[Davers]

Actually Norie, it worked fine. Thank you very much....

Dave

 

[erik.van.geit]

Hi,

a bit more info can be found here
http://www.mrexcel.com/board2/viewtopic.php?p=640163
kind regards,
Erik