How do you create a custom desktop icon?

ChrisBEE1 · Mar 9th 2003

:question:

Hi All,

I have a custom application and I would like to create a custom desktop icon, as well as, replace the "Excel" icon to the left of the Microsoft Excel window caption. Is this possible and does anyone know how to accomplish this? If so, can you offer a code example?

Thanks,
Chris

XL-Dennis · Mar 9th 2003

..and here comes the shortcut solution:

Code

Option Explicit 


 Sub ShortCut_Workbook() 


   Dim oWSS As Object, oGenvag As Object 


   Dim stSkrivbordsSokvag As String 


    Set oWSS = CreateObject("WScript.Shell") 


    With oWSS 


      stSkrivbordsSokvag = .SpecialFolders("Desktop") 


      Set oGenvag = .CreateShortcut(stSkrivbordsSokvag & _ 


            "\" & ThisWorkbook.Name & ".lnk") 


   End With 


    With oGenvag 


      .TargetPath = ThisWorkbook.FullName 


      .IconLocation = ThisWorkbook.Path & "\Staroffice.ico" 


      .Save 


   End With 


    Set oWSS = Nothing 


End Sub

Display More

How do you create a custom desktop icon?

Participate now!

Share