Texte en VBA

[ber]

Bonjour à tous,

Je souhaite pouvoir écrirre du texte en gras : pour écrire du texte j'utilise Addtext. Ca fonctionne bien mais je n'arrive pas à changer les caractéristiques 'gras et itallique'.

 

j'ai essayé avec 'getfontstyle' mais ???

 

Merci.

[didier]

Bonjour à Toi

Voilà ce que je propose comme réponse à ton souci :

 

Sub TestPourBer()

Dim ChaineTexte As String

ChaineTexte = "ceci est un test"

Dim Pins(0 To 2) As Double

Pins(1) = 0

Pins(1) = 0

Dim Txt As AcadText

 

Dim NouveauStyle As AcadTextStyle

Set NouveauStyle = ThisDrawing.TextStyles.Add("STYLEGRAS")

 

NouveauStyle.Height = 0.5

NouveauStyle.fontFile = "C:/windows/Fonts/arialnb.ttf"

 

Set Txt = ThisDrawing.ModelSpace.AddText(ChaineTexte, Pins, 1)

Txt.StyleName = "stylegras"

Txt.color = acRed

Txt.Update

 

End Sub

 

amicalement

:yltype: