How in VBA set Font Size for a checkbox?

[jzurbo77]

I have some code that creates two groups of checkboxes on a radar chart (we call them "for tests" and "for series").
Can not figure out how to setup font.size for it. Tried to stick it in few spots - no luck.
Attached is a sample couple of checkboxes created by this code (for tests)

Any suggestions will be appreciated.


Public Sub AddControl(chartStar As Chart)
Dim i As Long, j As Long
Dim lcb As Single, tcb As Single, wcb As Single, hcb As Single, rng As Range, sha As Shape, cbOnOff As Boolean

If NoData Then Exit Sub
If chartStar Is Nothing Then Exit Sub

With chartStar
' CheckBox for tests
tcb = 4
lcb = 4
wcb = rngSource.Columns(0).Width + 12 ' 30
hcb = (.ChartArea.Height - 8) / cntDataSeries ' 12
If hcb > 16 Then hcb = 16
If hcb < 12 Then hcb = 12

For i = 1 To cntDataTest
Set sha = .Shapes.AddFormControl(xlCheckBox, lcb, tcb, wcb, hcb)
With sha
.TextFrame.Characters.Text = rngSource(i, ncCheckBoxName - ncTestName).Text
.Name = "cbT" & CStr(i)
cbOnOff = (rngSource(i, ncChecked - ncTestName) <> "")
If cbOnOff Then
.ControlFormat.Value = xlOn
Else
.ControlFormat.Value = xlOff
rngSource(i, 1).EntireRow.Hidden = True
chartBar(i).Visible = xlSheetHidden
End If
.OnAction = "cbClick"
End With

tcb = tcb + hcb
If tcb > .ChartArea.Height - hcb - 4 Then
lcb = lcb + wcb + 1
tcb = tcb - hcb * (cntDataTest - i)
End If
Next

' CheckBox for series
tcb = 4
lcb = .Legend.Left
wcb = .Legend.Width
hcb = 16
For i = cntGradientPoint + 1 To cntGradientPoint + cntDataSeries
Set sha = .Shapes.AddFormControl(xlCheckBox, lcb, tcb, wcb, hcb)
With sha
.TextFrame.Characters.Text = rngSource(0, i - cntGradientPoint).Text
.Name = "cbS" & CStr(i - cntGradientPoint)
.ControlFormat.Value = xlOn
.OnAction = "cbClick"
tcb = tcb + hcb
End With
Next

End With
End Sub

 

[Norie]

You can't change the font size of a Forms checkbox either manually or via code.

 

[jzurbo77]

well, thanks for replying anyway...

 

[beerskel]

here's my cheat...

clear any text from the check box and place a rectangle (object) with formated text next to the check. then select the check box and 'bring to front'.