隨著手機(jī)功能的不斷豐富，我們?cè)谌粘Ｉ钪性絹碓揭蕾囉谒鼈?。因此，學(xué)會(huì)利用VBA批量調(diào)整圖片適合單元格大小將會(huì)極大地提高我們工作效率。本文將介紹如何利用VBA編輯器和一些簡單的代碼來實(shí)現(xiàn)這一目標(biāo)。 在V

隨著手機(jī)功能的不斷豐富，我們?cè)谌粘Ｉ钪性絹碓揭蕾囉谒鼈?。因此，學(xué)會(huì)利用VBA批量調(diào)整圖片適合單元格大小將會(huì)極大地提高我們工作效率。本文將介紹如何利用VBA編輯器和一些簡單的代碼來實(shí)現(xiàn)這一目標(biāo)。

在VBA編輯器中打開模塊

首先，在Excel開發(fā)工具中打開VBA編輯器，插入一個(gè)新的模塊。接下來，您可以在單元格區(qū)域中輸入一些內(nèi)容作為例子。

插入并運(yùn)行VBA代碼

在新建的模塊中輸入以下VBA代碼：

```VBA

Sub 使圖片適合單元格()

Dim Pic As Picture, i As Long

i [C65536].End(xlUp).Row

For Each Pic In

Cells(i, 3).Top '設(shè)置上邊距

Pic.Left Cells(i, 3).Left '設(shè)置左邊距

Pic.Width Cells(i, 3).Width '設(shè)置寬度

Pic.Height Cells(i, 3).Height '設(shè)置高度

'選擇圖片

With Selection

.Placement xlMoveAndSize '隨單元格移動(dòng)和調(diào)整大小

.PrintObject True '讓圖片可打印

End With

i i 1

Next

End Sub

```

然后運(yùn)行此代碼，即可實(shí)現(xiàn)將圖片適配到單元格大小的效果。

執(zhí)行宏

使用快捷鍵Alt F8調(diào)出“運(yùn)行宏”窗口，選擇剛剛創(chuàng)建的宏并點(diǎn)擊“執(zhí)行”，這樣，C列中的參差不齊的圖片就會(huì)立即調(diào)整為適合單元格大小了。

以上就是利用VBA批量調(diào)整圖片適合單元格大小的方法，通過簡單的代碼和操作，可以大幅提高工作效率。希望對(duì)您有所幫助！