レンは日常的にすべての図をテキストボックス内に配置します。彼は、テキストボックスが互いに重ならないようにフォーマットします。 （彼は[レイアウト]ダイアログボックスを表示し、[位置]タブで[オーバーラップを許可]チェックボックスをオフにします。）レンはこの設定をデフォルトでクリアしたいと考えていますが、常にデフォルトでオーバーラップを許可しているようです。彼はそれを完全にオフにする方法があるかどうか疑問に思います。

残念ながら、完全にオフにする方法はないようです。Wordはデフォルトでオーバーラップを許可しているだけです。ただし、役立つ可能性のあるマクロをいくつか作成することはできます。 1つ目は、選択したテキストボックスの重なり設定を設定します。

Sub AllowOverlapFalse()

Selection.ShapeRange.WrapFormat.AllowOverlap = False End Sub

あなたがする必要があるのはあなたのテキストボックスを作成し、それを選択し、そしてマクロを実行することです。タスクをすばやく簡単に実行できるように、ショートカットキーに割り当てることもできます。

もう1つのアプローチは、この最初のアプローチに似ていますが、ドキュメント内のすべてのテキストボックスで機能します。したがって、必要なすべてのテキストボックスを作成してから、このマクロを実行できます。

Sub FixTextBoxOverlap()

Dim s As Shape

For Each s In ActiveDocument.Shapes         If s.Type = msoTextBox Then             s.WrapFormat.AllowOverlap = False         End If     Next End Sub

これらのマクロからわかるように、テキストボックスはVBAの世界では図形のように扱われます。このマクロは、定義されたすべての形状をステップスルーする際に、実際にはテキストボックスである形状にのみ影響することを確認します。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（13631）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice365のWordに適用されます。