ドキュメントのリボンを最小化する(Microsoft Word)
Donnaは、会社全体で使用されるドキュメントの作成を担当しています。彼女は、ドキュメントを開いたときに画面上部のリボンを「最小化」し、閉じたときにリボンを「開封前」の状態に戻したいと考えています。これは、ドキュメントの最大画面領域を提供するために行われます。 Donnaは、これを実行するにはマクロが必要だと考えていますが、タスクを実行するためにどのコマンドを使用すればよいかわかりません。
VBAでリボンを操作する際に利用できる情報が驚くほど不足しています。実際、リボンを最小化するために私たちが見つけた唯一の方法は次のとおりです。
ActiveWindow.ToggleRibbon
この方法は、Ctrl + F1を押すのと同じです。リボンを切り替えて、最大化から最小化に、またはその逆に変更します。もちろん、これはドナがやりたいことではありません。彼女はそれが最小化されていることを確認したいと考えています。 ToggleRibbonメソッドを使用すると、リボンが最小化されているかどうかを判断する方法を「ファッジ」できます。次のサンプルマクロについて考えてみます。
Dim w As Variant Dim h1 As Long Dim h2 As Long Dim StartedWithRibbon As Boolean Private Sub Document_Open() Set w = ActiveWindow h1 = w.UsableHeight w.ToggleRibbon h2 = w.UsableHeight If h1 < h2 Then StartedWithRibbon = False Else StartedWithRibbon = True w.ToggleRibbon End If End Sub
Private Sub Document_Close() Set w = ActiveWindow h1 = w.UsableHeight w.ToggleRibbon h2 = w.UsableHeight If h2 < h1 Then If StartedWithRibbon Then w.ToggleRibbon Else If Not StartedWithRibbon Then w.ToggleRibbon End If End Sub
ここには実際には2つのマクロがあります。1つはドキュメントを開いたときに自動的にトリガーされ、もう1つはドキュメントを閉じたときにトリガーされます。マクロはアクティブなウィンドウの高さをチェックし、それをh1変数に格納します。次に、リボンを切り替えて、アクティブなウィンドウの高さを再度チェックし、h2に保存します。 2つの値を比較することにより、リボンが最小化されているかどうかを判断し、それに応じて動作することができます。
注:
このページ(または_WordTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。
_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。
(Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。)このヒント(8515)は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice365のWordに適用されます。