NameLocalプロパティ使って、ローカライズ版(日本語版)に表示される組み込み
のコマンドバーの名前を取得することができます。値の取得のみ可能です。または、
ユーザー設定のコマンドバーの名前を設定します。この場合は、値の取得および設定が
可能です。いずれの場合も、文字列型(String)の値を使用します。
次の使用例は、コンテナアプリケーションの先頭のコマンドバーの英語名と日本語名
を表示します。
● サンプル1 ●
Sub Sample1()
With CommandBars(1)
MsgBox "このコマンドバーの英語名 : " & .Name
MsgBox "このコマンドバーの日本語名 : " & .NameLocal
End With
End Sub
このプロパティを組み込みのコマンドバーに設定すると、エラーが発生します。
組み込みのコマンドバーのローカル名は、コマンドバーが固定されていない場合に
タイトルバーに表示されます。
ユーザー設定のコマンドバーのNameLocalプロパティの値を変更すると、Nameの値も
同様に変更されます。また、その逆の場合も同じです。
次のサンプルプロシージャを実行すると、全てのコマンドバーのローカル名が、
イミディエイトウィンドウに出力されます。
● サンプル2 ●
Sub Sample2()
Dim cbr As CommandBar
For Each cbr In CommandBars
Debug.Print cbr.NameLocal
Next cbr
End Sub
|