Note: The other languages of the website are Google-translated. Back to English

如何在Excel中一次插入多張圖片並調整其大小?

我們很容易在Excel中插入一張圖片,但是如果您需要一次插入多張圖片以節省大量時間,該怎麼辦?


插入多張圖片,並通過“插入圖片”功能批量調整它們的大小

我們可以通過Excel中的(插入)圖片功能批量插入多張圖片,然後同時調整它們的大小。 請執行以下操作:

1。 在工作表中,單擊 插入 > 圖片.

2。 在“插入圖片”對話框中,請打開包含要插入圖片的文件夾,根據需要選擇多張圖片,然後單擊 插入 按鈕。 看截圖:
備註:控股 按Ctrl 鍵,您可以選擇多幅不相鄰的圖片,一幅一幅地單擊它們; 保持 轉移 鍵,單擊第一張和最後一張可以選擇多張相鄰的圖片。

現在,圖片將批量插入並堆疊在工作表中。

3。 保持選中這些圖片,並通過在兩個圖片中輸入新數字來批量調整它們的大小 寬度身高 中的框 尺寸 組上 格式 標籤。 看截圖:

現在,所有插入的圖片會立即同時更改為相同大小。

4。 目前,您需要手動將每張圖片分別移動到合適的位置。

備註:如果有數十張照片堆疊在一起,則手動將它們移動到合適的位置將非常耗時。

在Excel中批量插入與單元格內容匹配的多張圖片

匹配導入圖片 Kutools for Excel的功能是一個很棒的工具,它可以基於單元格內容批量導入和插入多張圖片,並可以輕鬆地將與單元格大小相同或指定大小的導入圖片調整為大小。


廣告匹配導入圖片01

Excel的Kutools - 包括 300 多個方便的 Excel 工具。 全功能免費試用 30-天,無需信用卡! 立即行動吧!

插入多張圖片並使用OneNote批量調整它們的大小

為避免一張一張地移動堆疊的圖片,此方法引入了另一種技巧,即藉助OneNote插入多張圖片。 請執行以下操作:

1。 啟動OneNote,然後創建一個新頁面。 然後點擊 插入 > 圖片.

2。 在“插入圖片”對話框中,請打開包含要插入圖片的文件夾,根據需要選擇多張圖片,然後單擊 插入 按鈕。 看截圖:
備註:控股 按Ctrl 鍵,您可以選擇多幅不相鄰的圖片,一幅一幅地單擊它們; 保持 轉移 鍵,單擊第一張和最後一張可以選擇多張相鄰的圖片。

doc插入多張圖片OneNote 032

3。 按 按Ctrl + A 鍵以選擇OneNote中所有插入的圖片,然後按 按Ctrl + C 複製它們的鍵。

4。 在Excel中轉到工作表,然後按 按Ctrl + V 鍵將圖片粘貼到工作表中。 現在,所有圖片都被垂直粘貼,如左圖所示。

5. 選擇任何一張圖片,然後按 按Ctrl + A 鍵選擇所有這些。 然後通過在兩者中輸入新數字來批量調整圖片大小 寬度身高 中的框 尺寸 組上 格式 標籤。 看截圖:

現在,所有指定的圖片都將插入到Excel中,並批量調整為相同大小。


使用VBA代碼將多張圖片插入Excel

使用以下VBA代碼,您可以將多個圖片逐個單元插入Excel文件。

1。 選擇要插入圖片的目的地範圍的第一個單元格。

2。 按住 ALT + F11 鍵,然後打開 Microsoft Visual Basic for Applications 窗口。

3。 點擊 插入 > 模塊,然後將以下宏粘貼到 模塊窗口.

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。 在“打開”對話框中,請打開包含要插入圖片的文件夾,選擇要插入的多張圖片,然後單擊 已提交 按鈕。 並且所有選擇的圖片已根據像元大小導入到您的選擇中。 看截圖:


插入多張圖片並使用Kutools for Excel自動調整它們

Excel的Kutools導入圖片 實用程序可以幫助您根據單元格大小或圖片大小將多張圖片快速插入Excel。 您也可以根據需要指定圖片的高度和寬度。

Excel的Kutools - 包括 300 多個方便的 Excel 工具。 全功能免費試用 30-天,無需信用卡! 立即行動吧!

1。 點擊 Kutools 加 > 導入/導出 > 導入圖片,請參見屏幕截圖:

2。 在 導入圖片 對話框,請執行以下操作:
(1)從 進口訂單 下拉列表,您可以選擇 垂直填充單元格 or 逐個單元格水平填充.
(2)點擊 加入 按鈕選擇圖像文件或文件夾以將圖片添加到“圖片”列表中。 並且所有選擇的圖片將在列錶框中列出。
(3)點擊 進口尺寸 按鈕;

