操作步驟如下：1. 打開要統(tǒng)一圖片大小的 Word 文檔，點(diǎn)擊“工具”-“宏”-“Visual Biscal 編輯器。
2. 插入 normal 工程“模塊”。
3. 在“模塊”中粘貼上面的代碼。
4. 保存，返回你要統(tǒng)一圖片大小的 Word 文檔。運(yùn)行“工具”-“宏”-"宏命令"。
看一下結(jié)果，是不是你想要的統(tǒng)一圖片大小。
我用的兩張圖一個(gè)大一個(gè)小，統(tǒng)一后 400*300 還是很大，放在兩個(gè)頁面上，上面是25%的縮略圖，至此實(shí)現(xiàn)了統(tǒng)一大小的目標(biāo)，如果你想要其它的大小，只需按代碼里的說明更改一下長(zhǎng)寬數(shù)值即可。
按比例縮放的方法和上面的是一樣的，只是代碼變化一下，過程就不熬述。VBA 代碼如下：
123456789101112 Sub setpicsize() 設(shè)置圖片大小Dim n 圖片個(gè)數(shù)On Error Resume Next 忽略錯(cuò)誤For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes類型圖片ActiveDocument.InlineShapes(n).Height = 400 設(shè)置圖片高度為 400pxActiveDocument.InlineShapes(n).Width = 300 設(shè)置圖片寬度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count Shapes類型圖片ActiveDocument.Shapes(n).Height = 400 設(shè)置圖片高度為 400pxActiveDocument.Shapes(n).Width = 300 設(shè)置圖片寬度 300pxNext nEnd Sub新聞熱點(diǎn)
疑難解答
圖片精選
