White Tiger

Microsoft Excel VBA - 組み込みツールバーを復元する方法

◆概要

このページは、Excel97のVBAで組み込みツールバーを復元する方法について記載しています。



組み込みツールバーがユーザーの操作または Visual Basic のプロシージャによって変更された場合、 Reset メソッドを使うと、そのツールバーを元の状態に戻すことができます。このメソッドによってツール バーを復元する操作は、[ユーザー設定]ダイアログ ボックスの[ツールバー]タブで組み込みツールバーの名前を選択し、[リセット]をクリックする操作に対応します。

◆Sample code
次のコードは、Excel97でのみ動作確認できています。Excel2002ではエラーが発生します。

Sub ResetToolbars()
'組み込みツールバーを復元する

    Dim cb As Object

    For Each cb In CommandBars
        If cb.BuiltIn Then
            cb.Reset
        Else
            cb.Delete
        End If
    Next

End Sub

Link