Buntes Menü

Forumthread: Buntes Menü

Buntes Menü

30.04.2009 22:55:56

Otto

Hallo Leute,
ich füge mit nachfolgenden Makro eine Menü ein. Frage ist, kann man die einzelnen Punkte auch farbig machen oder besteht hier nur die Möglichkeit mit dem Icon?
Vielen Dank!
VG
Otto


Sub Menü_Sonstiges()
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 = "Sonstiges"
Set MB = MenüNeu.Controls.Add _
(Type:=msoControlButton)
With MB
.Caption = "Formeln einfügen"
.Style = msoButtonCaption
.OnAction = "Formeln_einfügen"
.BeginGroup = True
.FaceId = 11
End With
End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Buntes Menü

01.05.2009 11:28:53

Nepumuk
AW: Buntes Menü

01.05.2009 13:42:02

Otto

AW: Buntes Menü

01.05.2009 11:28:53

Nepumuk

Hallo Otto,
unter 2003 gibt es von Nummer 6849 bis 6859 verschiedenfarbige FaceId's. Du könntest du auch eine Zelle einfärben, als Bild kopieren und mit der PasteFace-Methode einfügen. Beispiel:

Sub Menü_Sonstiges()
    Dim i As Integer
    Dim i_Hilfe As Integer
    Dim MenüNeu As CommandBarPopup
    Dim MB As CommandBarButton

    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 = "Sonstiges"


    Set MB = MenüNeu.Controls.Add _
        (Type:=msoControlButton)
    With MB
        .Caption = "Formeln einfügen"
        .Style = msoButtonIconAndCaption
        .OnAction = "Formeln_einfügen"
        .BeginGroup = True
        Cells(1, 1).Interior.ColorIndex = 4
        Cells(1, 1).CopyPicture xlScreen, xlBitmap
        .PasteFace
        Cells(1, 1).Interior.ColorIndex = xlNone
    End With

End Sub

Gruß
Nepumuk

AW: Buntes Menü

01.05.2009 13:42:02

Otto

Hallo Nepamuk,
das ist eine Klasse Lösung. Damit hast Du mir sehr weitergeholfen.
Vielen Dank!
Schönes Weekend
Otto

Forumthread: Buntes Menü

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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread