Método Shapes.Add3DModel (Word)

Agrega un modelo 3D en un lienzo de dibujo. Devuelve un objeto Shape que representa el modelo 3D y lo agrega a la colección CanvasShapes.

Sintaxis

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

expresión requerida. Variable que representa una colección Shapes.

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
FileName	Necesario	String	La ruta de acceso y el nombre de archivo del modelo 3D.
LinkToFile	Opcional	Variant	True para vincular el modelo 3D al archivo a partir del cual se ha creado. False para que el modelo 3D sea una copia independiente del archivo. El valor predeterminado es False.
SaveWithDocument	Opcional	Variant	True para guardar el modelo 3D vinculado con el documento. El valor predeterminado es False.
Left	Opcional	Variant	La posición, en puntos, del borde izquierdo del modelo 3D con relación al lienzo de dibujo.
Top	Opcional	Variant	La posición, en puntos, del borde superior del modelo 3D con relación al lienzo de dibujo.
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

Ejemplo

Este ejemplo inserta un modelo 3D en un lienzo de dibujo recién creado en el documento activo.

Sub NewCanvasPicture() 
 Dim shpCanvas As Shape 
 
 'Add a drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes.AddCanvas(Left:=100, Top:=75, Width:=200, Height:=300)
 
 'Add a 3D model to the drawing canvas 
 shpCanvas.CanvasItems.Add3DModel(FileName:="c:\my 3D models\sphere.glb", LinkToFile:=False, SaveWithDocument:=True, Left:=100, Top:=100, Width:=70, Height:=70)
End Sub

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.