メインコンテンツへスキップ

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

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

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

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


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

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

doc-resize-cell-to-fit-picture1

もちろん、各セルのサイズを自動的に変更して、その上の画像に合わせることができます。 ただし、多くの写真では面倒で時間がかかる場合があります。 実際には、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 このマクロを実行するためのキー。

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

doc-resize-cell-to-fit-picture2


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

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

Kutools for Excel, 以上で 120 便利な機能で、仕事が楽になります。 

インストールした後 Kutools for Excel、以下のようにしてください:(今すぐExcel用のKutoolsを無料でダウンロードしてください!)

1。 クリック Enterprise > 輸出入 > 写真をインポートする。 スクリーンショットを参照してください:
ドキュメントサイズ変更画像フィットセル2

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

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

4。 クリック OK > インポート 画像をインポートするセルを選択するためのダイアログを表示します。 スクリーンショットを参照してください:
ドキュメントサイズ変更画像フィットセル5

5。 クリック OK、そして今、すべてのpirtcuresがセルにインポートされ、セルに合うようにサイズのサイズが変更されます。
ドキュメントサイズ変更画像フィットセル6


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

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How did you get come up with the formula (Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288))? It's close but there is still a gap to the right as shown in your screenshot.
This comment was minimized by the moderator on the site
Great and all, but i already had pictures in cells and by using the first option it obliterated like 99% of all photos already present. None were spared except for one photo which was resized beautifully except that the width of the photo was a bit thin.
This comment was minimized by the moderator on the site
Hello Thank you for the macro. I cannot get to work in my computer though. I use Excel 2011 for Mac Any ideas? Thanks
This comment was minimized by the moderator on the site
Hi, great macro - small correction with greater OR EQUAL in the 16 row If Rows(N).Top >= PictureTop Then
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations