Word 文書で画像をクリックして拡大または展開するには、どうすればよいですか？

著者Siluvia変更日2025-04-09

Word 文書に画像を挿入すると、視覚的な魅力と効果が大幅に向上します。ただし、細部が重要な画像を扱う場合やスペースを節約したいときは、読者がクリックして画像を拡大し、詳細を確認できるようにすると便利です。Word には標準で「クリックして画像を拡大」する機能はありませんが、この効果を実現するための回避策があります。

本チュートリアルでは、クリックすると拡大または展開されるインタラクティブな画像の作成手順をご紹介し、Word 文書の魅力と機能性をさらに高める方法をお伝えします。

VBA コードでクリックして画像を拡大または展開する

Kutools for Word で一度にすべての画像をサイズ変更

VBA コードでクリックして画像を拡大または展開する

次の VBA コードを使えば、Word 文書内の画像をクリックするだけで拡大表示できます。以下の手順に従ってください：

画像を含むWord 文書を開き、Alt + F11を押して「Microsoft Visual Basic for Applications」ウィンドウを起動します。

「Microsoft Visual Basic for Applications」ウィンドウで、「挿入」＞「クラスモジュール」をクリックし、表示された「クラスモジュール」ウィンドウに以下のコードをコピーしてください。

Public WithEvents GApp As Word.Application
'Updated by ExtendOffice 20181129
Private Sub GApp_WindowSelectionChange(ByVal Sel As Selection)
    Dim xShape As InlineShape
    On Error Resume Next
    Set xShape = Sel.InlineShapes(1)
    xShape.Height = 200
    xShape.Width = 200
End Sub

注：コード内の数値200 は、拡大後の画像の高さと幅をポイント（pt）単位で指定しています。この値はお好みに応じて調整可能です。

次に、「挿入」>「標準モジュール」をクリックし、以下のコードを「標準モジュール」ウィンドウにコピーします：
```
Dim cls As New Class1
'Updated by ExtendOffice 20181129
Sub register_Event_Handler()
    Set cls.GApp = Word.Application
End Sub
```
F5を押してコードを実行し、「Microsoft Visual Basic for Applications」ウィンドウを閉じてください。
これで、文書内の画像をクリックすると、指定されたサイズに拡大表示されるようになります。スクリーンショットをご参照ください。

Kutools for Word で一度にすべての画像をサイズ変更

Kutools for Word「画像のサイズ変更」ユーティリティを使えば、Word 文書内のすべての画像を、パーセンテージで指定したり、選択した画像に合わせたり、特定の寸法やスケールで設定したりして、簡単にサイズ変更できます。

すべての画像を元の元のサイズの特定のパーセンテージにサイズ変更するには：
- 「KUTOOLS PLUS」＞「サイズ変更」をクリックし、ドロップダウンリストから6 つのパーセンテージのいずれかを選択してください。たとえば、「50%」を選択すると、すべての画像が元のサイズの半分に縮小されます。
すべての画像を選択した画像と同じサイズに調整するには：
1. モデルとなる画像のサイズを選択してください。
2. 「KUTOOLS PLUS」＞「サイズ変更」＞「選択に基づいてすべての画像をリサイズ」をクリックすると、すべての画像が選択した画像と同じサイズに自動で調整されます。
さらに詳細なオプションが必要な場合は、「KUTOOLS PLUS」＞「サイズ変更」＞「カスタマイズ」をクリックして、高度なサイズ変更設定をご利用ください。