Standard-Button in eigenes Menü

Forumthread: Standard-Button in eigenes Menü

27.01.2005 09:04:06

Kersten

Hallo zusammen
Wie bekomme ich ein Standard-Button (z.B. der Button "Zeilen löschen") in ein selbstgebautes popup-menü. Eine Makroaufzeichnung:
Application.CommandBars("Hlferlein").Controls.Add Type:=msoControlButton, _
ID:=293, Before:=2
kann ich so nicht gebrauchen.
Der Code(ausschnitt) für einen anderen Untermenüpunkt sieht als Beispiel so aus:
Set oCmdBtn = oPopUp.Controls.Add 'Erstellen Untermenuepunkt
With oCmdBtn
.Caption = "Zeilen einfügen"
.OnAction = "Zeilen_einfügen"
.Style = msoButtonIconAndCaption
.FaceId = 3195
.TooltipText = "Fügt Zeilen ab Curserposition. Inhalt wird mitkopiert"
End With
Bei Aufruf der kompletten Menüleiste soll der Standardbutton im Untermenü erscheinen.
Danke
Gruß Kersten

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Standard-Button in eigenes Menü

27.01.2005 16:22:43

Nepumuk
AW: Standard-Button in eigenes Menü

28.01.2005 09:42:45

Kersten

AW: Standard-Button in eigenes Menü

27.01.2005 16:22:43

Nepumuk

Hallo Kersten,
eigentlich recht einfach:

Public myCommandBar As CommandBar
Public Sub Leiste_erstellen()
    Dim myCommandBarPopup As CommandBarPopup, myCommandBarButton As CommandBarButton
    On Error Resume Next
    Do
        Application.CommandBars("Helferlein").Delete
    Loop Until Err.Number <> 0
    On Error GoTo 0
    Set myCommandBar = Application.CommandBars.Add("Helferlein", msoBarFloating, False, True)
    Set myCommandBarPopup = myCommandBar.Controls.Add(msoControlPopup)
    myCommandBarPopup.Caption = "Popupmenü"
    Set myCommandBarButton = myCommandBarPopup.Controls.Add(msoControlButton, 293)
    Set myCommandBarButton = myCommandBarPopup.Controls.Add(msoControlButton)
    With myCommandBarButton
        .Caption = "Zeilen einfügen"
        .OnAction = "Zeilen_einfügen"
        .Style = msoButtonIconAndCaption
        .FaceId = 3195
        .TooltipText = "Fügt Zeilen ab Curserposition. Inhalt wird mitkopiert"
    End With
    With myCommandBar
        .Top = 100
        .Left = 100
        .Visible = True
        .Protection = msoBarNoChangeDock + msoBarNoChangeVisible + msoBarNoCustomize + msoBarNoResize
    End With
End Sub

Gruß
Nepumuk

AW: Standard-Button in eigenes Menü

28.01.2005 09:42:45

Kersten

Hallo Nepumuk
Danke für deine viele Mühe. Ich brauchte zwar nur eine Zeile, die ich etwas abändern musste, aber die war dann die Lösung. Und wieder was dazu gelernt ;-)
Noch mal Danke
Gruß Kersten

Beliebteste Forumthreads (12 Monate)

Forumthread: Standard-Button in eigenes Menü

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread