スキルアップ・問題解決なら、モーグにおまかせ！

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