View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Dave Peterson Dave Peterson is offline
external usenet poster
 
Posts: 35,218
Default 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