3。 現在在 導入圖片尺寸 在對話框中,您可以選擇符合您需要的圖片尺寸。 看截圖:

4。 指定圖片尺寸後,請點擊 OK 關閉此對話框,然後返回 導入圖片 對話框中單擊 進口 按鈕導入圖像。

5。 在新的“導入圖片”對話框中,請選擇要插入圖片的目標範圍的第一個單元格,然後單擊 OK 按鈕。

目前,所有選擇的圖片已從活動單元垂直或水平插入到單元中。 見右圖:

導入圖片 Kutools for Excel的功能旨在在Excel中同時插入一批具有匹配單元格大小,指定大小或圖片自己大小的圖片。 免費試用!


使用Kutools for Excel插入多張與其名稱匹配的圖片

Kutools for Excel還支持戲劇性 匹配導入圖片 功能以匹配圖片和單元格內容,並僅在Excel中批量插入匹配的圖片。

Excel的Kutools - 包括 300 多個方便的 Excel 工具。 全功能免費試用 30-天,無需信用卡! 立即行動吧!

1。 選擇要插入其匹配圖片的圖片名稱單元格,然後單擊 Kutools 加 > 導入/導出 > 匹配導入圖片。 看截圖:

2。 在彈出的“匹配導入圖片”對話框中,請執行以下操作:
(1)從 進口訂單 下拉列表;
(2)點擊 加入 按鈕將圖片添加到圖片列錶框中。 供您參考,僅列出匹配的圖片。
(3)然後點擊 進口尺寸 按鈕。

3. 現在在 導入圖片尺寸 對話框中,您可以選擇符合您需要的圖片尺寸,然後點擊 Ok 按鈕。 看截圖:

4。 現在您回到 導入圖片 對話框中單擊 進口 按鈕導入圖像。

5.在彈出的“匹配導入圖片”對話框中,指定要插入圖片的目標範圍的第一個單元格,然後單擊 OK 按鈕。 看截圖:

到目前為止,所有圖片均根據其相對名稱插入到單元格中。 見右圖:

匹配導入圖片 Kutools for Excel的功能可以幫助Excel用戶根據單元格值快速過濾圖片,然後批量插入這些圖片。 此外,可以將這些匹配的圖片自動調整為指定的大小或像元大小。 免費試用!


演示:插入多張圖片並在Excel中一次調整它們的大小

Excel的Kutools 包含超過300個方便的Excel工具,免費試用不受限制 30 天。 立即免費試用!      現在購買!


