Run time error '-2147467259 (80004005) adding icon

[DMc2005]

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

 

[Tom Ogilvy]

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"

 

[DMc2005]

thanks. why did it generate an error when it was on the same line?

D

 

[Tom Ogilvy]

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.