Shapes.Add3DModel, méthode (Word)

Article
04/07/2023

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

Syntaxe

expression.Add3DModel (FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)

expression Obligatoire. Une variable qui représente une collectionFormes.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
FileName	Obligatoire	String	Le chemin et le nom de fichier du modèle 3D.
LienVersFichier	Facultatif	Variant	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.
EnregistrerAvecDocument	Facultatif	Variant	True pour enregistrer le modèle 3D lié avec le document. La valeur par défaut est False.
Left	Facultatif	Variant	Position, exprimée en points, du bord gauche du modèle 3D par rapport à la zone de dessin.
Top	Facultatif	Variant	Position, exprimée en points, du bord supérieur du modèle 3D par rapport à la zone de dessin.
Width	Facultatif	Variant	Largeur du modèle 3D, en points (entrez -1 pour calculer automatiquement une largeur basée sur les dimensions du modèle 3D).
Height	Facultatif	Variant	Hauteur du modèle 3D, en points (entrez -1 pour calculer automatiquement une hauteur basée sur les dimensions du modèle 3D).

Valeur renvoyée

Shape

Exemple

Cet exemple ajoute un modèle 3D à une zone de dessin nouvellement créée dans le document actif.

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

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.

Partage via