Why doesn't this work?
 

Hi,

I have the following code in a module that creates a CommandBar. The
function CreateBar gets called on Workbook_Open. I also have another
function to remove the commandbar when on Workbook_Close.

Private cbrCommandBar As CommandBar
Private cbcAButton As CommandBarButton

Sub CreateBar()
On Error Resume Next
Application.CommandBars("Test123").Delete

Set cbrCommandBar = _
Application.CommandBars.Add

cbrCommandBar.Name = "Test123"

' Add command button control to the control's
' collection of CommandBar objects.
With cbrCommandBar.Controls
Set cbcAButton = _
.Add(msoControlButton)
With cbcAButton
.style = msoButtonIconAndCaption
.Caption = "A caption"
.FaceId = 576
.OnAction = "OnAction"
.Enabled = False
.Tag = "AButtonClick"
End With
'
End With
cbrCommandBar.Position = msoBarTop
cbrCommandBar.Enabled = True
cbrCommandBar.Visible = True
End Sub

but when I open with Internet Explorer it complains about
Application.CommandBars.Add? Suffice to say the bar never gets
created. Is this a security thing? All I want to do is be able to add
a command bar. Is this possible under IE?

Any ideas appreciated as I am stuck.

Why doesn't this work?
 

There are lots of things that seem to not work when you open a workbook in MSIE.

I do my best not to do this.

How to Configure Internet Explorer to Open Office
Documents in the Appropriate Office Program Instead of in Internet Explorer
http://support.microsoft.com/?scid=162059


SkylineGTR wrote:

Hi,

I have the following code in a module that creates a CommandBar. The
function CreateBar gets called on Workbook_Open. I also have another
function to remove the commandbar when on Workbook_Close.

Private cbrCommandBar As CommandBar
Private cbcAButton As CommandBarButton

Sub CreateBar()
On Error Resume Next
Application.CommandBars("Test123").Delete

Set cbrCommandBar = _
Application.CommandBars.Add

cbrCommandBar.Name = "Test123"

' Add command button control to the control's
' collection of CommandBar objects.
With cbrCommandBar.Controls
Set cbcAButton = _
.Add(msoControlButton)
With cbcAButton
.style = msoButtonIconAndCaption
.Caption = "A caption"
.FaceId = 576
.OnAction = "OnAction"
.Enabled = False
.Tag = "AButtonClick"
End With
'
End With
cbrCommandBar.Position = msoBarTop
cbrCommandBar.Enabled = True
cbrCommandBar.Visible = True
End Sub

but when I open with Internet Explorer it complains about
Application.CommandBars.Add? Suffice to say the bar never gets
created. Is this a security thing? All I want to do is be able to add
a command bar. Is this possible under IE?

Any ideas appreciated as I am stuck.

--

Dave Peterson

Why doesn't this work?
 

Thank you for taking the time to answer Dave.

What is strange is that custom menus seem to work ok, but toolbars do
not! It is driving me nuts.

I will take a look at the link, and thanks once again.

Why doesn't this work?
 

I would imagine that code that points at the application, like:
Application.CommandBars("Test123").Delete
would point at MSIE when you're in MSIE.

And that can't be a good thing.


SkylineGTR wrote:

Thank you for taking the time to answer Dave.

What is strange is that custom menus seem to work ok, but toolbars do
not! It is driving me nuts.

I will take a look at the link, and thanks once again.

--

Dave Peterson

Why doesn't this work?
 

Ahh, I see your point!

So, how can I get it to point to Excel?

Why doesn't this work?
 

I open it in excel--and never open excel files in MSIE.

Not much of an answer, but I don't have anything better.

SkylineGTR wrote:

Ahh, I see your point!

So, how can I get it to point to Excel?

--

Dave Peterson

Why doesn't this work?
 

Dave Peterson wrote:
I open it in excel--and never open excel files in MSIE.

Not much of an answer, but I don't have anything better.

SkylineGTR wrote:

Ahh, I see your point!

So, how can I get it to point to Excel?

--

Dave Peterson

Why doesn't this work?
 

I think I will follow your original comment on "How to Configure
Internet Explorer to Open Office
Documents in the Appropriate Office Program Instead of in Internet
Explorer "

Cheers Dave