読書記録ChangeLog

---ThisWorkbook
'クラスモジュールAppEventをインスタンス化
Dim myApp As New AppEvent

'アドイン追加時に実行する。
'メニューバーコマンドバーの作成などを行う。
Private Sub Workbook_AddinInstall()
MsgBox "Workbook_AddinInstall"
End Sub

'アドイン削除時に実行
'メニューバーコマンドバーの削除などを行う。
Private Sub Workbook_AddinUninstall()
MsgBox "Workbook_AddinUninstall"
End Sub

'アドインファイルを開く時に実行。
Private Sub Workbook_Open()
'ApplicationをセットするとExcelのイベントを検知できるようになる。
Set myApp.App = Application
End Sub
---AppEvent(クラスモジュール)
Option Explicit
Public WithEvents App As Application
Private Sub App_WorkbookActivate(ByVal Wb As Workbook)
'excelはMDIなのでこのeventでActiveWorkbookの切り替えを検知できる。
'ActiveWorkbookのステータスにあわせてメニューバーツールバーを
'変更したりする。
    MsgBox "App_WorkbookActivate" & ActiveWorkbook.Name
End Sub

固定リンク [2005-07-14-7]