Shapes.Add3DModel, méthode (PowerPoint)

Crée un objet Model3DFormat à partir d’un fichier existant. Renvoie un objet Shape qui représente le nouveau modèle 3D.

Syntaxe

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

expression Variable qui représente un objet Shapes.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
FileName	Obligatoire	String	Fichier à partir duquel l’objet modèle 3D doit être créé.
LinkToFile	Obligatoire	MsoTriState	Détermine si le modèle 3D va être lié au fichier à partir duquel il a été créé.
SaveWithDocument	Obligatoire	MsoTriState	Détermine si le modèle 3D lié est enregistré avec le document dans lequel il est inséré. Cet argument doit être msoTrue si LinkToFile est msoFalse.
Left	Obligatoire	Unique	Position, exprimée en points, du bord gauche du modèle 3D par rapport au bord gauche de la diapositive.
Top	Obligatoire	Unique	Position, exprimée en points, du bord supérieur du modèle 3D par rapport au bord supérieur de la diapositive.
Width	Facultatif	Unique	Largeur du modèle 3D, exprimée en points (entrez -1 pour calculer automatiquement une largeur basée sur les dimensions du modèle 3D).
Height	Facultatif	Unique	Hauteur du modèle 3D, exprimée 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 créé à partir du fichier Sphere.glb à MaDiapositive. Le modèle 3D inséré est incorporé dans le document actif.

Set mySlide = Application.ActivePresentation.Slides(1) 
Set myShape = mySlide.Shapes.Add3DModel(FileName:="c:\my 3d models\sphere.glb", LinkToFile:=False, SaveWithDocument:=True, Left:=100, Top:=100, Width:=70, Height:=70 )

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.