Home |
Search |
Today's Posts |
|
#1
![]() |
|||
|
|||
![]()
Hi
I get the error Run time error '-2147467259 (80004005) Method 'Add' of object 'commandBarControls' failed. why does this happen? basically i am trying to use that button image for a to run a macro. D With .Add(msoControlButton, 749) <---- this line causes the error. .Style = msoButtonIconAndCaption .Caption = "Create Individual Trainer Feedback Workbooks" .OnAction = "CreateCourseFeedbackDocuments" End With With .Add(msoControlButton, 463) .Style = msoButtonIconAndCaption .Caption = "About" .OnAction = "About" End With End With |
#2
![]() |
|||
|
|||
![]()
Sub EFG()
With Application.CommandBars( _ "Menu1") With .Controls.Add(msoControlButton) .Style = msoButtonIconAndCaption .FaceId = 749 .Caption = "Create Individual Trainer Feedback Workbooks" .OnAction = "CreateCourseFeedbackDocuments" End With With .Controls.Add(msoControlButton) .Style = msoButtonIconAndCaption .FaceId = 463 .Caption = "About" .OnAction = "About" End With End With End Sub Sub CreateCourseFeedbackDocuments() MsgBox "In CreateCourseFeedbackDocuments" End Sub Sub About() MsgBox "In About" End Sub Change Menu1 to your commandbar. If you want it on the main menu, use "Worksheet Menu Bar" -- Regards, Tom Ogilvy "DMc2005" wrote in message ... Hi I get the error Run time error '-2147467259 (80004005) Method 'Add' of object 'commandBarControls' failed. why does this happen? basically i am trying to use that button image for a to run a macro. D With .Add(msoControlButton, 749) <---- this line causes the error. .Style = msoButtonIconAndCaption .Caption = "Create Individual Trainer Feedback Workbooks" .OnAction = "CreateCourseFeedbackDocuments" End With With .Add(msoControlButton, 463) .Style = msoButtonIconAndCaption .Caption = "About" .OnAction = "About" End With End With |
#3
![]() |
|||
|
|||
![]()
thanks. why did it generate an error when it was on the same line?
D "Tom Ogilvy" wrote in message ... Sub EFG() With Application.CommandBars( _ "Menu1") With .Controls.Add(msoControlButton) .Style = msoButtonIconAndCaption .FaceId = 749 .Caption = "Create Individual Trainer Feedback Workbooks" .OnAction = "CreateCourseFeedbackDocuments" End With With .Controls.Add(msoControlButton) .Style = msoButtonIconAndCaption .FaceId = 463 .Caption = "About" .OnAction = "About" End With End With End Sub Sub CreateCourseFeedbackDocuments() MsgBox "In CreateCourseFeedbackDocuments" End Sub Sub About() MsgBox "In About" End Sub Change Menu1 to your commandbar. If you want it on the main menu, use "Worksheet Menu Bar" -- Regards, Tom Ogilvy "DMc2005" wrote in message ... Hi I get the error Run time error '-2147467259 (80004005) Method 'Add' of object 'commandBarControls' failed. why does this happen? basically i am trying to use that button image for a to run a macro. D With .Add(msoControlButton, 749) <---- this line causes the error. .Style = msoButtonIconAndCaption .Caption = "Create Individual Trainer Feedback Workbooks" .OnAction = "CreateCourseFeedbackDocuments" End With With .Add(msoControlButton, 463) .Style = msoButtonIconAndCaption .Caption = "About" .OnAction = "About" End With End With |
#4
![]() |
|||
|
|||
![]()
On the same line you are talking about a built in commandbar ID: (from help)
Id Optional Variant. An integer that specifies a built-in control. If the value of this argument is 1, or if this argument is omitted, a blank custom control of the specified type will be added to the command bar. You just wanted to use the ICON which is the FaceID - two different things. -- Regards, Tom Ogilvy "DMc2005" wrote in message ... thanks. why did it generate an error when it was on the same line? D "Tom Ogilvy" wrote in message ... Sub EFG() With Application.CommandBars( _ "Menu1") With .Controls.Add(msoControlButton) .Style = msoButtonIconAndCaption .FaceId = 749 .Caption = "Create Individual Trainer Feedback Workbooks" .OnAction = "CreateCourseFeedbackDocuments" End With With .Controls.Add(msoControlButton) .Style = msoButtonIconAndCaption .FaceId = 463 .Caption = "About" .OnAction = "About" End With End With End Sub Sub CreateCourseFeedbackDocuments() MsgBox "In CreateCourseFeedbackDocuments" End Sub Sub About() MsgBox "In About" End Sub Change Menu1 to your commandbar. If you want it on the main menu, use "Worksheet Menu Bar" -- Regards, Tom Ogilvy "DMc2005" wrote in message ... Hi I get the error Run time error '-2147467259 (80004005) Method 'Add' of object 'commandBarControls' failed. why does this happen? basically i am trying to use that button image for a to run a macro. D With .Add(msoControlButton, 749) <---- this line causes the error. .Style = msoButtonIconAndCaption .Caption = "Create Individual Trainer Feedback Workbooks" .OnAction = "CreateCourseFeedbackDocuments" End With With .Add(msoControlButton, 463) .Style = msoButtonIconAndCaption .Caption = "About" .OnAction = "About" End With End With |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
How to use solver to schedule part time and full time workforce? | Excel Discussion (Misc queries) | |||
time math | Excel Worksheet Functions | |||
adding in time formats | Excel Discussion (Misc queries) | |||
Adding time to multiple cells using TIMECODE | Excel Discussion (Misc queries) | |||
Time Sheets | Excel Discussion (Misc queries) |