Método Shapes.Add3DModel (Excel)

Crea un modelo 3D 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 modelo 3D.
LinkToFile	Opcional	Variant	Determina si el modelo 3D se vinculará al archivo desde el que se ha creado.
SaveWithDocument	Opcional	Variant	Determina si se guardará el modelo 3D vinculado con el documento en el que se inserta.
Left	Opcional	Variant	La posición (en puntos) del vértice superior izquierdo del modelo 3D con relación a la esquina superior izquierda del documento.
Top	Opcional	Variant	La posición (en puntos) del vértice superior izquierdo del modelo 3D con relación a la parte superior del documento.
Width	Opcional	Variant	El ancho del modelo 3D, en puntos (escriba -1 para calcular automáticamente un ancho según las dimensiones de modelo 3D).
Height	Opcional	Variant	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

Comentarios

El valor del parámetro LinkToFile puede ser una de estas constantes MsoTriState.

Constante	Description
msoCTrue	No admitida.
msoFalse	Para que el modelo 3D sea una copia independiente del archivo.
msoTriStateMixed	No admitida.
msoTriStateToggle	No admitida.
msoTrue	Para vincular el modelo 3D al archivo a partir del cual se ha creado.

El valor del parámetro SaveWithDocument puede ser una de estas constantes MsoTriState.

Constante	Description
msoCTrue	No admitida.
msoFalse	Para almacenar solo la información del vínculo en el documento.
msoTriStateMixed	No admitida.
msoTriStateToggle	No admitida.
msoTrue	Para guardar el modelo 3D vinculado con el documento en el que está insertado. Este argumento debe ser msoTrue si LinkToFile es msoFalse.

Ejemplo

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

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 )

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.