Método Shapes.Add3DModel (Excel)

Cria um modelo 3D a partir de um arquivo existente. Retorna um objeto Forma que representa o novo modelo 3D.

Sintaxe

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

expressão Uma variável que representa um objeto Formas.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
FileName	Obrigatório	String	O arquivo a partir do qual o modelo 3D deve ser criado.
LinkToFile	Opcional	Variant	Determina se o modelo 3D será vinculado ao arquivo a partir do qual ele foi criado.
SaveWithDocument	Opcional	Variant	Determina se o modelo 3D vinculado será salvo com o documento no qual ele está inserido.
Left	Opcional	Variantes	A posição (em pontos) do canto superior esquerdo do modelo 3D em relação ao canto superior esquerdo do documento.
Top	Opcional	Variant	A posição (em pontos) do canto superior esquerdo do modelo 3D em relação ao topo do documento.
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

Comentários

O valor do parâmetro LinkToFile pode ser uma dessas constantesMsoTriState.

Constante	Descrição
msoCTrue	Sem suporte.
msoFalse	Para tornar o modelo 3D uma cópia independente do arquivo.
msoTriStateMixed	Sem suporte.
msoTriStateToggle	Sem suporte.
msoTrue	Para vincular o modelo 3D ao arquivo a partir do qual ele foi criado.

O valor do parâmetro SaveWithDocument pode ser uma dessas constantes MsoTriState.

Constante	Descrição
msoCTrue	Sem suporte.
msoFalse	Para armazenar apenas as informações do link no documento.
msoTriStateMixed	Sem suporte.
msoTriStateToggle	Sem suporte.
msoTrue	Para salvar o modelo 3D vinculado com o documento no qual ele está inserido. Esse argumento deverá ser msoTrue se LinkToFile for msoFalse.

Exemplo

Este exemplo adiciona um modelo 3D criado a partir do arquivo sphere.glb a mySheet. O modelo 3D inserido está incorporado no documento ativo.

Set mySheet = Application.ActiveWorkbook.ActiveSheet
Set myShape = mySheet.Shapes.Add3DModel(FileName:="c:\my 3d models\sphere.glb", LinkToFile:=False, SaveWithDocument:=True, Left:=100, Top:=100, Width:=70, Height:=70 )

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.