Objet CanvasShapes (Word)
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
- AddCallout
- AddConnector
- AddCurve
- AddLabel
- AddLine
- AddPicture
- AddPolyline
- AddShape
- AddTextbox
- AddTextEffect
- BuildFreeform
- Élément
- Range
- SelectAll
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour