Shapes.AddCanvas (Word)

Ajoute une zone de dessin à un document.

AddCanvas (Left, Top, Width, Height, Anchor)


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

Arguments

Les arguments nommés :

Left (Single) - Position, exprimée en points, du bord gauche de la zone de dessin par rapport au point d’ancrage.

Top (Single) - Position, exprimée en points, du bord supérieur de la zone de dessin par rapport au point d’ancrage.

Width (Single) - Largeur, exprimée en points, de la zone de dessin.

Height (Single) - Hauteur, en points, de la zone de dessin.

Optional arguments

Les arguments suivants sont facultatifs

Anchor (Range) - Objet Range qui représente le texte auquel la zone de dessin est liée.