1
2
3
4
5
6
7
8
9
10
11
12
|
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è)置圖片高度為 400px
ActiveDocument.InlineShapes(n).Width = 300 '設(shè)置圖片寬度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片
ActiveDocument.Shapes(n).Height = 400 '設(shè)置圖片高度為 400px
ActiveDocument.Shapes(n).Width = 300 '設(shè)置圖片寬度 300px
Next n
End Sub |
操作步驟如下：
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)，如果你想要其它的大小，只需按代碼里的說明更改一下長寬數(shù)值即可。
按比例縮放的方法和上面的是一樣的，只是代碼變化一下，過程就不熬述。VBA 代碼如下：
1
2
3
4
5
6
7
8
9
10
11
12
|
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è)置圖片高度為 400px
ActiveDocument.InlineShapes(n).Width = 300 '設(shè)置圖片寬度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片
ActiveDocument.Shapes(n).Height = 400 '設(shè)置圖片高度為 400px
ActiveDocument.Shapes(n).Width = 300 '設(shè)置圖片寬度 300px
Next n
End Sub |
|
