Symbolleste und Buttons

Forumthread: Symbolleste und Buttons

26.08.2005 17:08:34

Frank

Ich habe eine Symbolleiste gebastelt, die sich beim öffnen der Mappe "selbst installiert". Ich würd gerne von Excel Funktionen, wie z.B. "Am Raster ausrichten" mitübernehmen. Kann diese nicht wie gehabt über Anpassen in die Symbolleiste schieben. Bräuchte den Code bzw. die Anweisung für die verschiedenen Funktionen.
Wo findet man eine Übersicht?
Danke
Frank

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Symbolleste und Buttons

26.08.2005 18:08:53

Nepumuk
AW: Symbolleste und Buttons

26.08.2005 19:31:19

Frank

AW: Symbolleste und Buttons

26.08.2005 18:08:53

Nepumuk

Hi,
das machst du über die Id.
Beispiel:
Option Explicit

Public Const strCommandbarName As String = "Test"

Public Sub prcCreate()
    Dim MyBar As CommandBar
    On Error Resume Next
    Application.CommandBars(strCommandbarName).Delete
    On Error GoTo 0
    Set MyBar = Application.CommandBars.Add(Name:=strCommandbarName, _
        Position:=msoBarFloating, Temporary:=True)
    MyBar.Controls.Add Type:=msoControlButton, ID:=549
    Set MyBar = Nothing
End Sub

An die Nummern kommst du so:
Public Sub test()
    Dim oControls As CommandBarControls, oControl As CommandBarControl
    Dim lID As Long, lRow As Long
    lRow = 1
    For lID = 0 To 65536
        Set oControls = Application.CommandBars.FindControls(ID:=lID)
        If Not oControls Is Nothing Then
            For Each oControl In oControls
                lRow = lRow + 1
                Cells(lRow, 1) = lID
                Cells(lRow, 2) = Replace(oControl.Caption, "&", "")
                Cells(lRow, 3) = oControl.Parent.Name
                Cells(lRow, 4) = oControl.Parent.NameLocal
            Next
        End If
    Next
End Sub

Gruß
Nepumuk
Excel & VBA Beispiele

AW: Symbolleste und Buttons

26.08.2005 19:31:19

Frank

Danke!
Die ID sind wirklich nützlich!!1
Gruß
Frank

Forumthread: Symbolleste und Buttons

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

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread