InlineShapes.Add3DModel (Word)

Ajoute un modèle 3D à une zone de dessin. Renvoie un objet Formes qui représente le modèle 3D et l’ajoute à la collection**FormesToiles**.

Add3DModel (FileName, LinkToFile, SaveWithDocument, Range)

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) - True pour lier le modèle 3D au fichier à partir duquel elle a été créée. msoFalse pour transformer le modèle 3D en copie indépendante du fichier. La valeur par défaut est False.

SaveWithDocument (Boolean) - True pour enregistrer le modèle 3D lié avec le document. La valeur par défaut est False.

Range