CRÉER DES SHAPES DANS WORD AVEC VB

''''''''''''''''''''''''''''''''''''
''gmanouvrier@free.fr             ''
''gmanouvrier@Keeboo.com (at ÷ork)''
''''''''''''''''''''''''''''''''''''

Option Explicit
Dim WordApp As Word.Application
Dim Box As Word.Shape
' ne pas oublier de rajouter les références des objets Word
' don't forget to reffer word objects
Private Sub Command1_Click()
Set WordApp = GetObject(, "Word.Application")
       
    
    Set Box = WordApp.ActiveDocument.Shapes.AddShape(1, 10, 10, 100, 100)
    
    Box.TextFrame.TextRange.Text = "Quelle document merveilleux" & vbCrLf & vbCrLf & Text1.Text
    
    
    Box.Fill.BackColor = 16777215
    Box.Fill.ForeColor = 10092543
    Box.Fill.Transparency = 0.5
End Sub