button in CommandBar
marco
seit kurzen wurde bei uns in der Firma Excel 2010 eingeführt.
Seit dem habe ich mit meinem VBA Code folgendes Proplem.
Der Aufgerufene popup Button erscheint nicht rechts am ende der Menu Bar ( Start; Einfügen; Seitenlayout; etc..., sondern unter Menuband Add-In?
Ich brauche das Popup aber rechts von der Menu Bar ( Start; Einfügen; Seitenlayout; etc...,
Was muss ich ändern?
ein auszug aus dem Sub.
Option Explicit
Option Private Module
Private Const COMMANDBAR_NAME As String = "Worksheet Menu Bar"
Public Sub prcCreateButton()
Dim myCommandBar As CommandBar
Dim myCommandBarPopup As CommandBarControl
Dim Mb As CommandBarControl
Call MenüLöschen
Set myCommandBar = Application.CommandBars(COMMANDBAR_NAME)
Set myCommandBarPopup = myCommandBar.Controls.Add(Type:=msoControlPopup, _
Before:=myCommandBar.Controls.Count + 1, Temporary:=True)
myCommandBarPopup.Caption = "PT-Tool"
'01
Set Mb = myCommandBarPopup.Controls.Add(Type:=msoControlButton)
With Mb
.Caption = "Info"
.Style = msoButtonIconAndCaption
.OnAction = "infobox"
.FaceId = 125
End With
'03 etc....
Set myCommandBar = Nothing
Set myCommandBarPopup = Nothing
End Sub
Sub MenüLöschen()
On Error Resume Next
With Application.CommandBars(1)
.Controls("PT-Tool").Delete
End With
End Sub