Shapes.Add3DModel (Word)

Ajoute un modèle 3D à une zone de dessin.

Add3DModel (FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height, Anchor)

Sub NewCanvasPicture() 
 Dim shpCanvas As Shape 
 
 'Add a drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes.AddCanvas(Left:=100, Top:=75, Width:=200, Height:=300)
 
 'Add a 3D model to the drawing canvas 
 shpCanvas.CanvasItems.Add3DModel(FileName:="c:\my 3D models\sphere.glb", LinkToFile:=False, SaveWithDocument:=True, Left:=100, Top:=100, Width:=70, Height:=70)
End Sub

Arguments

Un argument nommé

FileName (String) - Le chemin et le nom de fichier du modèle 3D.

Optional arguments

Les arguments suivants sont facultatifs

LinkToFile - Boolean

SaveWithDocument - Boolean

Left (Long) - Position, exprimée en points, du bord gauche du modèle 3D par rapport à la zone de dessin.

Top (Long) - Position, exprimée en points, du bord supérieur du modèle 3D par rapport à la zone de dessin.

Width (Long) - Largeur du modèle 3D, en points (entrez -1 pour calculer automatiquement une largeur basée sur les dimensions du modèle 3D).

Height (Long) - Hauteur du modèle 3D, en points (entrez -1 pour calculer automatiquement une hauteur basée sur les dimensions du modèle 3D).

Anchor - Range