クイックアクセスツールバーにあるボタンの状態を制御する方法

Question

フォームがアクティブなときに有効なボタンを "クイックアクセスツールバー" に追加しました。

フォーム以外がアクティブなときには このボタンを非表示又は使用不可にしたいと思います。

これを実現できるイベント等のトリガはあるでしょうか。

可視の制御自体は以下の方法で行えると思っています。

<XML>

    <mso:control idQ="mso:MyUndo" visible="SetVisibule"/>

<VBA>

    Sub SetVisibule(control As IRibbonControl, ByRef visible)

        If obj = acform Then

              visible = True

        Else

              visible = False

        End If

    End Sub

Answer 1

MukkuMukuです。

テーブルを開いたときなどアクティブなオブジェクト専用のツールタブがリボンには表示されます。

ということは内部的には何等かきっかけを持っているはずですが、公開されているイベントはない

と認識しています。

テーブル/クエリが開かれて目に見える実態はデーターシートフォームではあるから、

テーブルが開かれてアクティブであるとき

    Screen.ActiveDatasheet.OnCurrent = "=UserDefinedFunction()"

ということは擬似的にできなくもないですが、おそらく要件を満たさないでしょう。

Enabled / Visible にこだわりがなければ簡単な話なんでしょうけど、

どうしてもなら、ウィンドウ メッセージのフックなどを切っ掛けとする感じでしょうか。

これについては、私にとっては不要なアイデアなので検討をしていません。

Answer 2

MukkuMukuさん、こんにちは。

>ということは内部的には何等かきっかけを持っているはずですが、公開されているイベントはない

>と認識しています。

 やはりないのですね。[Undo], [Redo] の状態が変わるので何かしら方法が知られているのかと期待したのですが残念です。

データを出力するためのボタンなのでいちいち[アドイン]タブを開いてからボタンを押すのも面倒なので クイックアクセスツールバーにボタンを追加し直したのでした。

> どうしてもなら、ウィンドウ メッセージのフックなどを切っ掛けとする感じでしょうか。

  なるほど、そういう方法がありましたか。ちょっと検討してみます。

いろいろご教示ありがとうざいました。

Answer 3

MukkuMuku さん、こんにちは。

いつも回答有り難うございます。

 以前のAccessですと、クエリ用のツールバー、フォーム用のツールバーというようにアクティブなオブジェクトによって表示されるツールーバーが変わりました。

 これと同じタイミングでボタンを非表示又は使用不可に切り替えたいのです。

フォームの数も多いですし、テーブルやクエリでも同じようなことをしたいと思っています。

アクティブなオブジェクトの種類が変わったときに発生するイベントはないものでしょうか。

Answer 4

MukkuMukuです。こんばんは。

フォームなどアクティブなどを契機に切り替える程度ならなら、VBAは不要でしょう。

TypeA

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">

  <ribbon startFromScratch="true">

    <qat>

      <sharedControls>

        <control idMso="Undo"/>

      </sharedControls>

      <documentControls>

        <control idMso="Redo"/>

      </documentControls>

    </qat>

  </ribbon>

</customUI>

TypeB

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">

  <ribbon startFromScratch="true">

    <qat>

      <sharedControls>

        <control idMso="Redo"/>

      </sharedControls>

      <documentControls>

        <control idMso="Undo"/>

      </documentControls>

    </qat>

  </ribbon>

</customUI>

という感じにいくつか用意して、フォームもしくはレポートの"Ribbon Name / リボン名"プロパティに

指定すれば自動で切り替わる動作をします。

任意のイベントでリボンを操作したいということに拡張するならば、

customUI要素のonLoad属性で指定したプロシージャで、IRibbonUI を参照して

任意のイベントで InvalidateControl メソッドなどを実行する感じです。