Microsoft Excel

Herbers Excel/VBA-Archiv

eigene symbolleiste, einfügen des symbols....

    Betrifft: eigene symbolleiste, einfügen des symbols.... von: rahel
    Geschrieben am: 28.08.2003 12:45:53

    hallo zusammen

    ich will eine eigene symbolleiste mit "gefühls-icons" basteln.
    ein icon ist z.b. eine bombe, ein anderer ein smiley usw. ich
    habe bereits alle möglichen schaltflächen-icons durchsucht und
    auch passende gefunden. mein problem ist folgendes:
    wenn z.b. zelle A1 aktiv ist und ich auf den smiley-icon klicke,
    soll in zelle A1 das selbe smiley-symbol eingefügt werden?
    ich hab keine ahnung ob das geht und wenn ja, wie...

    gruss, rahel

      


    Betrifft: AW: FaceID leicht gemacht! von: Willie
    Geschrieben am: 28.08.2003 12:58:07


    https://www.herber.de/bbs/user/760.zip

    Ich habe da vor geraumer Zeit etwas ausgegraben!
    Vielleicht hilft dir das bei der Auswahl deiner FaceID!
    Jedoch nicht unbedingt beim einfügen. Das einfügen
    muß du sowieso über ein Makro lösen!
    Gruß

    Willie


      


    Betrifft: die faceID ist nicht das problem von: rahel
    Geschrieben am: 28.08.2003 13:05:25

    hallo

    1. das tool funktioniert nicht
    2. die faceID's sind nicht das problem, ich weiss welche ich brauche, habe selbst ein tool geschrieben, welches mir alle möglichen schaltflächen auflistet.
    3. mein problem ist: wie erreiche ich, dass beim klick auf ein symbol der schaltfläche das symbol in der aktiven zelle erscheint?

    gruss, rahel


      


    Betrifft: AW: die faceID ist nicht das problem von: Willie
    Geschrieben am: 28.08.2003 13:20:17

    Eben durch ein Makro so wie in der Mappe!
    die werden ja auch druch ein Makro in die Zellen geschreiben...

    Sub deinmenüeinfügen()
    Dim i As Integer
    Dim i_Hilfe As Integer
    Dim Endkundenformular As CommandBarControl
    Dim Mb As CommandBarControl
    
     i = Application.CommandBars(1).Controls.Count
     i_Hilfe = Application.CommandBars(1).Controls(i).index
     Set Endkundenformular = Application.CommandBars(1). _
      Controls.Add(Type:=msoControlPopup, _
      before:=i_Hilfe, Temporary:=True)
     Endkundenformular.Caption = "Endkunden&formular"
      Set Mb = Endkundenformular.Controls.Add _
            (Type:=msoControlButton)
        With Mb
            .Caption = "&Smile einfügen"
            .Style = msoButtonIconAndCaption
            .OnAction = "DeinMarko" ' Hier kommt der Name deiner Sub
            .BeginGroup = True
            .FaceId = 23
        End With
    
    End Sub
    


    Sub deinmenüausblenden()
    Application.CommandBars(1).Reset
    End Sub
    



     

    Beiträge aus den Excel-Beispielen zum Thema " eigene symbolleiste, einfügen des symbols...."