Método Shapes.Add3DModel (PowerPoint)

Crea un objeto Model3DFormat desde un archivo existente. Devuelve un objeto Shape que representa el nuevo modelo 3D.

Sintaxis

expresión.Add3DModel (FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)

expresión Variable que representa un objeto Shapes.

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
FileName	Necesario	String	El archivo a partir del cual debe crearse el objeto modelo 3D.
LinkToFile	Obligatorio	MsoTriState	Determina si el modelo 3D se vinculará al archivo desde el que se ha creado.
SaveWithDocument	Necesario	MsoTriState	Determina si se guardará el modelo 3D vinculado con el documento en el que se inserta. Este argumento debe ser msoTrue si LinkToFile es msoFalse.
Left	Obligatorio	Single	Posición, medida en puntos, del borde izquierdo del modelo 3D en relación con el borde izquierdo de la diapositiva.
Top	Obligatorio	Single	Posición, medida en puntos, del borde superior del modelo 3D en relación con el borde superior de la diapositiva.
Width	Opcional	Single	El ancho del modelo 3D, en puntos (escriba -1 para calcular automáticamente un ancho según las dimensiones de modelo 3D).
Height	Opcional	Single	El alto del modelo 3D, en puntos (escriba -1 para calcular automáticamente un alto según las dimensiones de modelo 3D).

Valor devuelto

Forma

Ejemplo

En este ejemplo se agrega un modelo 3D creado a partir del archivo sphere.glb a mySlide. El modelo 3D insertado está incrustado en el documento activo.

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 )

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.