Control desktop Icon

  • Thread starter Thread starter Snowfire
  • Start date Start date
S

Snowfire

I am using this code to create a launch icon on the desktop..

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 &
"\EngstoreSpecial.lnk")
With MyShortcut
.TargetPath = LocalPathExcelControlSpecial
.Save
End With
Set WSHShell = Nothing
End Sub

Is it possible to control the symbol so a pre-determined picture icon
can be used?
 
Yes you can do that, try this

With MyShortcut
.TargetPath = LocalPathExcelControlSpecial
.IconLocation = "%SystemRoot%\system32\SHELL32.dll, 22"
.Save
End With

Now finding out precisely which is which icon in Shell32.dll is something
you'll have to Google for but change the 22 to change to Icon

Mike
 
Back
Top