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.