Shapes.Add3DModel (Word)

Adiciona um modelo 3D a uma tela de desenho. Retorna um objeto de Forma que representa o modelo 3D e o adiciona à coleção CanvasShapes.

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

O seguinte argumento é necessário

FileName (String) - O caminho e o nome do arquivo do modelo 3D.

Optional arguments

Os seguintes argumentos são opcionais

LinkToFile (Boolean) - Verdadeiro para vincular o modelo 3D ao arquivo do qual ele foi criado. Falso para tornar o modelo 3D uma cópia independente do arquivo. O valor padrão é Falso.

SaveWithDocument (Boolean) - Verdadeiro para salvar o modelo 3D vinculado com o documento. O valor padrão é Falso.

Left (Long) - A posição, medida em pontos, da borda esquerda do novo modelo 3D em relação à tela de desenho.

Top (Long) - A posição, medida em pontos, da borda superior do novo modelo 3D em relação à tela de desenho.

Width (Long) - A largura do modelo 3D, em pontos (insira -1 para calcular automaticamente uma largura com base nas dimensões do modelo 3D).

Height (Long) - A altura do modelo 3D, em pontos (insira -1 para calcular automaticamente uma altura com base nas dimensões do modelo 3D).

Anchor - Range