Ben.Def. Menü soll in die Menüleiste und nicht in Symbolleiste - was ist falsch?

22/08/2008 - 08:16 von loew.markus | Report spam
Hallo NG,
ich versuche in Outlook ein ben. def. Menü zu erstellen. In Excel
wandert alles brav in die Menüleiste. In Outlook mit google-hilfe
bekomme ich dies nur als ben. def. Symbolleiste hin.
Hat jemand eine Idee, welches Object falsch definiert ist:

Hier der Beginn des Codes

Sub AddCNewsMenue()


Dim objCommandBar As Office.CommandBar
Dim objCommandBarControl As Office.CommandBarControl
Dim objCommandBarButton As Office.CommandBarButton
Dim objCommandBarComboBox As Office.CommandBarComboBox
Dim objCommandBarPopup As Office.CommandBarPopup

Dim strCommandbarName
strCommandbarName = "Benutzerdef. Menü"


Set objCommandBarControl Application.ActiveExplorer.CommandBar.Add(strCommandbarName)
'
With objCommandBar.Controls

Set objCommandBarPopup = .Add(msoControlPopup)
With objCommandBarPopup
.
.


Danke für jede Hilfe
Markus
 

Lesen sie die antworten

#1 Udo Riesmeier
25/08/2008 - 14:28 | Warnen spam
Hallo,

Sub AddNewMenue()
Dim oMenueBar As Office.CommandBar
Dim MyNewButton As Office.CommandBarPopup

Set oMenueBar = Application.ActiveExplorer.CommandBars.Item("Menu Bar")
Set MyNewButton = oMenueBar.Controls.Add(msoControlPopup, , ,
oMenueBar.Controls.Count, False)
MyNewButton.Caption = "BlaBlaBla"
'
'
'

End Sub


sollte ein Menüeintrag erstellen


Gruß


Udo

schrieb im Newsbeitrag
news:
Hallo NG,
ich versuche in Outlook ein ben. def. Menü zu erstellen. In Excel
wandert alles brav in die Menüleiste. In Outlook mit google-hilfe
bekomme ich dies nur als ben. def. Symbolleiste hin.
Hat jemand eine Idee, welches Object falsch definiert ist:

Hier der Beginn des Codes

Sub AddCNewsMenue()


Dim objCommandBar As Office.CommandBar
Dim objCommandBarControl As Office.CommandBarControl
Dim objCommandBarButton As Office.CommandBarButton
Dim objCommandBarComboBox As Office.CommandBarComboBox
Dim objCommandBarPopup As Office.CommandBarPopup

Dim strCommandbarName
strCommandbarName = "Benutzerdef. Menü"


Set objCommandBarControl Application.ActiveExplorer.CommandBar.Add(strCommandbarName)
'
With objCommandBar.Controls

Set objCommandBarPopup = .Add(msoControlPopup)
With objCommandBarPopup
.
.


Danke für jede Hilfe
Markus

Ähnliche fragen