Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Standard-Button in eigenes Menü

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
Anzeige
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, FalseTrue)
    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
Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige