Método Shapes.Add3DModel (PowerPoint)

Cria um objeto Model3DFormat 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 objeto de modelo 3D deve ser criado.
LinkToFile	Obrigatório	MsoTriState	Determina se o modelo 3D será vinculado ao arquivo a partir do qual ele foi criado.
SaveWithDocument	Obrigatório	MsoTriState	Determina se o modelo 3D vinculado será salvo com o documento no qual ele está inserido. Este argumento deve ser msoTrue se LinkToFile for msoFalse.
Left	Obrigatório	Single	A posição, medida em pontos, da borda esquerda do modelo 3D em relação à borda esquerda do slide.
Top	Obrigatório	Single	A posição, medida em pontos, da borda superior do modelo 3D em relação à borda superior do slide.
Width	Opcional	Single	A largura do modelo 3D, medida em pontos (insira -1 para calcular automaticamente uma largura com base nas dimensões do modelo 3D).
Height	Opcional	Single	A altura do modelo 3D, medida em pontos (insira -1 para calcular automaticamente uma altura com base nas dimensões do modelo 3D).

Valor de retorno

Forma

Exemplo

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

Set mySlide = Application.ActivePresentation.Slides(1) 
Set myShape = mySlide.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.