Letteropmaak in autovorm

[arnoo7]

Ik heb een sheet gemaakt met 2 knoppen. Onder beide knoppen hangt een macro. De knoppen heb ik gemaakt met een autovorm. De bedoeling is dat de kleur van de knoppen wisselen als erop gedrukt wordt. Dit lukt prima.

Nu wil ik echter ook dat de letters veranderen: Het woord "Ja" in de ene knop moet vet worden als je op die knop drukt. (En het woord "nee" in de andere knop regular) en andersom.

Nu dacht ik dit eenvoudig te kunnen regelen met 1 van de volgende instructies:

Sheets("Blad1").Shapes(1).Font.Bold = True
Sheets("Blad1").Shapes(1).Font.FontStyle = "Bold"

Maar dat blijkt te simpel gedacht. Wat doe ik fout?

Groet Arno

 

[edmoor]

Probeer dit eens:

With ActiveSheet.Shapes(1).TextFrame 
     .Characters.Text = "Ja" 
     .Characters(1, 2).Font.Bold = True 
End With

 

[arnoo7]

Hoi,

Dat werkt prima, dank! Met font.size ook nog wat met de lettergrootte gespeeld. De gekozen knop springt er nu mooi uit. Super!

 

[edmoor]

Mooi zo :thumb: