ExcelとPowerPointをVBAで連携させる方法

おけましておめでとうございます。
本年もよろしくお願いします。
で、本題ですが、
（Win95でExcel2000とPowerPoint2000を使用）
EXCELのデータベースの表を順々にPowerPointのテキストボックスへ
コピーして印刷するためにVBAを作成したいと思ってます。
（印刷形式がPowerPointのため）
ここには作成できるんですが、両者のVBAをどのように
連携させるかわかりません。
よろしくご教授ください。

また、PowerPointのVBAでマクロの記録を使わず、オブジェクト名
（("Text Box 1")とか）を知る方法もあわせてよろしくご教授ください。

No.1 回答者： nta 回答日時： 2003/01/05 07:24

Application　というオブジェクトがVBAを実行しているExcelやPowerPoint自体を指しますが、そこから他のアプリケーションを呼び出すためにはCreateObject関数を用います。

CreateObjectをヘルプで検索してみて下さい。例えば、PowerPointのVBAからExcelのワークシート（シート名Sheet1.xls)のsheet1にあるA1セルの値を呼び出すには

Set ExcelWorksheet = GetObject("SHEET1.XLS")
ExcelWorksheet.Application.Sheets("Sheet1").Cells(1,1)
などとします。一度GetObjectを実行すると後はExcelWorksheetという変数を使ってExcelのシートを制御することができます。

オブジェクト名はNameプロパティで拾うことはできると思いますが、Itemメソッドでコレクションから選ばれたオブジェクトの番号が編集や保存によって並べ替えられるため、他のプロパティを使って特定する必要があります。

この回答へのお礼

さっそくのご返答ありがとうございます。
CreateObjectでヘルプをひっぱり試してみたいと思います。
またわからないことがありましたらお願いします。

お礼日時：2003/01/06 23:29

No.2 回答者： nta 回答日時： 2003/01/07 06:58

すでにお気づきかもしれませんが、お恥ずかしい話

CreateObjectについて述べながら、ファイルを開く方のGetObjectを例に挙げてしまいました。両方をヘルプで調べてみてください。
恥の上塗りにならないよう簡単に訂正しておきます。

この回答へのお礼

実際に使ってみて動くことがわかりました。
どうもありがとうございます。

で、補足として書いた
PowerPointのVBAでマクロの記録を使わず、オブジェクト名
("Text Box 1")とか）を知る方法がわかる方いないでしょうか？

お礼日時：2003/01/07 18:22

No.3 回答者： nta 回答日時： 2003/01/07 19:19

オブジェクト名を具体的に取得するには

For i = 1 To Application.ActiveWindow.Selection.SlideRange.Shapes.Count
name1 = Application.ActiveWindow.Selection.SlideRange.Shapes.Item(i).Name
Next i

とすればどこかにありますが、問題はItemの何番目が該当するのかということです。この番号は編集や保存によって変化しますので、Textプロパティ（書かれているべき文字列)などで判別する必要があります。

この回答への補足

そうすると、オブジェクト名はＶＢＡを使わずにパワーポイント上だけでは
確認しようが無いと言うことでしょうか。
また、ユーザー側では勝手につけられないって事でしょうか。

補足日時：2003/01/10 07:43

No.4 ベストアンサー 回答者： nta 回答日時： 2003/01/10 13:16

＞オブジェクト名はＶＢＡを使わずにパワーポイント上だけでは確認しようが無いと言うことでしょうか。

絶対できないとまでは断言できる自信はないのですが、少なくともその方法は知りません。

オブジェクト名はVBAを使えば変更することはできます。
Application.ActiveWindow.Selection.SlideRange.Shapes.Item(1).Name = "New Name 1"

だだ、この設定した名称が勝手に変更されることはないのかどうか自信がありません。少なくとも自動的に生成した「オブジェクト名」は勝手に変更されてしまいます。

この回答へのお礼

どうもありがとうございました。
大変参考になりました。

お礼日時：2003/01/11 14:41