Shapes.Add3DModel 方法 (Excel)

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

語法

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

expression 代表 Shapes 物件的變數。

參數

名稱	必要/選用	資料類型	描述
FileName	必要	String	要建立 3D 模型的來源檔案。
LinkToFile	選用	Variant	決定是否要將 3D 模型連結至建立它的來源檔案。
SaveWithDocument	選用	Variant	決定是否要將連結的 3D 模型與其插入的目的地文件一起儲存。
Left	選用	Variant	3D 模型的左上角相對於文件左上角的位置 (以點為單位)。
Top	選用	Variant	3D 模型的左上角相對於文件上方的位置 (以點為單位)。
Width	選用	Variant	3D 模型的寬度 (以點為單位) (輸入 -1 可根據 3D 模型維度自動計算寬度)。
Height	選用	Variant	3D 模型的高度 (以點為單位) (輸入 -1 可根據 3D 模型維度自動計算高度)。

傳回值

圖形

註解

LinkToFile 參數值可以是下列其中一個 MsoTriState 常數。

常數	描述
msoCTrue	不支援。
msoFalse	將 3D 模式設定為獨立的檔案副本。
msoTriStateMixed	不支援。
msoTriStateToggle	不支援。
msoTrue	將 3D 模型連結至建立它的來源檔案。

SaveWithDocument 參數值可以是下列其中一個 MsoTriState 常數。

常數	描述
msoCTrue	不支援。
msoFalse	只在文件中儲存連結資訊。
msoTriStateMixed	不支援。
msoTriStateToggle	不支援。
msoTrue	將連結的 3D 模型與其插入的目的地文件儲存在一起。 如果 LinkToFile 為 msoFalse，此引數必須是 msoTrue。

範例

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

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 )

支援和意見反應

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