相關文章


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (47)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
帶有標題的說明:使用 VBA 代碼將多張圖片插入 Excel 簡直太棒了,快速有效! 這是購買和安裝插件的好選擇。 這是我第一次在網上發表評論!! 贊!
網站主持人對此評論進行了最小化
嗨,我可以使用 InsertPictures 模塊,並且可以正常工作至 jpg。 它不想為PNG工作。 你能給些建議麼? 問候,勞倫斯
網站主持人對此評論進行了最小化
在第一個主題“使用 VBA 代碼將多張圖片插入 Excel”中,如何在兩個單元格中插入一張圖片。 例如,第一張圖片將插入單元格 A1 和 A2,第二張圖片將插入單元格 A3 和 A4,依此類推。
網站主持人對此評論進行了最小化
對 Excel 的良好支持……你真的有助於節省時間。 謝謝
網站主持人對此評論進行了最小化
偉大的職位! 但是我有其他方法可以做同樣的事情..... ===================================== ============ Sub ipic() Dim i As Integer For i = 2 To 10 Cells(i, 1).Select Dim picname As String picname = Cells(i, 2) ActiveSheet.Pictures。 Insert("F:\Ram-PC\Macro\MyImage\" & picname & ".jpg").Select With Selection .Left = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34# .ShapeRange.Width = 80# End With Next Range("a1").Select End Sub
網站主持人對此評論進行了最小化
是否有適用於 Mac 的 Kuttools 版本?
網站主持人對此評論進行了最小化
是否可以修改該 vba 代碼以在類似網格的模式中插入 4 張圖片,如下所示:A1 中的 pic1、A2 中的 pic2、B3 中的 pic1 和 B4 中的 pic2? 坦克!
網站主持人對此評論進行了最小化
沒關係我找到了怎麼做:)
網站主持人對此評論進行了最小化
你好,可以分享一下修改後的代碼嗎?
網站主持人對此評論進行了最小化
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) 然後 xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) To UBound(PicList) 設置 Rng = Cells(xRowIndex, xColIndex) 設置 sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue , Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
網站主持人對此評論進行了最小化
您能否幫我修改代碼以插入合併的列和行。 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.Get OpenFilename(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.Sha pes.AddPicture( PicList(lLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
網站主持人對此評論進行了最小化
選擇單元格並根據您的需要按寬度和高度調整它們的大小。如果您有十張圖片,請選擇十個或更多單元格,請選擇更多..!! 然後按 Alt+F11 然後單擊 INSERT 然後單擊 MODULE 然後按原樣粘貼以下代碼。 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) 設置 Rng = Cells( xRowIndex, xColIndex) 設置 sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub AFTER THE上面的代碼按 F5 .. 然後從計算機中選擇文件,無論它們在哪裡。 滿足您的需要。 那麼如果你沒有保存工作簿,那麼它會要求保存它。 如果你已經保存了它。 那麼你的工作就是希望這能有所幫助.. Ali..!!
網站主持人對此評論進行了最小化
非常感謝,它有效
網站主持人對此評論進行了最小化
嗨,EXcel 大師,我有 2 張 excel 表。 一張包含一百多張圖片,並在其下一個單元格中對圖片進行描述。 選擇後的另一張紙可能留下了 40 條描述。 我如何根據我的選擇將圖片轉移到這張紙上。 謝謝人
網站主持人對此評論進行了最小化
或者您直接使用 image-xls 。 使用此 Excel 插件,您可以將無限數量的圖片插入 Excel 單元格,或作為評論。 它還會調整圖片的大小。 並且可以訂購和過濾您的 Excel 工作表,包括圖片!
網站主持人對此評論進行了最小化
我是 Mac 用戶,一旦我將代碼複製到新模塊並運行它,什麼都沒有發生。 為了運行 VBA 代碼,我必須在 mac 中做些什麼嗎? 謝謝
網站主持人對此評論進行了最小化
[quote] 或者你直接使用 image-xls 。 使用此 Excel 插件,您可以將無限數量的圖片插入 Excel 單元格,或作為評論。 它還會調整圖片的大小。 並且可以訂購和過濾您的 Excel 工作表,包括圖片!由阿明[/quote] [quote]帶有標題的說明:用VBA代碼將多張圖片插入Excel簡直太棒了,快速有效! 這是購買和安裝插件的好選擇。 這是我第一次在網上發表評論!! 贊!拉胡爾·古普塔[/quote] 我試過這個,似乎工作正常 - 但你不能訂購或過濾包括圖片在內的 Excel 列表。 圖片也不是按比例縮放的。 所以我買了 image-xls - 有點貴,但我只需要
網站主持人對此評論進行了最小化
你好! 為什麼“Sub InsertPictures()”不能在 Excel 2003 中工作? 我已經添加了對 Microsoft.Scripting.Runtime 的引用提前謝謝 Gilberto
網站主持人對此評論進行了最小化
這對我很有幫助。 真是太好了……謝謝
網站主持人對此評論進行了最小化
嗨,我在電子表格上嘗試了代碼,效果很好。 直到我嘗試做過濾器。 發現最後一張圖片將始終顯示在過濾結果中。 有人能幫忙嗎?
網站主持人對此評論進行了最小化
使用下面的 VBA 程序無法在合併單元格中插入圖片,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.Get OpenFilename(PicFormat , MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList) Then xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) To UBound(PicList) 設置 Rng = Cells(xRowIndex , xColIndex) 設置 sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub 請建議我修改 VBA .
網站主持人對此評論進行了最小化
大家好,這太棒了! 我已經關注你的教程有一段時間了。 我希望您能幫助我的是,我如何將其從將圖像粘貼到一列更改為跨行? 以及如何將“完整文件名(即 example_image.jpg)”添加到它上面的行中。 行'A':“文件名.jpg”行'B':“圖像縮略圖”謝謝!
網站主持人對此評論進行了最小化
嘿,我已經使用我自己的 VBE 代碼插入了圖片。 現在我試圖與其他人分享它,不幸的是他們看不到圖片......如果有人能告訴我我錯過了什麼,我將不勝感激。 謝謝
網站主持人對此評論進行了最小化
這段代碼幾乎可以滿足我的需要。 我有 200 張圖片,每張圖片都需要放在自己的工作表上。 我該怎麼做?
網站主持人對此評論進行了最小化
如何修改以下代碼,以便將圖片填充在跨多列和多行的選定單元格區域中,而不是在同一列中連續行的連續單元格中? 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.Get OpenFilename(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.Sha pes.AddPicture( PicList(lLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
網站主持人對此評論進行了最小化
Alguem conseguiu o codigo para a pergunta dele? estou precisando também!
這裡還沒有評論
載入更多
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護