組み込みのコマンドバーの名前を取得する(ローカライズ版 (日本語版))
 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

Access2000



戻る


Excel Word Access VBA! モーグ