Is there a way change the display icon of a shortcut on the desktop either
with vba or an api call?
--
When you lose your mind, you free your life.
Ever Notice how we use '' for comments in our posts even if they aren''t
expected to go into the code?

ben,

If the icon already exits, then the code replaces it.
So change the icon name/path and run the code.
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware

'-------------------------------
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 & "\macrofun.lnk")
With MyShortcut
.TargetPath = _
"C:\Documents and Settings\user\My Documents\Excel Files\Help Files\macrofun.hlp"
.IconLocation = "F:\Icons\Arrows\ARW03DN.ICO"
.WindowStyle = 1
.Save
End With

Set WSHShell = Nothing
Set MyShortcut = Nothing
MsgBox "A shortcut has been placed on your desktop. ", vbInformation, " Primitive Software"
End Sub
'-------------------------


"ben" (remove this if mailing direct)
wrote in message
Is there a way change the display icon of a shortcut on the desktop either
with vba or an api call?
--
When you lose your mind, you free your life.
Ever Notice how we use '' for comments in our posts even if they aren''t
expected to go into the code?