Partage via


Shapes.Add3DModel, méthode (Excel)

Cette méthode crée un modèle 3D à 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 Le fichier à partir duquel le modèle 3D doit être créé.
LienVersFichier Facultatif Variant Détermine si le modèle 3D va être lié au fichier à partir duquel il a été créé.
EnregistrerAvecDocument Facultatif Variant Détermine si le modèle 3D lié est enregistré avec le document dans lequel il est inséré.
Left Facultatif Variant Position (exprimée en points) du coin supérieur gauche du modèle 3D par rapport au coin supérieur gauche du document.
Top Facultatif Variant La position (exprimée en points) du coin supérieur gauche un modèle 3D par rapport au haut du document.
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

Remarques

La valeur du paramètre LinkToFile peut être l’une de ces constantes MsoTriState.

Constante Description
msoCVrai Non prise en charge.
msoFaux Pour transformer le modèle 3D en copie indépendante du fichier.
msoTriEtatMélangé Non prise en charge.
msoTriStateToggle Non prise en charge.
msoVrai Pour lier le modèle 3D au fichier à partir duquel il a été créé.

La valeur du paramètre EnregistrerAvecDocument peut être l’une de ces constantes MsoTriState.

Constante Description
msoCVrai Non prise en charge.
msoFaux Pour stocker uniquement les informations de liaison dans le document.
msoTriEtatMélangé Non prise en charge.
msoTriStateToggle Non prise en charge.
msoVrai Pour enregistrer le modèle 3D lié avec le document dans lequel il a été inséré. Cet argument doit être msoTrue si LinkToFile est msoFalse.

Exemple

Cet exemple ajoute un modèle 3D créé à partir du fichier Sphere.glb à MesFeuilles. Le modèle 3D inséré est incorporé dans le document actif.

Set mySheet = Application.ActiveWorkbook.ActiveSheet
Set myShape = mySheet.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.