Run time error '-2147467259 (80004005) adding icon

  • Thread starter Thread starter DMc2005
  • Start date Start date
D

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
 
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"
 
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.
 
Back
Top