S
SkylineGTR
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.
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.