Modify a label's font size

[Magic_Doctor]

Hello,

I have a label in which there is a very short text.

To format the text I wrote the following procedure:

Private Sub LabelIntervallesDC1_Click()

With [LabelIntervallesDC1] 'Label's name
.Caption = "Intervalles" & vbCrLf & ">"
.ForeColor = &HFFFFFF 'white
.BackColor = &H4D74 'brown
End With

End Sub

So far no problem.

Now I would like ">" should be more emphasized, therefore I try to increase the font size, but only for this character (with other characters as size 7). I try the following bidouillage I place just before End Sub:

[LabelIntervallesDC1].Select
With ActiveSheet.Shapes.Characters(Start:=12, Length:=1).Font
.Size = 9
End With

Failed miserably .....

If any one of you could explain why... thank you very much

And excuse my bad english...​

 

[RoryA]

You can't do that with a label unfortunately. (your code wouldn't have worked anyway as you didn't specify which Shape)