Créer des shapes dans word avec vb

Commenter

Contenu du snippet

Ce code crée des 'post-it' dans un document word ouvert par le biais des objets COM

Source / Exemple : 


''''''''''''''''''''''''''''''''''''
''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

Conclusion :


La feuille Form1 doit contenir un bouton de commande pour lancer l'action, ainsi qu'une zone de texte(text1).

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_phoenix)