EXCELのアドインにつきまして

質問

Excel2003のアドインをVB6.0を使ってDllを作成しています。カスタムプロパティを取得できずに困っています。

http://support.microsoft.com/kb/238228/ja サイト内の「Implements を使用して COM アドインを作成する 」のソースを参考にしています。これで作成したＤＬＬでの動きはＯＫでした。

したい事は、Excelを開いた時にカスタムプロパティを取得したいのです。Excelに「文書番号」というカスタムプロパティを設定して
ツールバーのボタンクリック時に「MsgBox oHostApp.ActiveWorkbook.CustomDocumentProperties.Item("文書番号").Value」として取得できました。しかしブックを開いた時に取得したのです。
どのイベントで取得したらいいのか分かりません。
具体的に教えていただければ幸いです。
-----------------------------------------------
Yahooでも投稿してご回答を頂いたのですが、
その回答への投稿ができなったので、こちらへも投稿した
次第です。今後は行いませんのでご容赦下さい。
---------------------------------------------------

回答No.1

redfox63

ワークブックを開いたときのイベントは Excel.ApplicationクラスのWorkbookOpenイベントをComAdin側で処理することになりそうです

『Microsoft Excel 11.0 Object Liblary』を参照設定する
クラスモジュールに
Dim WithEvents oExcel as Excel.Application
を追加します

IDTExtensibility2_OnStartupCompleteイベントの最後の方で
if oHostApp.Name = "Microsoft Excel" then
　　Set oExcel = oHostApp
End if

IDTExtensibility2_OnBeginShutdownの最後に
Set oExcel = Nothing
を追加

ブックを開いた際ののイベントを記述
Private Sub oExcel_WorkbookOpen(ByVal Wb As Excel.Workbook)
　　If oExcel.Workbooks(1).CustomDocumentProperties.Count Then
　　　　MsgBox oExcel.Workbooks(1).CustomDocumentProperties("文書番号").Value
　　End If
End Sub

お礼

できました！
ありがとうございました。
適切な回答でした。