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

Excelで複数の画像を挿入して一度にサイズを変更するにはどうすればよいですか?

XNUMX枚の画像をExcelに挿入するのは簡単ですが、時間を節約するために一度に複数の画像を挿入する必要がある場合は、どうすればよいでしょうか。


複数の画像を挿入し、画像の挿入機能によってそれらをまとめてサイズ変更します

Excelの(挿入)画像機能を使用して複数の画像をまとめて挿入し、同時にサイズを変更できます。 次のようにしてください。

1。 ワークシートで、をクリックします インセット > 画像.

2。 [画像の挿入]ダイアログで、挿入する画像が含まれているフォルダを開き、必要に応じて複数の画像を選択して、[ インセット ボタン。 スクリーンショットを参照してください:
Note: ホールディング Ctrlキー キーを押すと、隣接していない複数の画像をXNUMXつずつクリックして選択できます。 ホールディング シフト キーを押すと、最初の画像と最後の画像をクリックして、隣接する複数の画像を選択できます。

これで、画像がまとめて挿入され、ワー​​クシートに積み重ねられます。

3。 これらの画像を選択したままにし、両方に新しい番号を入力して一括でサイズを変更します 幅(Width) > 高さ のボックス サイズ グループを フォーマット タブ。 スクリーンショットを参照してください:

これで、挿入されたすべての画像が同時に同じサイズに変更されます。

4。 現在、各画像を個別に手動で適切な場所に移動する必要があります。

Note:何十枚もの写真が積み重なっている場合、場所に合わせて手動で移動するのは非常に時間がかかります。

Excelのセルの内容と一致する複数の画像をバッチ挿入

また, インポート画像を一致させる Kutools for Excelの機能は、セルの内容に基づいて複数の画像をバッチインポートおよび挿入し、インポートした画像のサイズをセルサイズと同じまたは指定したサイズに簡単に変更できる素晴らしいツールです。


広告一致インポートされた写真01

Kutools for Excel - 300 以上の必須ツールで Excel を強化します。 クレジット カードは必要なく、全機能を備えた 30 日間の無料トライアルをお楽しみください。 今すぐ入手

OneNoteを使用して、複数の画像を挿入し、それらのサイズを一括で変更します

スタッキング画像をXNUMXつずつ移動しないようにするために、このメソッドでは、OneNoteを使用して複数の画像を挿入する別のトリックが導入されています。 次のようにしてください。

1。 OneNoteを起動し、新しいページを作成します。 そして、 インセット > 画像.

2。 [画像の挿入]ダイアログで、挿入する画像が含まれているフォルダを開き、必要に応じて複数の画像を選択して、[ インセット ボタン。 スクリーンショットを参照してください:
Note: ホールディング Ctrlキー キーを押すと、隣接していない複数の画像をXNUMXつずつクリックして選択できます。 ホールディング シフト キーを押すと、最初の画像と最後の画像をクリックして、隣接する複数の画像を選択できます。

ドキュメントは複数の画像を挿入しますOneNote032

3。 押す Ctrlキー + A キーを押してOneNoteに挿入されているすべての画像を選択し、を押します Ctrlキー + C それらをコピーするためのキー。

4。 Excelでワークシートに移動し、を押します Ctrlキー + V ワークシートに画像を貼り付けるためのキー。 これで、左のスクリーンショットに示すように、すべての画像が垂直に貼り付けられます。

5. 写真のいずれかを選択し、を押します Ctrlキー + A それらすべてを選択するためのキー。 次に、両方に新しい番号を入力して、画像のサイズをまとめて変更します 幅(Width) > 高さ のボックス サイズ グループを フォーマット タブ。 スクリーンショットを参照してください:

これで、指定したすべての画像がExcelに挿入され、同じサイズにまとめてサイズ変更されます。


VBAコードを使用してExcelに複数の画像を挿入します

次のVBAコードを使用すると、セルごとに複数の画像をExcelファイルに挿入できます。

1。 画像を挿入する宛先範囲の最初のセルを選択します。

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

3に設定します。 OK をクリックします。 インセット > モジュール、次のマクロをに貼り付けます モジュールウィンドウ.

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4。 次に、 F5 このコードを実行するためのキー。

5。 [開く]ダイアログで、挿入する画像が含まれているフォルダを開き、挿入する複数の画像を選択して、[ Open ボタン。 そして、選択したすべての画像が、セルサイズに基づいて選択範囲にインポートされました。 スクリーンショットを参照してください:


複数の画像を挿入し、Kutools forExcelで自動調整します

Kutools for Excelさん 写真をインポートする ユーティリティを使用すると、セルサイズまたは画像サイズに基づいて複数の画像をExcelにすばやく挿入できます。 必要に応じて、画像の高さと幅を指定することもできます。

Kutools for Excel - 300 以上の必須ツールで Excel を強化します。 クレジット カードは必要なく、全機能を備えた 30 日間の無料トライアルをお楽しみください。 今すぐ入手

1に設定します。 OK をクリックします。 クツールズプラス > インポート・エクスポート > 写真をインポートする、スクリーンショットを参照してください:

2。 の中に 写真をインポートする ダイアログボックスで、次のようにしてください。
(1)画像の表示順序を 輸入注文 ドロップダウンリスト、あなたは選ぶことができます セルの後にセルを垂直に塗りつぶす or セルの後にセルを水平方向に塗りつぶす.
(2)をクリック Add ボタンをクリックして、画像ファイルまたはフォルダを選択し、画像を画像リストに追加します。 そして、選択したすべての写真がリストボックスに表示されます。
(3)をクリックします インポートサイズ ボタン;

3。 今すぐ 画像サイズのインポート ダイアログでは、必要に応じて画像サイズを選択できます。 スクリーンショットを参照してください:

4。 画像サイズを指定後、をクリックしてください OK このダイアログを閉じて、 写真をインポートする ダイアログ、クリック インポート ボタンをクリックして画像をインポートします。

5。 新しい[画像のインポート]ダイアログボックスで、画像を挿入する宛先範囲の最初のセルを選択し、[ OK

現在、選択したすべての画像がアクティブセルから垂直または水平にセルに挿入されています。 右のスクリーンショットを参照してください:

また, 写真をインポートする Kutools for Excelの機能は、Excelでセルサイズ、指定されたサイズ、または画像自体のサイズに一致すると同時に画像のバッチを挿入するように設計されています。 無料トライアルを!


Kutools forExcelで名前と一致する複数の画像を挿入します

Kutools forExcelは劇的なサポートもしています インポート画像を一致させる 写真とセルの内容を照合し、一致した画像をExcelに一括で挿入する機能。

Kutools for Excel - 300 以上の必須ツールで Excel を強化します。 クレジット カードは必要なく、全機能を備えた 30 日間の無料トライアルをお楽しみください。 今すぐ入手

1。 一致する画像を挿入する画像名セルを選択し、をクリックします クツールズプラス > インポート・エクスポート > インポート画像を一致させる。 スクリーンショットを参照してください:

2。 ポップアウトされた[画像のインポートの一致]ダイアログボックスで、次の手順を実行してください。
(1)画像の表示順序を 輸入注文 ドロップダウンリスト;
(2)をクリック Add ボタンをクリックして、画像を画像リストボックスに追加します。 参考までに、一致した写真のみがリストされます。
(3)次にクリックします インポートサイズ

3. 今すぐ 画像サイズのインポート ダイアログで、必要に応じて画像サイズを選択し、[ Ok ボタン。 スクリーンショットを参照してください:

4。 今、あなたはに戻ります 写真をインポートする ダイアログ、クリック インポート ボタンをクリックして画像をインポートします。

5.ポップアウトする[画像のインポートの一致]ダイアログで、画像を挿入する宛先範囲の最初のセルを指定して、[ OK ボタン。 スクリーンショットを参照してください:

これまでのところ、すべての画像は相対名に基づいてセルに挿入されています。 右のスクリーンショットを参照してください:

また, インポート画像を一致させる Kutools for Excelの機能は、Excelユーザーがセル値に基づいて画像をすばやくフィルタリングし、これらの画像をまとめて挿入するのに役立ちます。 さらに、これらの一致した画像は、指定したサイズまたはセルサイズに自動的にサイズ変更できます。 無料トライアルを!


デモ:複数の画像を挿入し、Excelで一度にサイズを変更します

Kutools for Excel には、Excel 用の 300 以上の便利なツールが含まれており、30 日間制限なく無料で試すことができます。 今すぐ無料トライアル!      今すぐ購入!


関連記事

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

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の 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 (47)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello community,

Thank you very much - this is a great tool!
But for my request, I should keep the sizes of the images, which are different. Is there any way to keep the format of the images but keep the functions with this code?

Many thanks in advance.
Elias
This comment was minimized by the moderator on the site
Respected sir, i want to One image paste on specific cell more than one in a time.
This comment was minimized by the moderator on the site
Hello, Sarfraz

If you want to insert one image into multiple cells, you just need to insert one image and resize it, and then copy and paste it to the other cells as you need.

Thank you!
This comment was minimized by the moderator on the site
mình cảm ơn vì bài viết. mình có làm danh sách sản phẩm hàng hóa mất rất nhiều thời gian nhưng chợt thấy chenanhexcel.com có bán add-in thì công việc của mình dễ dàng hơn nhiều.
This comment was minimized by the moderator on the site
Hi, i have 10 images i want to insert all 10 inside ONE CELL in excel. is this possible and if so pls help me out with some code pls...
This comment was minimized by the moderator on the site
Hi Vind,
First, adjust the cell and make it big enough to contain the 10 images.
Then Click Insert > Picture to open the Insert Picture dialog. In the dialog, select the 10 images together (if they are in the same folder), and click the OK button.
Now all images are inserted. If necessary, resize them simultaneously in the Size group on the Picture Format tab.
These images are inserted in the diagonal line of the cell as attached picture, and you need to adjust their positions manually.
This comment was minimized by the moderator on the site
I am using the following code, which came from Funzone, to add my photos but i need to be able to skip a column, leaving a blank column between photos, can someone help?

Sub InsertPictures()
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)

xColIndex = Application.ActiveCell.Column
xRowIndex = Application.ActiveCell.Row

If IsArray(PicList) Then

For lLoop = LBound(PicList) To UBound(PicList)
Set Rng = Cells(xRowIndex, xColIndex)
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
xColIndex = xColIndex + 1
If xColIndex = 4 Then GoTo Continue1 Else GoTo Continue2

Continue1:
xRowIndex = xRowIndex + 2
xColIndex = xColIndex - 3

Continue2:
Next
End If
End Sub
This comment was minimized by the moderator on the site
I was finally able to figure it out on my own.

The code below will insert 3 pictures horizontally in the columns then move down a row and insert 3 more horizontally it will repeat this process until it runs out of the selected pictures.



Sub InsertPictures()
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)

xColIndex = Application.ActiveCell.Column
xRowIndex = Application.ActiveCell.Row

If IsArray(PicList) Then

For lLoop = LBound(PicList) To UBound(PicList)
Set Rng = Cells(xRowIndex, xColIndex)
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
xColIndex = xColIndex + 1
If xColIndex = 4 Then GoTo Continue1 Else GoTo Continue2

Continue1:
xRowIndex = xRowIndex + 1
xColIndex = xColIndex - 3

Continue2:
Next
End If
End Sub
This comment was minimized by the moderator on the site
I would really like to use this VBA code to fill an array of cells with picture like 5 across then move to next row and 5 across until you run out of selected pictures but I just can't wrap my head around how to do it. Is this at all possible?


If you know how to do this please post the code. Thank you In advance!

Similar to https://www.extendoffice.com/documents/excel/3360-excel-transpose-every-5-rows.html
except by selecting pictures and pasting the output in an array.
This comment was minimized by the moderator on the site
I would really like to use this VBA code to fill an array of cells with picture like 5 across then move to next row and 5 across until you run out of selected pictures but I just can't wrap my head around how to do it. Is this at all possible?

Similar to https://www.extendoffice.com/documents/excel/3360-excel-transpose-every-5-rows.html
except by selecting pictures and pasting the output in an array
This comment was minimized by the moderator on the site
les agradezco mucho realmente ayudan muchisimo con el trabajo y el tiempo. Me sirvio perfecto para un inventario con fotos.
reitero mi agradecimiento
This comment was minimized by the moderator on the site
Tried this code and in all honesty is amazing and fast, however is there any chance of amending this to make it resize the pictures to a custom size.
I cannot seem to get my head around it.
Thanks
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations