markh1182
05-30-2007, 09:16 AM
Hi, I have the following code that adds a new item to the File Menu Bar, but places it at the bottom. How do I get this to place it in the 8th position down the list?
With Application.CommandBars.ActiveMenuBar.Controls("File")
.Reset
Set CmdItem = .Controls.Add
CmdItem.Caption = "Import as New Version of Existing Document"
CmdItem.OnAction = "SaveAsNewVersionofiManageDoc"
End With
With Application.CommandBars.ActiveMenuBar.Controls("File")
.Reset
Set CmdItem = .Controls.Add
CmdItem.Caption = "Import as New Version of Existing Document"
CmdItem.OnAction = "SaveAsNewVersionofiManageDoc"
End With