Magic_Doctor
XLDnaute Barbatruc
Bonjour,
J'ai une étiquette dans laquelle il y a un texte très court :
Intervalles
>
Pour mettre en forme le texte j'au écrit la procédure suivante :
Private Sub LabelIntervallesDC1_Click()
With [LabelIntervallesDC1] 'Nom de l'étiquette
.Caption = "Intervalles" & vbCrLf & ">" 'Intervalles + à la ligne + >
.ForeColor = &HFFFFFF 'Texte en blanc
.BackColor = &H4D74 'Fond marron
End With
End Sub
jusque là pas de problème.
Maintenant je voudrais que ">" soit davantage mis en exergue, en conséquence je tente d'augmenter la taille de la police, mais uniquement pour ce caractère (les autres caractères ayant 7 comme taille). J'essaie le bidouillage suivant que je place juste avant End Sub :
[LabelIntervallesDC1].Select
With ActiveSheet.Shapes.Characters(Start:=12, Length:=1).Font
.Size = 9
End With
Echec lamentable.....
Si l'une ou l'un d'entre vous pouvait m'expliquer la raison.
J'ai une étiquette dans laquelle il y a un texte très court :
Intervalles
>
Pour mettre en forme le texte j'au écrit la procédure suivante :
Private Sub LabelIntervallesDC1_Click()
With [LabelIntervallesDC1] 'Nom de l'étiquette
.Caption = "Intervalles" & vbCrLf & ">" 'Intervalles + à la ligne + >
.ForeColor = &HFFFFFF 'Texte en blanc
.BackColor = &H4D74 'Fond marron
End With
End Sub
jusque là pas de problème.
Maintenant je voudrais que ">" soit davantage mis en exergue, en conséquence je tente d'augmenter la taille de la police, mais uniquement pour ce caractère (les autres caractères ayant 7 comme taille). J'essaie le bidouillage suivant que je place juste avant End Sub :
[LabelIntervallesDC1].Select
With ActiveSheet.Shapes.Characters(Start:=12, Length:=1).Font
.Size = 9
End With
Echec lamentable.....
Si l'une ou l'un d'entre vous pouvait m'expliquer la raison.