Desktop Shortcut

[Michael Rekas]

Hi there

Is it possible to use VBA to generate desktop shortcut to a workbook?

Thanks

Michael

 

[AA2e72E]

If you have Scripting enabled, refer to

http://www.rb-ad.dircon.co.uk/rob/excelvba/develop/index.ht

Otherwise, if you have the appropriate DLLs, refer to

http://support.microsoft.com/defaul...port/kb/articles/Q155/3/03.asp&NoWebContent=1

 

[Melanie Breden]

Hi Michael,

Is it possible to use VBA to generate desktop shortcut to a workbook?

set a reference on "Windows Scripting Host Object Model"-library

Sub DesktopShortcut()
Dim WSHShell As IWshShell
Set WSHShell = New IWshShell_Class

With WSHShell.CreateShortcut( _
WSHShell.SpecialFolders("Desktop") & "\" & ActiveWorkbook.Name & ".lnk")
.TargetPath = ActiveWorkbook.FullName
.Save
End With
End Sub

--
Mit freundlichen Grüssen

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)

 

[Michael Rekas]

Thank you for the replies. I like the "Windows Scripting Host Object
Model" code.

However is it possible to automatically set the reference to the
library?

Michael

 

[Melanie Breden]

Hallo Michael,

Thank you for the replies. I like the "Windows Scripting Host Object
Model" code.

However is it possible to automatically set the reference to the
library?

with the following defining no reference must be set:

Dim WSHShell As Object
Set WSHShell = CreateObject("WScript.Shell")

--
Mit freundlichen Grüssen

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)

 

[Michael Rekas]

Hello Melanie

Excellent! Works perfectly.

Thanks

Michael