Optionsbutton

Forumthread: Optionsbutton
6 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Optionsbutton

Optionsbutton

18.08.2003 12:34:15

wang

Hallo
Meine Frage ist: Gibt es eine Möglichkeit, die Schrift in einem Optionsbutton durch klicken zu verändern? Das heißt, wenn ich auf dieses Optionsbutton klicke, wird die Beschriftung (Caption)verändert.
Wer kann mir da weiterhelfen?
Gruß
Wang

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Optionsbutton

18.08.2003 12:44:26

Chris
AW: Optionsbutton

18.08.2003 12:49:38

Willie
AW: Optionsbutton Willie und Chris

18.08.2003 12:59:02

wang
AW: Optionsbutton Willie und Chris

18.08.2003 13:02:29

Willie
Danke

18.08.2003 13:21:22

wang
AW: Optionsbutton Willie und Chris

19.08.2003 19:36:37

Willie

AW: Optionsbutton

18.08.2003 12:44:26

Chris

Guck mal unter Eigenschaften unter Font
Gruß
Chris

AW: Optionsbutton

18.08.2003 12:49:38

Willie

Versuch es mal so! Gruß Willie


Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
OptionButton1.Font.Size = 16
Else
OptionButton1.Font.Size = 10
End If
End Sub


Private Sub OptionButton2_Click()
If OptionButton1.Value = True Then
OptionButton1.Font.Size = 16
Else
OptionButton1.Font.Size = 10
End If
End Sub

AW: Optionsbutton Willie und Chris

18.08.2003 12:59:02

wang

Hallo ihr beiden
Ich glaube ihr habt mich etwas missverstanden. Was ich meine ist nicht die Veränderung der Größe, sondern statt z.B. Test soll Versuch dastehen, also die Beschriftung. War mein Fehler "Schrift" zu schreiben, sorry.
Hoffe, dass ihr mir weiterhelfen könnt

AW: Optionsbutton Willie und Chris

18.08.2003 13:02:29

Willie

Dann so kein Problem:


Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
OptionButton1.Caption = "Test"
Else
OptionButton1.Caption = "Versuch"
End If
End Sub


Private Sub OptionButton2_Click()
If OptionButton1.Value = True Then
OptionButton1.Caption = "Test"
Else
OptionButton1.Caption = "Versuch"
End If
End Sub

Danke

18.08.2003 13:21:22

wang

Hallo Willie
Sehr freundlich von dir mir zu helfen.
Danke
Wang

AW: Optionsbutton Willie und Chris

19.08.2003 19:36:37

Willie

Hallo Wang wenn das das Makro von Neulich ist dann mußt du es nur so ergänzen!


Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
OptionButton1.Caption = "Test"
Cells(1, 1).Value = 1
Else
OptionButton1.Caption = "Versuch"
Cells(1, 1).Value = 0
End If
End Sub


Private Sub OptionButton2_Click()
If OptionButton1.Value = True Then
OptionButton1.Caption = "Test"
Cells(1, 1).Value = 1
Else
OptionButton1.Caption = "Versuch"
Cells(1, 1).Value = 0
End If
End Sub

Gruß Willie
P.S. Woher kommt dein Name? Japan?

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!