[VBA-W]Inserer et modifier une Zone de texte [Résolu]

[marsupoilu]

Bonjour à tous

Avec Word, je n'arrive pas à insérer automatiquement une zone de texte puis de modifier ses propriétés (Taille,contours,position...)


Qqn peut-il m'aider svp???

[bbil]

Envoyé par marsupoilu

..
Qqn peut-il m'aider svp???

pour commencer l'enregistreur de macro ... met le en route effectue l'action demandé puis aprés l'avoir arrêté .. examine le code généré..

[marsupoilu]

Oui j'avais déja pensé a ca

Le pb c'est qu'avec l'enregistreur, je n'arrive qu'a modifier une zoner de texte déja existente!
Pour en créer une, l'enregistreur ne me donne pas "la main" pour dessiner et positionner une nouvelle zone de texte.

[bbil]

tiens si cela peu t'aider :

Code :

1
2
3
4
5
6
7
8
9
10
 
Sub AjouteTextBox()
  Dim txtBx As Shape
  Set txtBx = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 10, 100, 200)
  txtBx.TextFrame.TextRange = "VOILA UN TEXT BOX"
  txtBx.TextFrame.TextRange.Font.Color = wdColorBlue
  txtBx.TextFrame.TextRange.Bold = True
  MsgBox "Juste un arrêt pour voir ou est le text box"
  txtBx.Left = 500 'On le déplace..
End Sub

voir AddTextbox

[marsupoilu]

Génial

C'était donc AddTextBox !! Merci bcp