Excel VBA から埋め込み PowerPoint を編集する

Question

Excel ワークブックに PowerPoint プレゼンテーションが埋め込まれています。VBA を使用してこれを編集 (開く、スライドをコピー、スライドにデータを追加、閉じる) するにはどうすればよいですか?

Answer 1

1.PowerPoint オブジェクト モデルへの参照を VBA アプリケーションに追加します。

VBA ウィンドウから、 ツール|参照
探す Microsoft Powerpoint 12.0 オブジェクト ライブラリ そしてそれをチェックしてください

2.PowerPoint プレゼンテーション オブジェクトを選択してアクティブ化します。

ActiveSheet.Shapes("Object 1").Select
Selection.Verb Verb:=xlOpen

注記：このコードは、PowerPoint オブジェクトの名前が次であることを前提としています。 オブジェクト 1 (左上隅を見て実際の名前を確認してください)、アクティブ シート上にあることを確認します。

3.Presentation オブジェクトへの参照を取得します。

Dim p As PowerPoint.Presentation
Set p = Selection.Object

4.それを操作してください

プレゼンテーション オブジェクトのすべてのメソッドとプロパティを使用できます。スライドを追加する例を次に示します。

p.Slides.Add 1, ppLayoutBlank

5.選択を解除します

最も簡単な方法は、セルを選択することです。

[a1].Select

お役に立てば幸いです!