Compartilhar via


Método 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.

Sintaxe

expressão.Add3DModel (FileName, LinkToFile, SaveWithDocument, Esquerda, Superior, Largura, Altura)

expressão Obrigatório. Uma variável que representa uma coleção de Formas.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
FileName Obrigatório String O caminho e o nome do arquivo do modelo 3D.
LinkToFile Opcional Variant 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 Opcional Variant Verdadeiro para salvar o modelo 3D vinculado com o documento. O valor padrão é Falso.
Left Opcional Variant A posição, medida em pontos, da borda esquerda do novo modelo 3D em relação à tela de desenho.
Top Opcional Variant A posição, medida em pontos, da borda superior do novo modelo 3D em relação à tela de desenho.
Width Opcional Variant A largura do modelo 3D, em pontos (insira -1 para calcular automaticamente uma largura com base nas dimensões do modelo 3D).
Height Opcional Variant A altura do modelo 3D, em pontos (insira -1 para calcular automaticamente uma altura com base nas dimensões do modelo 3D).

Valor de retorno

Forma

Exemplo

Este exemplo incorpora um modelo 3D a uma tela de desenho recém-criada no documento ativo.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.