Partager via

Objet CanvasShapes (Word)

  • Article

Utilisez la propriété CanvasItems d’un objet Shape ou ShapeRange pour renvoyer une collection CanvasShapes .

Remarques

Pour ajouter des formes à un canevas de dessin, utilisez les méthodes suivantes de la collection CanvasShapes : AddCallout, AddConnector, AddCurve, AddLabel, AddLine, AddPicture, AddPolyline, AddShape, AddTextbox, AddTextEffect ou BuildFreeform. L’exemple suivant montre comment ajouter une zone de dessin au document actif, puis comment ajouter trois formes à la zone de dessin.

Sub AddCanvasShapes() 
 Dim shpCanvas As Shape 
 Dim shpCanvasShapes As CanvasShapes 
 Dim shpCnvItem As Shape 
 
 'Adds a new canvas to the document 
 Set shpCanvas = ActiveDocument.Shapes _ 
 .AddCanvas(Left:=100, Top:=75, _ 
 Width:=50, Height:=75) 
 Set shpCanvasShapes = shpCanvas.CanvasItems 
 
 'Adds shapes to the CanvasShapes collection 
 With shpCanvasShapes 
 .AddShape Type:=msoShapeRectangle, _ 
 Left:=0, Top:=0, Width:=50, Height:=50 
 .AddShape Type:=msoShapeOval, _ 
 Left:=5, Top:=5, Width:=40, Height:=40 
 .AddShape Type:=msoShapeIsoscelesTriangle, _ 
 Left:=0, Top:=25, Width:=50, Height:=50 
 End With 
End Sub

Utilisez CanvasItems (index), où index est le nom ou le numéro d’index, pour renvoyer une forme unique dans la collection CanvasShapes . L'exemple suivant définit les propriétés de Line et Fill et retourne verticalement la troisième forme d'une zone de dessin.

Sub CanvasShapeThree() 
 With ActiveDocument.Shapes(1).CanvasItems(3) 
 .Line.ForeColor.RGB = RGB(50, 0, 255) 
 .Fill.ForeColor.RGB = RGB(50, 0, 255) 
 .Flip msoFlipVertical 
 End With 
End Sub

Un nom par défaut est affecté à chaque forme lors de sa création. Par exemple, lorsque vous ajoutez trois formes différentes à un document, vous pouvez les nommer « Rectangle 2 », « TextBox 3 » et « Oval 4 ». Utilisez la propriété Name pour référencer le nom par défaut ou pour attribuer un nom plus explicite à une forme.

Méthodes

Propriétés

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.