Shapes.AddCanvas, méthode (Word)

Article
04/07/2023

Ajoute une zone de dessin à un document. Renvoie un objet Shape qui représente la zone de dessin et l’ajoute à la collection Shapes .

Syntaxe

expression. AddCanvas( _Left_ , _Top_ , _Width_ , _Height_ , _Anchor_ )

expression Obligatoire. Variable qui représente un objet Shapes .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Left	Obligatoire	Unique	Position, en points, du bord gauche de la zone de dessin par rapport à l’ancre.
Top	Obligatoire	Unique	Position, en points, du bord supérieur de la zone de dessin par rapport à l’ancre.
Width	Obligatoire	Unique	Largeur, en points, de la zone de dessin.
Height	Obligatoire	Unique	Hauteur, en points, de la zone de dessin.
Anchor	Facultatif	Variant	Objet Range qui représente le texte auquel le canevas est lié. Si le point d'ancrage est spécifié, l'ancrage est placé au début du premier paragraphe de la plage d'ancrage. Si vous ne spécifiez pas l’argument, la plage d’ancrage est sélectionnée automatiquement et la zone de dessin est positionnée par rapport aux bords supérieur et gauche de la page.

Valeur renvoyée

Shape

Exemple

Cet exemple montre comment ajouter une zone de dessin à un nouveau document et mettre en forme la zone de dessin afin de l'associer au texte. Il indique également comment ajouter deux formes à la zone de dessin et définir les propriétés de ligne et de remplissage.

Sub AddInlineCanvas() 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 
 Set docNew = Documents.Add 
 
 'Add a drawing canvas to the new document 
 Set shpCanvas = docNew.Shapes.AddCanvas( _ 
 Left:=150, Top:=150, Width:=70, Height:=70) 
 shpCanvas.WrapFormat.Type = wdWrapInline 
 
 'Add shapes to drawing canvas 
 With shpCanvas.CanvasItems 
 .AddShape msoShapeHeart, Left:=10, _ 
 Top:=10, Width:=50, Height:=60 
 .AddLine BeginX:=0, BeginY:=0, _ 
 EndX:=70, EndY:=70 
 End With 
 With shpCanvas 
 .CanvasItems(1).Fill.ForeColor _ 
 .RGB = RGB(Red:=255, Green:=0, Blue:=0) 
 .CanvasItems(2).Line _ 
 .EndArrowheadStyle = msoArrowheadTriangle 
 End With 
End Sub

Voir aussi

Shapes, Collection d'objets

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.

Partager via