Shapes.Add3DModel, méthode (Word)

  • Article

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.