Font Selection Based on Variable

[TheRogue]

I have a Toggle Button, linked to C1, which returns a TRUE/FALSE.
What I want to do is change the font formatting of a <Text Range>, based upon the result in C1
If C1=FALSE, then <Text Range> displays in the default font (Arial, 10), but
If C1=TRUE, the <Text Range> displays in (Times Roman, 12)

I thought that this could easily but w/ Conditional Formatting, but apparently I am mistaken.

 

[Fluff]

You will need a macro do that, do you want to change the format of a cell?

 

[kweaver]

Since CF doesn't allow you to change the font type,
you'd have to do something like this (which, of course, Fluff or someone more VBA experienced will simplify, but this is the general idea):

Sub ChgFont()
If Range("C1") = True Then
 Range("A1:A10").Font.Name = "Times Roman"
 Range("A1:A10").Font.Size = "12"
 Else
 Range("A1:A10").Font.Name = "Arial"
 Range("A1:A10").Font.Size = "10"
 End If
End Sub

 

[Fluff]

I was thinking of putting the code in the Click event, like

Private Sub ToggleButton1_Click()
   With Range("D4").Font
      .Name = IIf(Me.ToggleButton1, "Times Roman", "Arial")
      .Size = IIf(Me.ToggleButton1, 12, 10)
   End With
End Sub

 

[TheRogue]

I like that! [In your Example] D4 would be the range of data that i want to effect?

 

[Fluff]

That's right, just change it to whatever range you need.

 

[TheRogue]

Thank You!

 

[Fluff]

You're welcome & thanks for the feedback