次の方法で共有


Shapes.Add3DModel メソッド (PowerPoint)

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

構文

表現Add3DModel (FileNameLinkToFileSaveWithDocument高さ)

表現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 のサポートおよびフィードバックを参照してください。