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