Microsoft Excel

Herbers Excel/VBA-Archiv

Symbole mit ID anzeigen

Betrifft: Symbole mit ID anzeigen von: Chrstian
Geschrieben am: 30.08.2004 14:38:51

Hallo zusammen,

hat jemand auf die schnelle einen Code für mich womit ich
Symbole(Icon) mir anzeigen lassen kann und bei makieren mir
die ID gezeigt wird?

Danke

der Chris

  


Betrifft: AW: Symbole mit ID anzeigen von: Uduuh
Geschrieben am: 30.08.2004 14:40:49

https://www.herber.de/tools/symbolpicker.zip


  


Betrifft: AW: Symbole mit ID anzeigen von: Jörg Gradert
Geschrieben am: 30.08.2004 14:44:38

Hallo Chris,

http://www.0711office.de/excel/xla/FaceIdViewer.htm

Gruss Jörg


  


Betrifft: AW: Symbole mit ID anzeigen von: rolf
Geschrieben am: 30.08.2004 14:48:47

nicht ganu das was du suchst

aber ......


https://www.herber.de/bbs/user/10296.xls

gruss
rolf


  


Betrifft: AW: Symbole mit ID anzeigen von: Dan
Geschrieben am: 30.08.2004 15:06:30

Hallo, mit diesem Code erstelle ich einen CommandBar mit icons von 1 bis 500. Wenn man mehr will, kann man es in der for next Schleife tun, z.B i = 500, to 1000 usw., es dauert ziemlich lange fuer die 500 Icons :-). Den Index erhaelt man so, das man auf die Icone auf dem CommandBar mit der Maus zeigt, in einem ToolTip ersheint die Nummer. Falls man es dann wiederloeschen will, dann den auskomentierten Code in die Sub Workbook_BeforeClose kopieren. Gruss Dan, CZ.



Option Explicit

Private Const MyCmdBarName$ = "Icons"

'Private Sub Workbook_BeforeClose(Cancel As Boolean)
'    On Error Resume Next
'    Application.CommandBars(MyCmdBarName$).Delete
'End Sub

Public Sub SubMain()
    Dim MyCmdBar As CommandBar, MyCmdBarButton As CommandBarButton, i
    
    If (CmdBarExists(MyCmdBarName$) = FalseThen
        Set MyCmdBar = Application.CommandBars.Add
        With MyCmdBar
            .Name = MyCmdBarName$
            .Left = 200
            .Top = 200
            .Position = msoBarFloating
            .Protection = msoBarNoProtection
            .Visible = True
        End With
        
        For i = 1 To 500
            Set MyCmdBarButton = MyCmdBar.Controls.Add(Type:=msoControlButton)
            On Error Resume Next
            MyCmdBarButton.FaceId = i
            MyCmdBarButton.TooltipText = i
        Next i
    End If
End Sub

Private Function CmdBarExists(ByVal CmdBarName$) As Boolean
    Dim CmdBar As CommandBar
    
    CmdBarExists = False
    
    For Each CmdBar In Application.CommandBars
        If (UCase(CmdBarName$) = UCase(CmdBar.Name)) Then
            CmdBarExists = True
            Exit Function
        End If
    Next CmdBar
End Function

     Code eingefügt mit Syntaxhighlighter 2.5



 

Beiträge aus den Excel-Beispielen zum Thema "Symbole mit ID anzeigen"