Menü Symbole - FaceID

Bild

Betrifft: Menü Symbole - FaceID
von: Holger Wächter
Geschrieben am: 25.03.2005 15:58:58
Hallo zusammen,
ich habe mir mit VBA meine eigenen Menüleiste gestrickt. Jetzt gibt es ja die Möglichkeit mit FaceID die Untermenüs mit einem Icon (Symbol) zu versehen.
Weiss vielleicht jemand wo es eine Übersicht über die ganzen Symbole gibt. Da es ja bis FaceID grösser 3000 geht und ich nicht alle Symbole nach dem richtigen durchsuchen wollte.
Für Hilfe wäre ich sehr dankbar
MfG
Holger Wächter

Bild

Betrifft: AW: Menü Symbole - FaceID
von: Hajo_Zi
Geschrieben am: 25.03.2005 16:01:59
Hallo Holger
schaue mal hier
http://www.excel-addins.de/
AddIns für Excel.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Bild

Betrifft: AW: Menü Symbole - FaceID
von: Holger Wächter
Geschrieben am: 25.03.2005 16:05:28
Super,
da kann ich mich richtig austoben.
MfG
Holger Wächter
Bild

Betrifft: Alle FaceID Symbole auflisten
von: Reinhard
Geschrieben am: 25.03.2005 16:03:48
Hallo Holger,
fand ich vor kurzem im Internet, weiss nicht mehr wo.
Gruß
Reinhard

Sub ZeigeAlleSymbole()
'
' Fügt (fast) alle Symbole in eine Excel-Mappe
'
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim cbCtl As CommandBarControl
Dim cbBar As CommandBar
On Error Resume Next
Application.ScreenUpdating = False
Set cbBar = CommandBars.Add(Position:=msoBarFloating, _
    MenuBar:=False, temporary:=True)
Set cbCtl = cbBar.Controls.Add(Type:=msoControlButton, _
    temporary:=True)
k = 1
Do While Err.Number = 0
    For j = 1 To 10
        i = i + 1
        Application.StatusBar = "FaceID = " & i
        cbCtl.FaceId = i
        cbCtl.CopyFace
        If Err.Number <> 0 Then Exit For
        ActiveSheet.Paste Cells(k, j + 1)
        Cells(k, j).Value = i
    Next j
    k = k + 1
Loop
Application.StatusBar = False
cbBar.Delete
End Sub

Bild

Betrifft: AW: Alle FaceID Symbole auflisten
von: Holger Wächter
Geschrieben am: 25.03.2005 16:06:41
Auch das ist super,
vielen dank, sowas hilft mir echt weiter.
MfG
Holger Wächter
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Sonderzahlen über Button ansteuern"