Texte.label format

Bonsoir,

Comment peut-on modifier le format d'un text label en VBA?

j'ai un text label je voudrais imposer un style de police (calibri, Time New roman,...), la taille et le mettre en gras ?

merci d'avance

cordialement

Bonsoir,

Et l'enregistreur de macro ça sert à quoi ?

A+

Bonsoir,

Pas sur d'avoir compris mais ..

Bonne soirée.

bonsoir,

ce n'est pas ce que je voulais, je voulais modifier avec un code vba le style de police d'une zone de texte sur une sheet.

merci quand même

cordialement

Bonsoir Didier0901, le Forum,

Un exemple fait avec un label présent sur la 1ière feuille.

En cliquant sur le label certaines propriétés que tu souhaites, de celui-ci changent.

A adapter ensuite.

Voir code VBA à partir de l'éditeur.

Bonjour tout le monde. Tu peux faire ce que tu veux au chargement de ta feuille. Exemple :

Private Sub UserForm_Activate()
    Label1.Caption = "Je voudrais modifier cette étiquette"
    Label1.Font = "Arial"
    Label1.ForeColor = RGB(0, 0, 255)
    Label1.Font.Bold = True
    Label1.Font.Italic = True
    Label1.Font.Size = 22
    Label1.Font.Strikethrough = True
    Label1.Font.Underline = True
    Label1.AutoSize = True
End Sub

bonjour,

ça n'as pas marché, il faut que ça marche avec un with activesheet

merci

cordialement

Bonjour,

Sub TEST()
Dim FORME As Object
Set FORME = ActiveSheet.Shapes.AddLabel(1, 100, 100, 60, 150)
With FORME.TextFrame.Characters
    .Text = "Test"
    .Font.Bold = True
    .Font.Size = 21
End With
End Sub

Bonne journée.

Bonjour à tous,

Si la forme est discutable (encore que ☺️), je rejoins Galopin01 sur le fond.

L'enregistreur de macro te donnerait tout ce que tu veux... Surtout si tu essaies de bricoler des with. Ça veut dire que tu connais déjà un peu VBA et que tu sauras adapter ça.

Mais tant que tu ne commenceras pas par-là, pour te familiariser avec les codes, la progression va être difficile.

Bonjour,

l'enregistreur macro ne me donne rien je ne sais pas pourquoi, mais bon j'ai ce code qui marche bien je veux juste ajouter le type de police arial, calibri...

xl = 0
yl = 735
al = 140
bl = 20
With ActiveSheet
With .Shapes.AddLabel(msoTextOrientationHorizontal, xl, yl, al, bl)


.Fill.Visible = msoFalse
.Line.Visible = msoFalse
.TextFrame.AutoSize = msoTrue
.Left = .Left - a1 / 2
.TextEffect.text = "blabla"
.Name = "numéro"
.TextFrame.Characters.Font.ColorIndex = 5
.TextFrame.Characters.Font.Size = 10
.TextFrame.Characters.Font.Bold = True
End With

End With

merci d'avance

Cordialement

Re,

Optimix t'a donné la réponse.

Re,

J'ai testé le .font="Arial" ça n'a pas marché

Cordialement

Il y avait effectivement une erreur (Font.Name = ).

Un exemple sur une étiquette placée sur une feuille (onglet). Au chargement du classeur l'étiquette est modifiée.

Re,

ça ne marche pas avec ce code, en fait je voudrais compléter ce code avec un style de police imposé

merci

cordialement

With ActiveSheet
With .Shapes.AddLabel(msoTextOrientationHorizontal, xl, yl, al, bl)

.Fill.Visible = msoFalse
.Line.Visible = msoFalse
.TextFrame.AutoSize = msoTrue
.Left = .Left - a1 / 2
.TextEffect.text = "blabla"
.Name = "numéro"
.TextFrame.Characters.Font.ColorIndex = 5
.TextFrame.Characters.Font.Size = 10
.TextFrame.Characters.Font.Bold = True
End With

End With

Ce n'était qu'un exemple d'utilisation des propriétés du contrôle ActiveX "Label". Tu en sais assez maintenant pour aller au bout.

A nouveau,

@Didier0901,

Dans le cas d'une zone de texte et non un label comme tu l'inscrit.

Le code corrigé récemment est bien

.Text Frame.Characters.Font.Name= "Arial"

Ici pour l'exemple.

Ensuite on ne peut que mettre des polices reconnus par Windows. Donc présente dans le répertoire Fonts. Apparemment celle que tu indiques, soit numéro, ne doit pas y figurer. Ou bien, elle est mal orthographié. A vérifier dans la liste des polices.

Enfin évite d'ajouter des zones de texte à chaque lancement de ta macro. Une fois créée ta zone de texte doit être ensuite seulement sélectionnée.