Excelのセルに合うように画像のサイズを変更するにはどうすればよいですか？

通常、挿入された画像はセルの上に浮かんでおり、ほとんどの場合、XNUMXつの画像が多くのセルをカバーしています。 ワークシートに多数の画像がある場合は、各画像をXNUMXつのセルに配置することをお勧めします。 しかし、どのように対処するのですか？ 実際、セルのサイズにすばやく合うように画像のサイズを変更するには、いくつかの注意が必要な方法があります。

選択した画像のサイズを変更して、VBマクロを使用して単一のセルに合わせます

挿入された画像のサイズを変更して、Kutools forExcelを使用してセルに合わせます

選択した画像のサイズを変更して、VBマクロを使用して単一のセルに合わせます

VBマクロを適用して、選択した画像のサイズをXNUMXつのセルに合わせて変更できますが、画像の幅と高さを手動で変更することはできません。 次の手順で実行できます。

ステップ1：画像をワークシートに挿入し、XNUMXつのセルに合うようにサイズを変更する画像を選択します。

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

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

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

Public Sub FitPic()
On Error GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
With Selection
PicWtoHRatio = .Width / .Height
End With
With Selection.TopLeftCell
CellWtoHRatio = .Width / .RowHeight
End With
Select Case PicWtoHRatio / CellWtoHRatio
Case Is > 1
With Selection
.Width = .TopLeftCell.Width
.Height = .Width / PicWtoHRatio
End With
Case Else
With Selection
.Height = .TopLeftCell.RowHeight
.Width = .Height * PicWtoHRatio
End With
End Select
With Selection
.Top = .TopLeftCell.Top
.Left = .TopLeftCell.Left
End With
Exit Sub
NOT_SHAPE:
MsgBox "Select a picture before running this macro."
End Sub

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

手順5：上記の手順を繰り返して、他の画像のサイズをXNUMXつのセルに合わせて変更します。

これで、挿入されたすべての画像のサイズが変更され、セルに収まります。 次のスクリーンショットを参照してください。

Note：一度にサイズ変更できる画像はXNUMXつだけです。 複数の画像を一度に選択すると、警告ダイアログボックスが表示されます。

挿入された画像のサイズを変更して、Kutools forExcelを使用してセルに合わせます

あなたが持っている場合 Kutools for Excel インストールすると、適用できます 写真をインポートする セルに合わせて、または画像の挿入時に高さを固定して、すべての画像のサイズを変更するツール。

Kutools for Excel 300以上の便利なExcelツールが含まれています。 30日以内に制限なしで無料でお試しいただけます。 今すぐ入手.

ステップ1：画像を挿入する範囲セルを選択し、 クツールズプラス >輸出入 > 写真をインポートする。 次のスクリーンショットを参照してください。

ステップ2： 写真をインポートする ダイアログボックスで、ドロップダウンリストから挿入順序を選択し、をクリックします Add ボタンをクリックしてファイルまたはフォルダから必要な画像を追加し、をクリックします サイズ ボタン。 スクリーンショットを参照してください：

ステップ3：チェック 一致するセルサイズ オプション。 次に、をクリックします Ok > インポート ダイアログを閉じます。 スクリーンショットを参照してください：

これで、セルに合わせて画像が挿入されていることがわかります。

Note：手順3でセルの高さと幅を指定して、画像のサイズを変更することもできます。

これについてもっと知りたい場合 画像のインポート 機能、訪問してください （茶事の話はこちらをチェック）.

関連記事:

Excelで複数のセルのサイズを変更して、その上の画像にすばやく合わせるにはどうすればよいですか？