Symbole mit ID anzeigen

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Symbole mit ID anzeigen

Symbole mit ID anzeigen von Chrstian vom 30.08.2004 14:38:51

AW: Symbole mit ID anzeigen - von Uduuh am 30.08.2004 14:40:49
AW: Symbole mit ID anzeigen - von Jörg Gradert am 30.08.2004 14:44:38
AW: Symbole mit ID anzeigen - von rolf am 30.08.2004 14:48:47
AW: Symbole mit ID anzeigen - von Dan am 30.08.2004 15:06:30

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$) = False) Then
        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