ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
会員登録
x

or

Excelでセルに収まるように画像のサイズを変更するには?

通常挿入された画像はセル上に浮遊し、ほとんどの場合、1枚の画像が多くの細胞をカバーします。 ワークシートに多数のピクチャがある場合、各ピクチャを1つのセルに入れることができます。 しかし、それに対処する方法は? 実際には、セルのサイズにすばやく合うように写真のサイズを変更する手助けをするトリッキーな方法がいくつかあります。

VBマクロで単一のセルに収まるように選択した画像のサイズを変更する

Kutools for Excelで挿入した画像のサイズをセルに合わせる

OfficeタブOfficeでタブ付き編集とブラウジングを有効にし、作業をより簡単にします...
Kutools for Excelは、ほとんどの問題を解決し、生産性を80%向上させます
  • 何でも再利用: 最も使用されている式や複雑な式、チャート、その他をお気に入りに追加し、将来的にすぐに再利用できます。
  • 20以上のテキスト機能: テキスト文字列から数値を抽出します。 テキストの一部を抽出または削除します。 数字と通貨を英語の単語に変換...
  • マージツール:複数のワークブックとシートを1つに; データを失うことなく複数のセル/行/列を結合します。 重複する行と合計をマージ...
  • 分割ツール:値に基づいてデータを複数のシートに分割します。 1つのワークブックから複数のExcel、PDF、またはCSVファイル。 1列から複数列...
  • 貼り付けスキップ 非表示/フィルターされた行。 カウントアンドサム 背景色別; メーリングリストを作成し、 セルの価値でメールを送信する...
  • スーパーフィルター: 高度なフィルタースキームを作成し、任意のシートに適用します。 ソート 週、日、頻度などにより; フィルタ 太字、式、コメントで...
  • 300の強力な機能以上。 Office 2007-2019および365で動作します。 すべての言語をサポートしています。 企業または組織に簡単に展開できます。

矢印青い右の泡 VBマクロで単一のセルに収まるように選択した画像のサイズを変更する


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

手順1:画像をワークシートに挿入し、1つのセルに合わせてサイズを変更する画像を選択します。

doc-resize-pictures-to-fit-cells1

ステップ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:上記の手順を繰り返して、他の画像を単一セルに合わせてサイズを変更します。

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

doc-resize-pictures-to-fit-cells2

:1つのピクチャを1回だけサイズ変更することができます。 一度に複数の画像を選択すると、警告ダイアログボックスが表示されます。


矢印青い右の泡 Kutools for Excelで挿入した画像のサイズをセルに合わせる

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

Kutools for Excel 300以上の便利なExcelツールが含まれています。 自由に30日に制限なしで試してみてください。 今すぐ入手.

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

doc-resize-picture-to-fit-cell-1

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

doc-resize-picture-to-fit-cell-2

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

doc-resize-picture-to-fit-cell-3

今、あなたは写真が細胞に合うように挿入されているのを見ることができます。

doc-resize-picture-to-fit-cell-4

:ピクチャのサイズを変更するには、ステップ3でセルの高さと幅を指定することもできます。

あなたがこれについてもっと知りたいなら 画像をインポートする 機能、訪問してください こちら.


関連記事:

複数のセルのサイズを変更して、それらの上の写真をExcelにすばやく収める方法


Kutools for Excelは、ほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート そして、以前に使用したもの; セルを暗号化する パスワード付き メーリングリストの作成 そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストや数式を簡単に編集する) レイアウトを読む (多数のセルを簡単に読んで編集できます)。 フィルター範囲に貼り付ける...
  • セル/行/列を結合 データを失うことなく; セルコンテンツの分割。 重複する行/列を結合する...重複セルの防止。 範囲の比較...
  • 重複または一意を選択します空白行を選択 (すべてのセルは空です)。 スーパー検索とファジー検索 多くのワークブックで。 ランダム選択
  • 完全コピー 式の参照を変更せずに複数のセル。 参照を自動作成 複数のシートに 箇条書きを挿入、チェックボックスなど
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷 セルのコンテンツとコメント間の変換...
  • スーパーフィルター (保存して他のシートにフィルタ方式を適用する)。 高度な並べ替え 月/週/日、頻度などによる。 特殊フィルター 太字、斜体で...
  • ワークブックとワークシートを組み合わせる; キー列に基づいて表をマージします。 データを複数のシートに分割する; xls、xlsx、およびPDFのバッチ変換...
  • 300を超える強力な機能。 Office / Excel 2007-2019および365をサポートします。 すべての言語をサポートします。 企業または組織に簡単に展開できます。 フル機能の30日間の無料トライアル。
