Shapes.AddOLEObject メソッド (PowerPoint)
OLE オブジェクトを作成します。 新しい OLE オブジェクトを表す Shape オブジェクトを返します。
構文
式。 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"
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。