Shapes.Add3DModel (Word)

Agrega un modelo 3D en un lienzo de dibujo.

Add3DModel (FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height, Anchor)

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

Arguments

Un argumento con nombre

FileName (String) - La ruta de acceso y el nombre de archivo del modelo 3D.

Optional arguments

Los siguientes argumentos son opcionales

LinkToFile (Boolean) - True para vincular el modelo 3D al archivo a partir del cual se ha creado.

SaveWithDocument (Boolean) - True para guardar el modelo 3D vinculado con el documento.

Left (Long) - La posición, en puntos, del borde izquierdo del modelo 3D con relación al lienzo de dibujo.

Top (Long) - La posición, en puntos, del borde superior del modelo 3D con relación al lienzo de dibujo.

Width (Long) - El ancho del modelo 3D, en puntos (escriba -1 para calcular automáticamente un ancho según las dimensiones de modelo 3D).

Height (Long) - El alto del modelo 3D, en puntos (escriba -1 para calcular automáticamente un alto según las dimensiones de modelo 3D).

Anchor - Range