Compartir vía


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.