Ribbons
19.12.2007 14:43:44
Stefan
ich erstelle in Excel 2003 per VBA Script eine Menueleiste per
Sub MenuLeiste()
On Error Resume Next
Dim oPopUp As CommandBarPopup
Dim oBtn As CommandBarButton
Dim xMenu As New Kls_Event
xMenu.MenueLoeschen
Set xMenu.xlWB1 = Excel.Workbooks(ThisWorkbook.Name)
Set oPopUp = CommandBars(1).Controls.Add(Type:=msoControlPopup, before:=10, ID:=123456789)
oPopUp.Caption = "Report-Funktionen"
oPopUp.Visible = True
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Ansicht1"
.Style = msoButtonCaption
.OnAction = "View1"
End With
End If
End Sub
Diese Menueleiste muesste doch auch in Office 2007 unter dem Menuepunkt AddIns dargestellt werden, oder? Leider sehe ich kein AddIn Menue! Muss ich dazu noch irgendeine Einstellung setzen?
Wie könnte ich das anders abbilden?
Gruß,
Stefan