Shapes.Add3DModel メソッド (Excel)Shapes.Add3DModel method (Excel)

既存のファイルから、3D モデルを作成します。Creates a 3D model from an existing file. 新しい 3D モデルを表す**Shape** オブジェクトを返します。Returns a Shape object that represents the new 3D model.

構文Syntax

表現Add3DModel (FileNameLinkToFileSaveWithDocument高さ)expression.Add3DModel (FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)

表現 Shapes オブジェクトを表す変数です。expression A variable that represents a Shapes object.

パラメーターParameters

名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
FileNameFileName 必須Required StringString 3D モデルが作成されるファイル。The file from which the 3D model is to be created.
LinkToFileLinkToFile オプションOptional VariantVariant 作成されたファイルに 3D モデルをリンクさせるかどうかを決定します。Determines whether the 3D model will be linked to the file from which it was created.
SaveWithDocumentSaveWithDocument オプションOptional VariantVariant リンクされた 3D モデルを、挿入先のドキュメントと一緒に保存するかどうかを決定します。Determines whether the linked 3D model will be saved with the document into which it is inserted.
LeftLeft 省略可能Optional VariantVariant ドキュメントの左上隅を基準にした、3D モデルの左上隅の位置 (ポイント単位)。The position (in points) of the upper-left corner of the 3D model relative to the upper-left corner of the document.
TopTop 省略可能Optional VariantVariant ドキュメントの上端を基準にして、3D モデルの左上隅の位置(ポイント単位)。The position (in points) of the upper-left corner of the 3D model relative to the top of the document.
WidthWidth オプションOptional VariantVariant ポイント単位の 3D モデルの幅 (3D モデルの寸法に基づいて幅を自動計算するには -1 を入力してください)。The width of the 3D model, in points (enter -1 to auto-calculate a width based on the 3D model dimensions).
HeightHeight オプションOptional VariantVariant ポイント単位の 3D モデルの高さ (3D モデルの寸法に基づいて高さを自動計算するには -1 を入力してください)。The height of the 3D model, in points (enter -1 to auto-calculate a height based on the 3D model dimensions).

戻り値Return value

ShapeShape

注釈Remarks

LinkToFile パラメーターの値は、MsoTriState 定数のいずれかです。The value of the LinkToFile parameter can be one of these MsoTriState constants.

定数Constant 説明Description
msoCTruemsoCTrue サポートされていません。Not supported.
msoFalsemsoFalse 3D モデルをファイルの独立コピーの状態にするには。To make the 3D model an independent copy of the file.
msoTriStateMixedmsoTriStateMixed サポートされていません。Not supported.
msoTriStateTogglemsoTriStateToggle サポートされていません。Not supported.
msoTruemsoTrue 3D モデルを作成元のファイルにリンクするには。To link the 3D model to the file from which it was created.

SaveWithDocument パラメーターの値は**MsoTriState **定数のいずれかです。The value of the SaveWithDocument parameter can be one of these MsoTriState constants.

定数Constant 説明Description
msoCTruemsoCTrue サポートされていません。Not supported.
msoFalsemsoFalse ドキュメント内のリンク情報だけを保存するには。To store only the link information in the document.
msoTriStateMixedmsoTriStateMixed サポートされていません。Not supported.
msoTriStateTogglemsoTriStateToggle サポートされていません。Not supported.
msoTruemsoTrue リンクされた 3D モデルを挿入先のドキュメントと一緒に保存するには。To save the linked 3D model with the document into which it is inserted. もし LinkToFilemsoFalseの場合は、この引数を msoTrue に設定する必要があります。This argument must be msoTrue if LinkToFile is msoFalse.

Example

この例は、Sphere.glb のファイルから作成された 3D モデルを mySlide に追加します。This example adds a 3D model created from the file sphere.glb to mySheet. 挿入された 3D モデルは、作業中のドキュメントに埋め込まれます。The inserted 3D model is embedded in the active document.

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 )

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.