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"

--
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

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

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