共用方式為


Shapes.Add3DModel 方法 (PowerPoint)

從現有的檔案建立 Model3DFormat 物件。 會傳回代表新 3D 模型的 Shape 物件。

語法

expression.Add3DModel (FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)

expression 代表 Shapes 物件的變數。

參數

名稱 必要/選用 資料類型 描述
FileName 必要 String 要建立 3D 模型物件的來源檔案。
LinkToFile 必要 MsoTriState 決定是否要將 3D 模型連結至建立它的來源檔案。
SaveWithDocument 必要 MsoTriState 決定是否要將連結的 3D 模型與其插入的目的地文件一起儲存。 如果 LinkToFile 為 msoFalse,此引數必須是 msoTrue
Left 必要 Single 3D 模型的左邊緣相對於投影片左邊緣的位置 (以點為測量單位)。
Top 必要 Single 3D 模型的上方邊緣相對於投影片上方邊緣的位置 (以點為測量單位)。
Width 選用 Single 3D 模型的寬度 (以點為測量單位) (輸入 -1 可根據 3D 模型維度自動計算寬度)。
Height 選用 Single 3D 模型的高度 (以點為測量單位) (輸入 -1 可根據 3D 模型維度自動計算高度)。

傳回值

圖形

範例

本範例在 mySlide 中新增從 Sphere.glb 檔案建立的 3D 模型。 插入的 3D 模型會內嵌在使用中的文件中。

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 )

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應