creating toolbars

ozPATT · October 18th, 2005, 03:34 AM

hi,

I would like to create a toolbar with various buttons on it when the project is opened. i keep getting an invalid procedure call or argument error. My code for the toolbars is :

Code:

Public Function setToolbars()
    'add toolbar
    CommandBars.Add(Name:="ImpactAnalysis", Temporary:=True).Visible = True
    'add buttons
    CommandBars("ImpactAnalysis").Controls.Add Type:=msoControlButton, ID:=40001, Before:=1, Parameter:="Macro ""DII(F) Migration Schedule v0_2.mpp!submitChanges"""
End Function

then on open, I call this function. can anyone see what I am doing wrong here?

thanks

Patrick

Visit my site: http://www.drybonesuk.com

maxpotters · October 23rd, 2005, 02:52 AM

Hi,

I would split up the first line:

CommandBars.Add(Name:="ImpactAnalysis", Temporary:=True)
CommandBars("ImpactAnalysis").Visible = True

-Max