excel插入很多圖片怎樣自動(dòng)排列 Excel插入多張圖片

2023-11-20

1783

在日常的工作和學(xué)習(xí)中，我們經(jīng)常需要在Excel表格中插入大量的圖片。如果每一張圖片都需要手動(dòng)調(diào)整位置和大小，無疑會(huì)浪費(fèi)大量的時(shí)間和精力。因此，如何自動(dòng)排列Excel中插入的多張圖片成為了很多人關(guān)注的問

下面簡單介紹幾種實(shí)現(xiàn)自動(dòng)排列圖片的方法，供大家參考：

方法一：使用相對坐標(biāo)

1. 在Excel表格中插入第一張圖片，并將其調(diào)整到所需的大小和位置。

2. 選中該圖片，按住Ctrl鍵并拖動(dòng)鼠標(biāo)的右下角小方塊，復(fù)制該圖片并自動(dòng)調(diào)整到新的位置，在此過程中，圖片的位置和大小會(huì)根據(jù)原始位置進(jìn)行相對調(diào)整。

3. 重復(fù)步驟2，直至插入完成所有圖片。

方法二：使用VBA宏

1. 打開Excel，按下Alt F11進(jìn)入VBA編輯器。

2. 在新建模塊中輸入以下代碼：

```

Sub ArrangePictures()

Dim ws As Worksheet

Dim shp As Shape

Dim LeftPos As Single

Dim TopPos As Single

Set ws ActiveSheet

LeftPos 10 '調(diào)整圖片的初始左側(cè)位置

TopPos 10 '調(diào)整圖片的初始頂部位置

For Each shp In

If shp.Type msoPicture Then

shp.Left LeftPos

TopPos

LeftPos LeftPos shp.Width 10 '調(diào)整圖片之間的水平間距，10可以根據(jù)實(shí)際情況自行調(diào)整

If LeftPos > ws.Range("IV1").Width Then '當(dāng)圖片超出了一行的寬度時(shí)，換行顯示

LeftPos 10

TopPos TopPos shp.Height 10 '調(diào)整圖片之間的垂直間距，10可以根據(jù)實(shí)際情況自行調(diào)整

End If

Next shp

End Sub

```

3. 按下F5運(yùn)行宏，即可自動(dòng)排列Excel中插入的所有圖片。

方法三：使用輔助工具

在Excel中，有一些第三方的插件可以幫助實(shí)現(xiàn)圖片的自動(dòng)排列。例如，Kutools for Excel、ExcelPic等插件都提供了便捷的圖片排列功能，通過簡單的操作即可完成多張圖片的自動(dòng)排列。

總結(jié)：

通過以上幾種方法，我們可以輕松實(shí)現(xiàn)Excel中插入多張圖片的自動(dòng)排列。根據(jù)實(shí)際需求選擇適合自己的方法，提高工作效率，節(jié)省時(shí)間和精力。希望本文對大家有所幫助！

相關(guān)推薦