Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Alle FaceIDs auf einen Blick
zurück: Kalenderwoche nach DIN weiter: Dialoge - Übersicht und mehr Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
c0bRa
Excel-Moderator


Verfasst am:
13. Aug 2007, 16:46
Rufname: c0bRa
Wohnort: BY

Alle FaceIDs auf einen Blick - Alle FaceIDs auf einen Blick

Nach oben
       Version: Office XP (2002)

Hio...

anbei ein Code, um sich alle FaceIDs anzusehen, die in Excel zur Verfügung stehen:
Code aus Microsoft Excel Objekt DieseArbeitsmappe:
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim a As Long
    On Error Resume Next
    Set cbSymbolliste = Nothing
    Application.CommandBars("Steuerung").Delete
    For a = 1 To Application.CommandBars.Count
        If Left(Application.CommandBars(a).Name, 12) = "Symbol-Liste" Then Application.CommandBars(a).Delete
    Next a
End Sub


Code aus Modul Modul1:
Option Explicit

'Ein Code von Uwe Küstner

Public cbSymbolliste As CommandBar
Dim lngZaehler As Long

Sub Symbolanzeige()
    Dim cbSteuerung As CommandBar
    Dim ctlVor As CommandBarButton
    Dim ctlZurueck As CommandBarButton
    Dim ctlAbbruch As CommandBarButton
    Set cbSymbolliste = CommandBars.Add(Name:="Symbol-Liste", Temporary:=True)
    With cbSymbolliste
        .Top = 200
        .Left = 250
        .Protection = msoBarNoChangeVisible
    End With
    lngZaehler = 1
    Set cbSteuerung = CommandBars.Add(Name:="Steuerung", Temporary:=True)
    cbSteuerung.Protection = msoBarNoChangeVisible
    Set ctlZurueck = cbSteuerung.Controls.Add(Type:=msoControlButton)
    With ctlZurueck
        .Caption = "Zurück"
        .FaceId = 155
        .OnAction = "ListeZurueck"
    End With
    Set ctlAbbruch = cbSteuerung.Controls.Add(Type:=msoControlButton)
    With ctlAbbruch
        .Caption = "Beenden"
        .Style = msoButtonCaption
        .OnAction = "ListeAbbruch"
    End With
    Set ctlVor = cbSteuerung.Controls.Add(Type:=msoControlButton)
    With ctlVor
        .Caption = "Vor"
        .FaceId = 156
        .OnAction = "ListeVor"
    End With
    With cbSteuerung
        .Top = 150
        .Left = 200
        .Visible = True
    End With
    NeueListe 0, 499
End Sub

Private Sub ListeVor()
    NeueListe 0, 499
End Sub

Private Sub ListeZurueck()
    If lngZaehler <= 501 Then Exit Sub
    NeueListe -1000, -501
End Sub

Private Sub NeueListe(lngStart As Long, lngEnde As Long)
    Dim ctl As CommandBarControl
    Dim i As Long
    Dim x As Integer
    Dim E As Integer
    Dim B
    x = 0
    E = 0
    On Error GoTo Ende
    With CommandBars("Steuerung").Controls(3)
        .Caption = "Vor"
        .Enabled = True
    End With
    cbSymbolliste.Visible = False
    For Each ctl In cbSymbolliste.Controls
        ctl.Delete
    Next ctl
    For i = lngZaehler + lngStart To lngZaehler + lngEnde
        Set ctl = cbSymbolliste.Controls.Add(Type:=msoControlButton)
        With ctl
            .FaceId = i
            .TooltipText = i
        End With
        If x = 1 Then
            ctl.Delete
            If E = 0 Then E = i
            Exit For
        End If
        x = 0
    Next i
    lngZaehler = lngZaehler + lngEnde + 1
    If E = 0 Then E = i
    With cbSymbolliste
        .Width = 600
        .Name = "Symbol-Liste (" & lngZaehler - 500 & " - " & E - 1 & ")"
        .Visible = True
    End With
    x = 0
    If lngZaehler <= 501 Then
        With CommandBars("Steuerung").Controls(1)
            .Caption = ""
            .Enabled = False
        End With
        Else
        With CommandBars("Steuerung").Controls(1)
            .Caption = "Zurück"
            .Enabled = True
        End With
    End If
    Exit Sub
Ende:
    With CommandBars("Steuerung").Controls(3)
        .Caption = ""
        .Enabled = False
    End With
    x = 1
    Resume Next
End Sub

Private Sub ListeAbbruch()
    On Error Resume Next
    cbSymbolliste.Delete
    Set cbSymbolliste = Nothing
    Application.CommandBars("Steuerung").Delete
End Sub


Zuletzt bearbeitet von c0bRa am 10. Jan 2008, 10:41, insgesamt 2-mal bearbeitet
< Peter >
Excel-Moderator, der immer noch dazu lernt


Verfasst am:
13. Aug 2007, 18:01
Rufname: Kommt darauf an wer ruft
Wohnort: Das schönste Land in Deutschlands Gaun


AW: Alle FaceIDs auf einen Blick - AW: Alle FaceIDs auf einen Blick

Nach oben
       Version: Office XP (2002)

Hallo,

nimmt den Beitrag aus den unbeantworteten heraus.

_________________
Gruß
Peter
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel VBA (Makros): FaceIDs: Nummern anzeigen 3 Motormann 320 24. Jul 2012, 15:29
Isabelle :-) FaceIDs: Nummern anzeigen
Keine neuen Beiträge Excel Formeln: Ich blick es einfach nicht 2 Gribsy 148 25. Jan 2012, 17:18
Gast Ich blick es einfach nicht
Keine neuen Beiträge Excel VBA (Makros): Preisberechnung, HIIILLLLFFFFEEE ich blick gar nicht durch 6 Sargo71 322 10. Jan 2011, 16:32
Sargo71 Preisberechnung, HIIILLLLFFFFEEE ich blick gar nicht durch
Keine neuen Beiträge Excel Formeln: Zuordnung - suche - ich blick nicht durch!!! Bitte Hilfe! 6 OttmarZittlau 237 07. Jan 2011, 13:36
OttmarZittlau Zuordnung - suche - ich blick nicht durch!!! Bitte Hilfe!
Keine neuen Beiträge Excel Hilfe: *T*AW: Alle FaceIDs auf einen Blick - es geht auch viel kürz 1 Matris 828 15. Jul 2010, 17:34
ransi *T*AW: Alle FaceIDs auf einen Blick - es geht auch viel kürz
Keine neuen Beiträge Excel VBA (Makros): "Blick" auf aktive Zelle richten 2 Thors.Hamster 261 19. März 2010, 11:04
Thors.Hamster "Blick" auf aktive Zelle richten
Keine neuen Beiträge Excel VBA (Makros): Farbe statt FaceIDs? 5 Xypro 797 13. Aug 2008, 11:25
silex1 Farbe statt FaceIDs?
Keine neuen Beiträge Excel Hilfe: FaceID's ... ne Übersicht als html ?!? 0 Kieni 519 28. März 2008, 09:31
Kieni FaceID's ... ne Übersicht als html ?!?
Keine neuen Beiträge Excel Formeln: WENN(UND(ODER...-Mega-Formel..ich blick nicht mehr durch 3 Melly von hier 540 21. Jan 2008, 11:40
Melly von hier WENN(UND(ODER...-Mega-Formel..ich blick nicht mehr durch
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks