読書記録ChangeLog / 2005-07-14

Excelと違ってメニューとツールバーを作ったり壊したり
するタイミングが難しい。
AutoExec()はAddinInstall()見たいな便利なものじゃないみたい。
Acrobatのwordツールバーみたいにならんかな？
---ThisDocument
'クラスモジュールAppEventをインスタンス化
Dim myApp As New AppEvent

'アドイン追加時に実行する。
'startupフォルダに入れている場合word開始時にも実行する。
'メニューバーコマンドバーの作成などを行う。
Sub AutoExec()
'ApplicationをセットするとWordのイベントを検知できるようになる。
    Set myApp.App = Application
    MsgBox "AutoExec"
End Sub

'アドイン削除時に実行
'word終了時にも実行する。
'メニューバーコマンドバーの削除などを行う。
Sub AutoExit()
    MsgBox "AutoExit"
End Sub
---AppEvent(クラスモジュール)
Public WithEvents App As Application
Private Sub App_WindowActivate(ByVal Doc As Document, ByVal Wn As Window)
'wordはSDIなのでこのeventでActiveDocumentの切り替えを検知できる。
'ActiveDocumentのステータスにあわせてメニューバーツールバーを
'変更したりする。
    MsgBox "App_WindowActivate" & ActiveDocument.Name
End Sub

[ 固定リンク

]

■ 最小のアドイン(Excel)

---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

[ 固定リンク

]

■ VBA Tips

- tortoiseProcの場所をレジストリから取得する。
strTSVN = CreateObject("WScript.Shell").RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\TortoiseSVN\ProcPath")
- ファイルは存在するか？(bool)
CreateObject("Scripting.FileSystemObject").FileExists("ファイル名")
- 外部コマンドを実行
CreateObject("WScript.Shell").Run "コマンドライン"
- 外部コマンドを実行＆完了待ち（外部コマンドの終了を待って何かをしたい場合）
CreateObject("WScript.Shell").Run "コマンドライン", , True
-AcitveHoge
ActiveWorkbook(Excel),ActiveDocument(Word),ActivePresentation(PowerPoint)など。
ActiveHoge.Saved,ActiveHoge.Name
ActiveHoge.Path,ActiveHoge.FullName
名前どおりの変数。
- エラーを無視する
On Error Resume Next
Excel2000にはないPictureプロパティを使用するために入れている。