Insertion de Multitexte

[MarcoTic]

Bonjour tout le monde !

J'ai des souci avec les Mtexte, j' insére un Mtexte mais ne parviens pas à lui imputé une hauteur depuis VBA. ça coince sur : objMtext.Height = Htxt

Voir ci dessous.

Pourquoi ? Hein, pourquoi?

 

Sub InsertMtext()

Dim objMtext As AcadMText

Dim strMtexte As String

Dim PtInsert(0 To 2) As Double

Dim largeur As Double

Dim Htxt As Double

 

 

'définition de l'objetMtext

strMtexte = InputBox("Ecrivez un texte de test", "titre")

PtInsert(0) = 10: PtInsert(1) = 10: PtInsert(2) = 0

largeur = 5

Htxt = 5

'Création du texte multiligne

Set objMtexte = ThisDrawing.ModelSpace.AddMText(PtInsert, largeur, strMtexte)

[surligneur] objMtext.Height = Htxt[/surligneur]

End Sub

 

[nazemrap]

Bonjour,

Tu as oublié un "e" à ta variable objMtexte dernière ligne !!

[mdsv31]

 objMtext.Height = Htxt

 

Ta oublié un e dans le nom de ton objet

 

objMtext[surligneur]e[/surligneur].Height = Htxt 

 

@+

MDSV31

 

Griller par nazemrap. Pas eu le temps de taper la réponse assez vite.

Et flute!!!!

 

 

[Edité le 5/6/2008 par mdsv31]

[MarcoTic]

Gloups !

Merci, je cours acheter une palette de Vu