Excelで画像にすばやく収まるように複数のセルのサイズを変更するにはどうすればよいですか？

ご存知のとおり、Microsoft Excelは、長いテキスト文字列などの塗りつぶされたコンテンツに合わせて、セルの行の高さと列の幅のサイズを自動的に変更することをサポートしています。 ただし、挿入された画像は特定のセルに存在しないため、[行の高さの自動調整]コマンドと[列の幅の自動調整]コマンドは画像には無効です。

VBAで画像に合うようにセルのサイズを変更する

Kutools for Excelを使用して、セルに合わせて画像のサイズを変更します

VBAで画像に合うようにセルのサイズを変更する

ワークシートにXNUMXつの大きな画像があるとすると、次のスクリーンショットを参照してください。 セルの上の画像に合わせてセルのサイズを変更したい場合があります。 しかし、それをどのように実現するのですか？

もちろん、各セルのサイズを自動的に変更して、その上の画像に合わせることができます。 ただし、多くの写真では面倒で時間がかかる場合があります。 実際には、VBマクロを適用して、すべてのセルのサイズを変更し、その上の画像に合わせることができます。 次の手順でそれを行うことができます：

ステップ1： Alt + F11 キー、そしてそれは開きます アプリケーション向け Microsoft Visual Basic 窓。

ステップ2：クリック インセット > モジュール、モジュールウィンドウに次のマクロを貼り付けます。

VBA：画像に合わせて複数のセルのサイズを変更します。

Sub ResizePictureCells()
For Each Picture In ActiveSheet.DrawingObjects
PictureTop = Picture.Top
PictureLeft = Picture.Left
PictureHeight = Picture.Height
PictureWidth = Picture.Width
For N = 2 To 256
If Columns(N).Left > PictureLeft Then
PictureColumn = N - 1
Exit For
End If
Next N
For N = 2 To 65536
If Rows(N).Top > PictureTop Then
PictureRow = N - 1
Exit For
End If
Next N
Rows(PictureRow).RowHeight = PictureHeight
Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288)
Picture.Top = Cells(PictureRow, PictureColumn).Top
Picture.Left = Cells(PictureRow, PictureColumn).Left
Next Picture
End Sub

ステップ3： F5 このマクロを実行するためのキー。

現在のワークシートで、画像がある場合、画像の下のセルは、その上の画像に合うようにサイズ変更されます。 次のスクリーンショットを参照してください。

Kutools for Excelを使用して、セルに合わせて画像のサイズを変更します

以下のスクリーンショットのようにセルのサイズを調整した後、セルのサイズに合わせて画像をインポートしてサイズを変更したい場合、どうすればすばやく実行できますか？ この場合、 Kutools for Excel's Pictruesをインポートする ユーティリティは、このジョブを簡単に処理するのに役立ちます。

インストールした後 Kutools for Excel、以下のようにしてください：

1。 クリック クツールズプラス > 輸出入 > 写真をインポートする。 スクリーンショットを参照してください：

2.ポッピングで 写真をインポートする ダイアログでは、最初にインポート順序を指定できます 輸入注文 セクションをクリックし、をクリックします Add ボタンをクリックして、フォルダから、またはファイルとしてXNUMXつずつ写真を追加すると、写真がリストに表示されます。 画像 セクション。 スクリーンショットを参照してください：

3。 次に、をクリックします インポート 表示するボタン 画像サイズのインポート ダイアログ、次にチェック 一致するセルサイズ オプション。 スクリーンショットを参照してください：

4。 クリック OK > インポート 画像をインポートするセルを選択するためのダイアログを表示します。 スクリーンショットを参照してください：

5。 クリック OKこれで、すべての画像がセルにインポートされ、セルに収まるようにサイズが変更されます。

関連記事:
Excelのセルに複数の画像を挿入するにはどうすればよいですか？