Add item to Start Menu

[Guest]

Is there a way to add an item to the Start Menu in a similar way as adding a
shortcut to the Desktop?

 

[Dave Miller]

Is this Excel related?

 

[Guest]

Yes, I would like to do this via Excel vba code.

 

[Guest]

There is no difference between adding a shortcut to the desk top and adding a
shortcut to the start menu. The only difference if the directory you add the
shortcut in the user's document and settings directory. aq user will have
both a desktop directory and a start directory. Put the shortcut in the
proper location.

 

[Dave Peterson]

There is a startmenu for both the current user and All Users.

Ron de Bruin has some sample code to find that folder:
http://www.rondebruin.nl/folder.htm#SpecialFolders

And here's an old post that shows how to add a shortcut to the desktop.

Option Explicit
Sub CreateShortCut()

Dim oWSH As Object
Dim oShortcut As Object
Dim sPathDeskTop As String
Dim testStr As String
Dim myNewName As String

Set oWSH = CreateObject("WScript.Shell")
sPathDeskTop = oWSH.SpecialFolders("Desktop")

myNewName = "Something else goes here" '<-- change this line

testStr = ""
On Error Resume Next
testStr = Dir(sPathDeskTop & "\" & myNewName & ".lnk")
On Error GoTo 0
If testStr = "" Then
'------------------ If shortcut not found create
Set oShortcut = oWSH.CreateShortCut(sPathDeskTop & "\" & _
myNewName & ".lnk")
With oShortcut
.Description = "Creditors" & vbCrLf & _
"Reconciliation"
.TargetPath = ActiveWorkbook.FullName
.IconLocation = "\\nv09002\tpdrive\TM-Recon\macro\scale.ico"
.Save
End With
Set oWSH = Nothing
'-Msg to tell user about the folders & shortcut
Application.StatusBar = False
MsgBox "The desktop shortcut has been installed"
Else
MsgBox "The desktop shortcut is already installed"
End If

End Sub


Maybe you can combine the two and end up with what you want.