Public Sub Add(ByVal
CB As CommandBar _ , ByVal Before As Long) 引数CBで指定されるコマンドバーに[モジュールの取込み、書出し、削除...]ボタンを貼付けます。 |
Public Sub Delete() [モジュールの取込み、書出し、削除...]ボタンをAddメソッドの引数CBで指定したコマンドバーから削除します。 |
Private Sub m_CBE_Click(ByVal
CommandBarControl As Object, handled As Boolean, CancelDefault As
Boolean) [モジュールの取込み、書出し、削除...]ボタンが押下された時に呼び出されます。 |
Add |
引数CBで指定されるコマンドバーに [モジュールの取込み、書出し、削除...]ボタンを貼付けます。in引数:
CB: [モジュールの取込み、書出し、削除...]ボタンを貼付けるコマンドバーを指定します。発生する実行時エラー:
Before: [モジュールの取込み、書出し、削除...]ボタンを貼付ける場所を指定します。
1000:すでにAddされてた場合
※1:それ以外の場合はVBA標準の実行時エラーが発生します。(例えば、引数CBがNothingだった場合)
※2:実行時エラーが発生した場合、ボタンの貼付けはしません。
Delete |
Addメソッド後に呼び出した場合、 [モジュールの取込み、書出し、削除...]ボタンを
Addメソッド の引数CBで指定したコマンドバーから削除し、
再度、Addメソッドを呼び出す事が出来るようにな ります。
既に削除済みの場合、Addメソッドを呼び出す前だった場合は、何も起こりません。
m_CBE_Click |
"モジュールの取込み、書出し、削除...”を押したときの処理です。