KTEタブ201905

OfficeタブはOfficeにタブ付きインターフェイスを提供し、作業をより簡単にします

  • Word、Excel、PowerPointでタブ付き編集と読み取りを有効にする、出版社、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを削減します。
オフィシタブ底
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Syed Waqas Gillani · 7 months ago
    Hi..
    perfact solution. But i want that function to work with command button. i need to make a command button to insert and auto resize to cell size. please help.
  • To post as a guest, your comment is unpublished.
    Shripad Lale · 2 years ago
    Brilliant! Works great! Just what I was looking for! Thank you!
  • To post as a guest, your comment is unpublished.
    claus · 3 years ago
    it works if the cells are not merged. unfortunately, I merged some cells and it fits only in the upper left cell which makes the photo very tiny.
  • To post as a guest, your comment is unpublished.
    Harry · 3 years ago
    Hi, I really love this macro that makes images fit cells, it really helped me with some work stuff. But does anyone know how to write this code for applescript? I have to use macs and the apple version of excel, Numbers, only uses applescript.
    Help!
    Many thanks,
    Harry
  • To post as a guest, your comment is unpublished.
    Carol · 3 years ago
    Thanks it did work but I have about 500 pictures so I don't want to do them one at a time - how do I do them all at the same time please?
  • To post as a guest, your comment is unpublished.
    Marcelo · 4 years ago
    Works!!
    But i have one question, i want to fit a img in a range of cells merged, how can i do it?
    • To post as a guest, your comment is unpublished.
      Nick · 2 years ago
      Public Sub FitPic()
      'https://www.extendoffice.com/documents/excel/1060-excel-resize-picture-to-fit-cell.html
      'Slight modification to resize into merged cells
      On Error GoTo NOT_SHAPE
      Dim PicWtoHRatio As Single
      Dim CellWtoHRatio As Single
      With Selection
      PicWtoHRatio = .Width / .Height
      End With
      With Selection.TopLeftCell
      CellWtoHRatio = .MergeArea.Width / .MergeArea.Height
      End With
      Select Case PicWtoHRatio / CellWtoHRatio
      Case Is > 1
      With Selection
      .Width = .TopLeftCell.MergeArea.Width
      .Height = .Width / PicWtoHRatio
      End With
      Case Else
      With Selection
      .Height = .TopLeftCell.MergeArea.Height
      .Width = .Height * PicWtoHRatio
      End With
      End Select
      With Selection
      .Top = .TopLeftCell.MergeArea.Top
      .Left = .TopLeftCell.MergeArea.Left
      .Placement = xlMoveAndSize
      End With
      Exit Sub
      NOT_SHAPE:
      MsgBox "Select a picture before running this macro."
      End Sub
    • To post as a guest, your comment is unpublished.
      Christina · 3 years ago
      [quote name="Marcelo"]Works!!
      But i have one question, i want to fit a img in a range of cells merged, how can i do it?[/quote]

      Marcelo did you get the updated marco for the merged cell? I am trying to do the same thing.

      thanks
  • To post as a guest, your comment is unpublished.
    Monika · 5 years ago
    Thank you this was perfect!!
  • To post as a guest, your comment is unpublished.
    lucy · 5 years ago
    Instructions for Excel
  • To post as a guest, your comment is unpublished.
    Jim Abramczyk · 5 years ago
    FitPic macro noted above is Sweeeeeet!
    I took a bunch of pictures of garage sale items that eventually went to Salvation Army. I documented pictures and values in Excel tax purposes. This macro worked first time! :lol: