Qui peut m\'aider sur la méthode .SetCellObject

[mooneck]

Bonjour,

 

je suis en train d'écrire une macro qui génère un tableau 2d de coordonnées de points 3d (issues d'un catpart).

 

Premier Problème

Je souhaite écrire un texte à 90° dans une cellule du tableau

 

voici le code que j'utilise (mais qui ne marche pas :casstet: )

 

 Dim EnsText As DrawingText

Set EnsText = MyView.Texts.Add("S-Ens 1200", 0#, 0#)

EnsText.Name = "Texte.1"
EnsText.Angle = 90

'MyTable.SetCellObject 3, 1, EnsText

le texte est bien créé à 9¨° mais aucun lien avec le tableau, quand je déplace le tableau le texte ne bouge pas !! :mad:

si quelqu'un a déja utilisé cette méthode ...merci d'avance ;)

 

Deuxième Problème

J'aimerais pouvoir changer la hauteur du texte (ou autre propriètés) contenu dans une cellule

(défini par MyTable.SetCellString)

 

Merci d'avance. :cool:

 

 

[Edité le 24/4/2005 par mooneck]