Word實(shí)現(xiàn)多種要求批量插入圖片

1、可以將圖片的名稱顯示在圖片下方；

2、圖片的寬度大小可按要求任意設(shè)置（修改宏代碼里的相關(guān)數(shù)值），實(shí)現(xiàn)批量等比例縮放。 

宏代碼如下：

Sub setpicsize() '設(shè)置圖片大小

Dim n '圖片個(gè)數(shù)

On Error Resume Next '忽略錯(cuò)誤

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片

ActiveDocument.InlineShapes(n).Width = 360 '設(shè)置圖片寬度 300px

Next n

For n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片

ActiveDocument.Shapes(n).Width = 360 '設(shè)置圖片寬度 300px

Next n

End Sub

以上就是word插入圖片Word實(shí)現(xiàn)多種要求批量插入圖片全部內(nèi)容了，希望大家看完后能有所啟發(fā)，對(duì)自己的工作生活有所幫助，想要了解更多跟word插入圖片Word實(shí)現(xiàn)多種要求批量插入圖片相關(guān)的內(nèi)容，請(qǐng)關(guān)注我們最需網(wǎng)！