VBA(Microsoft Word)でツールバーボタンを変更する
特定のツールバーボタンを押すと、外観が異なるように変更されます。たとえば、太字ツールを押すと、ツールは押し下げられているかのように別の外観になります。これは、2つの異なるボタングラフィックを使用してWordによって実行されます。 1つは「選択されていない」外観で、もう1つはボタンがクリックされたときに表示されます。
カスタムツールバーボタンでも同様のトリックを使用できます。これがどのように機能するかの例として、頻繁に使用するツールバーがあるとします。このツールバーに「サンプラー」という名前を付けました。別のツールバーのボタンをクリックしたときにこのツールバーが表示されるようにします。
まず、「サンプラー」ツールバーを切り替える単一のボタンを含む新しいツールバーを作成する必要があります。この例では、新しいツールバーの名前は「switcher」になります。次のVBAマクロは、「スイッチャー」ツールバーのボタンに割り当てることができます。
Sub SwitchTools() ' First check if the toolbar is shown or hidden If CommandBars("sampler").Visible Then ' Hide the toolbar and change the button image to "normal" CommandBars("sampler").Visible = False CommandBars("switcher").Controls(1).State. = msoButtonUp Else ' Show the button and change the button image to "selected" CommandBars("sampler").Visible = True CommandBars("switcher").Controls(1).State = msoButtonDown End If End Sub
このマクロは、ボタンの状態を(msoButtonUpとmsoButtonDownを使用して)切り替えて、目的の外観にします。
注:
このページ(または_WordTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。
_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。
(Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。)このヒント(1122)は、Microsoft Word 97、2000、2002、および2003に適用されます。