befehle in eigenes menü

25/08/2007 - 07:47 von tom7263 | Report spam
hi leute

mit folgendem makro füge ich mir ein eigenes menü in die arbeitsblatt
menüleiste vor das hilfe-menü ein


Sub Menü_Einfügen()
Dim i As Integer
Dim i_Hilfe As Integer
Dim MenüNeu As CommandBarControl
Dim mb As CommandBarControl


i = Application.CommandBars(1).Controls.Count
i_Hilfe = Application.CommandBars(1).Controls(i).Index

Set MenüNeu Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, _
before:=i_Hilfe, temporary:=True)
MenüNeu.Caption = "Meine Leiste"

Set mb = MenüNeu.Controls.Add(Type:=msoControlButton)
With mb
.Caption = "Schaltflàche"
.Style = msoButtonIconAndCaption
.OnAction = "Schaltflàche"
.FaceId = 282
.BeginGroup = True
End With
' und noch einige mehr
End sub


nun möchte ich in dieses menü aber auch befehle sowohl aus anderen
menüs als auch aus der standard und format leiste einfügen
kann mir da jemand weiterhelfen
danke im voraus
mfg tom
 

Lesen sie die antworten

#1 stefan onken
25/08/2007 - 13:25 | Warnen spam
hallo tom,
es gibt für CommandBarControls einen Copy-Befehl, aus der VBA-Hilfe:
In diesem Beispiel wird das erste Steuerelement der Befehlsleiste
Standard in die Befehlsleiste Custom kopiert und dort an die erste
Position gesetzt.
Set myCustomBar = CommandBars("Custom")
Set myControl = CommandBars("Standard").Controls(1)
With myControl
.Copy Bar:=myCustomBar, Before:=1
.SetFocus
End WithDas funktioniert auch für Menüs.

Gruß
stefan

wrote:
hi leute

mit folgendem makro füge ich mir ein eigenes menü in die
arbeitsblatt menüleiste vor das hilfe-menü ein


nun möchte ich in dieses menü aber auch befehle sowohl aus
anderen menüs als auch aus der standard und format leiste
einfügen
kann mir da jemand weiterhelfen
danke im voraus
mfg tom

Ähnliche fragen