簡介：有時需要大量放大或縮小文檔中的圖片，但不能在word中直接批量調(diào)整，因此必須使用VBA進行操作。有關(guān)如何輸入Vba的信息，請參見《如何批量修改word所有圖片的尺寸》。

選擇開發(fā)工具后，我將進入VB編輯器，在右側(cè)的代碼窗格中輸入。

Sub閃存溢出_按比例放大所有圖片()

On Error Resume Next

A=False

Dim比例$、高度、寬度、圖As InlineShape

Set文件=Ac

縮放比例=InputBox('輸入圖片縮放比例' Chr(13)'輸入2' Chr(13)'使所有圖片的大小均為2倍。要使所有圖片大小為0.3倍，請輸入0.3’。在閃光提示中')

If比例' ' Then

For Each圖片In文檔

繪畫。LockAspectRatio=msoTrue

高度=圖片。高度

寬度=圖片。寬度

繪畫。Height=CentimetersToPoints(比例/28.35 *高度)

繪畫。Width=CentimetersToPoints(縮放比例/28.35 *寬度)

next

End If

A=真

MsgBox(“flash溢出提示：所有圖片都按比例調(diào)整了”)

End Sub

然后關(guān)閉VB窗口

回到正文后，按alt F8鍵，選擇名為“flash溢出_按比例放大所有圖片”的宏，然后單擊“執(zhí)行”。

然后出現(xiàn)窗口

如果我們想把所有照片放大2倍，就用2；如果我們想縮小所有照片，就輸入縮小的倍數(shù)。例如，要將照片減少一半，請輸入0.5。

單擊“確定”后請稍候

然后，當(dāng)您等待彈出窗口時，系統(tǒng)會提示您完成全部縮放

然后發(fā)現(xiàn)所有的畫都按比例放大了。

總結(jié)時間

利用好Vba宏批量操作文檔，可以非?？焖俚靥岣吖ぷ餍剩蝗菀壮鲥e，注意，發(fā)送個人信件，發(fā)送關(guān)鍵詞“批量放大圖”，就可以發(fā)送bas代碼源文件！

如果認(rèn)為有收獲的話，請給予稱贊、收集、評論、傳達支持。你的支持對我很重要！(大衛(wèi)亞設(shè))。

閃光燈溢出，每天都可以使用新的get技術(shù)！