次の方法で共有

Shapes.AddOLEObject メソッド (PowerPoint)

OLE オブジェクトを作成します。 新しい OLE オブジェクトを表す Shape オブジェクトを返します。

構文

expression。 AddOLEObject( _Left_, _Top_, _Width_, _Height_, _ClassName_, _FileName_, _DisplayAsIcon_, _IconFileName_, _IconIndex_, _IconLabel_, _Link_ )

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

パラメーター

名前 必須 / オプション データ型 説明
Left 省略可能 単精度浮動小数点型 (Single) スライドの左上端を基準に、新規に作成するオブジェクトの左上端の位置をポイント単位で指定します。 既定値は 0 です。
Top 省略可能 単精度浮動小数点型 (Single) スライドの左上端を基準に、新規に作成するオブジェクトの左上端の位置をポイント単位で指定します。 既定値は 0 です。
Width オプション 単精度浮動小数点型 (Single) OLE オブジェクトの初期幅をポイント単位で指定します。
Height オプション 単精度浮動小数点型 (Single) OLE オブジェクトの初期高さをポイント単位で指定します。
ClassName 省略可能 String 作成するオブジェクトの OLE long クラス名または ProgID。 オブジェクトには ClassName 引数または FileName 引数を指定する必要がありますが、両方を指定することはできません。
FileName 省略可能 String オブジェクトの作成元ファイルを指定します。 パスを指定しない場合は、現在の作業フォルダーが使用されます。 オブジェクトには ClassName 引数または FileName 引数を指定する必要がありますが、両方を指定することはできません。
DisplayAsIcon 省略可能 MsoTriState OLE オブジェクトをアイコンで表示するかどうかを指定します。
IconFileName 省略可能 String 表示するアイコンを含むファイル名を指定します。
IconIndex 省略可能 長整数型 (Long) 引数 IconFileName 内のアイコンのインデックスを指定します。 ファイルの最初のアイコンは、インデックス番号が 0 となります。 指定したインデックス番号のアイコンが IconFileName に存在しない場合は、インデックス番号 1 (ファイルの 2 つ目のアイコン) のアイコンが使用されます。 既定値は、0 (ゼロ) です。
IconLabel 省略可能 String アイコンの下に表示するラベル (標題) を指定します。
Link 省略可能 MsoTriState OLE オブジェクトを作成元ファイルにリンクするかどうかを決定します。 クラス名の値を指定した場合、この引数は msofalse に設定 をする必要があります。

戻り値

Shape

例

次の使用例は、myDocument にリンクが設定された Word 文書を追加します。

Set myDocument = ActivePresentation.Slides(1) 
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _ 
    Width:=200, Height:=300, _ 
    FileName:="c:\my documents\testing.doc", Link:=msoTrue

次の使用例は、myDocument に新規の Excel のワークシートを追加します。 ワークシートはアイコンで表示されます。

Set myDocument = ActivePresentation.Slides(1) 
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _ 
    Width:=200, Height:=300, _ 
    ClassName:="Excel.Sheet", DisplayAsIcon:=True

次の使用例は、myDocument にコマンド ボタンを追加します。

Set myDocument = ActivePresentation.Slides(1) 
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _ 
    Width:=150, Height:=50, ClassName:="Forms.CommandButton.1"

関連項目

Shapes オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on