Shapes.Add3DModel 方法 (Word)

在繪圖畫布上新增 3D 模型。 傳回 Shape 物件，代表 3D 模型並將其新增至 CanvasShapes 集合。

語法

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

需要 expression。 代表 Shapes 集合的變數。

參數

名稱	必要/選用	資料類型	描述
FileName	必要	String	3D 模型的路徑和檔案名稱。
LinkToFile	選用	Variant	True 表示將 3D 模型連結至建立它的來源檔案。 False 表示將 3D 模式設定為獨立的檔案副本。 預設值為 False。
SaveWithDocument	選用	Variant	True 表示將連結的 3D 模型與文件儲存在一起。 預設值為 False。
Left	選用	Variant	新 3D 模型的左邊緣相對於繪圖畫布的位置 (以點為測量單位)。
Top	選用	Variant	新 3D 模型的上方邊緣相對於繪圖畫布的位置 (以點為測量單位)。
Width	選用	Variant	3D 模型的寬度 (以點為單位) (輸入 -1 可根據 3D 模型維度自動計算寬度)。
Height	選用	Variant	3D 模型的高度 (以點為單位) (輸入 -1 可根據 3D 模型維度自動計算高度)。

傳回值

圖形

範例

本範例會將 3D 模型內嵌到使用中文件中新建立的繪圖畫布。

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

支援和意見反應

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