Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

Buttons hervorheben durch script



Excel-Version: 8.0 (Office 97)

Betrifft: Buttons hervorheben durch script
von: Pascal Rehfeldt
Geschrieben am: 11.06.2002 - 11:57:58

Hallo,
Ich habe ein VBA Programm welches über Schaltflächen (diese Makro Buttons) auf der Excel Oberfläche angesprochen wird. Nun möchte das beim anklicken eines Buttons die Schrift des Buttons fett dargestellt wird, beim anklicken des nächsten Buttons wird die Schrift des neu angeklicken fett und die des letzten wieder normal.

Hoffe ich hab mich verständlich ausgedrückt...


  

Re: Buttons hervorheben durch script
von: Rainer
Geschrieben am: 11.06.2002 - 12:22:23

Hi!

Probiere folgenden Code (nur in XL 2000 getestet!):


Option Explicit
' Beide Buttons sind auf einem Tabellenblatt und nicht auf einem Userform!
Private Sub CommandButton1_Click()
With Sheets(1)
    .OLEObjects("Commandbutton1").Object.Font.Bold = True
    .OLEObjects("Commandbutton2").Object.Font.Bold = False
End With
End Sub

Private Sub CommandButton2_Click()
With Sheets(1)
    .OLEObjects("Commandbutton2").Object.Font.Bold = True
    .OLEObjects("Commandbutton1").Object.Font.Bold = False
End With
End Sub

Lieben Gruß
Rainer

  

Re: Buttons hervorheben durch script
von: Pascal Rehfeldt
Geschrieben am: 11.06.2002 - 12:25:45

Und wie bekomme ich die Namen der Buttons raus?

  

Re: Buttons hervorheben durch script
von: Rainer
Geschrieben am: 11.06.2002 - 12:56:04

Liebe Pascal!

Aktiviere den Entwurfsmodus (z.B. über den Button "Entwurfsmodus" in der Symbolleiste "STEUERELEMENTE-Toolbox")

Klicke mit der rechten Maustaste auf den gewünschten Button, dann erscheint der Name im Namensfeld links neben der Bearbeitungsleiste. Dort kannst du den Namen jetzt auch ändern, indem du dorthinein einen eindeutigen Wert eintippst und mit Enter die Eingabe beendest.

Lieben Gruß
Rainer


 

Beiträge aus den Excel-Beispielen zum Thema "Buttons hervorheben durch script"