Shapes.Add3DModel メソッド (PowerPoint)

Model3DFormat オブジェクトを既存のファイルから作成します。 新しい 3D モデルを表すShape オブジェクトを返します。

構文

表現。Add3DModel (FileName、 LinkToFile、 SaveWithDocument、 左、 上、 幅、 高さ)

表現Shapes オブジェクトを表す変数です。

パラメーター

名前	必須 / オプション	データ型	説明
FileName	必須	String	3D モデル オブジェクトが作成されるファイル。
LinkToFile	必須	MsoTriState	作成されたファイルに 3D モデルをリンクさせるかどうかを決定します。
SaveWithDocument	必須	MsoTriState	リンクされた 3D モデルを挿入されたドキュメントと一緒に保存するかどうかを決定します。 もし LinkToFile が msoFalse の場合、この引数は msoTrue に設定する必要があります。
Left	必須	Single	スライドの左端に対して 3D モデルの左端の、ポイント単位で測定された位置。
Top	必須	Single	スライドの上端に対して 3D モデルの上端の、ポイント単位で測定された位置。
Width	オプション	Single	ポイント単位の 3D モデルの幅 (3D モデルの寸法に基づいて幅を自動計算するには -1 を入力してください)。
Height	オプション	Single	ポイント単位の 3D モデルの高さ (3D モデルの寸法に基づいて高さを自動計算するには -1 を入力してください)。

戻り値

Shape

例

この例は、Sphere.glb のファイルから作成された 3D モデルを mySlide に追加します。 挿入された 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 のサポートおよびフィードバックを参照してください。