View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
SkylineGTR SkylineGTR is offline
external usenet poster
 
Posts: 20
Default 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.