word宏調整圖片比例

1. 如何通過「宏」批量完成word中所有圖片大小的修改並且讓圖片安排原來順序排列

1、Alt+F8調出宏編輯窗口
2、點創建按鈕，創建新宏，setpicsize,內容如下：
Sub setpicsize()
'設置圖片大小
' 宏在 2008-3-31 由 hero_thm 錄制
'
Dim j '計數圖片個數
For j = 1 To ActiveDocument.InlineShapes.Count '文件中圖片總個數，圖片類型為inlineshapes
ActiveDocument.InlineShapes(j).Height = 362 '設置高度
ActiveDocument.InlineShapes(j).Width = 481.87 '設置寬度
Next j

End Sub
3、保存退出，點運行setpicsize宏，word中所有的圖片統一調整為寬17cm，高12.77cm
Sub setpicsize()
'設置圖片大小
' 宏在 2008-3-31 由 hero_thm 錄制
'
Dim j '計數圖片個數
For j = 1 To ActiveDocument.InlineShapes.Count '文件中圖片總個數，圖片類型為inlineshapes
If ActiveDocument.InlineShapes(j).Width > 480 Then
ActiveDocument.InlineShapes(j).Width = 400 '設置寬度
End If
Next j
End Sub

2. word 統一修改圖片比例

把word中的所有圖片修改成固定的並且相同的長和寬

• 1

  打開word，工具－宏－宏（或者直接按Alt+F8）進入宏的界面，如下面所示。

  

注意事項

• 需要注意的地方 就是注意厘米與像素的換算關系。一般情況下1厘米=28px 。這個換算關系其實可以用計算器計算出來。計算公式為圖片改變之後的像素除以改變之後圖片的大小厘米。

• 這里的Shapes（InlineShapes）不僅僅是指圖片，也包含其它的，自選圖形、任意多邊形、OLE 對象、ActiveX 控制項、圖片等。

3. Word中批量修改圖片大小和縮放比例方法

最近小編遇到一個問題：需要將一篇word文檔中的所有圖片全部縮小比例。一張張改太麻煩了。於是從網上搜羅了一下，還真找到了解決辦法。需要注意的地方
就是注意厘米與像素的換算關系。一般情況下1厘米=28px
。這個換算關系其實可以用計算器計算出來。計算公式為圖片改變之後的像素除以改變之後圖片的大小厘米。
固定長寬篇
這部分要說的是把word中的所有圖片修改成固定的並且相同的長和寬！
1、打開word，工具－宏－宏（或者直接按Alt+F8）進入宏的界面，如下面所示，輸入一個宏名，宏名自己起，能記住就行！
2、宏名起好了，單擊「創建」進入Visual
Basic
編輯器，輸入如下代碼並保存
Sub
setpicsize()
'設置圖片大小
Dim
n
'圖片個數
On
Error
Resume
Next
'忽略錯誤
Forn
=
1
ToActiveDocument.InlineShapes.Count
'InlineShapes類型圖片
ActiveDocument.InlineShapes(n).Height
=
400
'設置圖片高度為
400px
ActiveDocument.InlineShapes(n).Width
=
300
'設置圖片寬度
300px
Nextn
Forn
=
1
ToActiveDocument.Shapes.Count
'Shapes類型圖片
ActiveDocument.Shapes(n).Height
=
400
'設置圖片高度為
400px
ActiveDocument.Shapes(n).Width
=
300
'設置圖片寬度
300px
Nextn
End
Sub
3、返回word，工具－宏－宏（或者直接按Alt+F8），再次進入宏的界面，選擇剛才編輯好的宏，並單擊「運行」按鈕，就可以了！（圖片多時，可能會花一些時間）
按比例縮放篇
這部分要說的是把word中的所有圖片按比例縮放！
具體操作同上，只是代碼部分稍做修改，代碼如下：
Sub
setpicsize()
'設置圖片大小
Dim
n
'圖片個數
Dimpicwidth
Dimpicheight
On
Error
Resume
Next
'忽略錯誤
For
n
=
1
ToActiveDocument.InlineShapes.Count
'InlineShapes類型圖片
picheight
=
ActiveDocument.InlineShapes(n).Height
picwidth
=
ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height
=
picheight
*
1.1
'設置高度為1.1倍
ActiveDocument.InlineShapes(n).Width
=
picwidth
*
1.1
'設置寬度為1.1倍
Nextn
For
n
=
1
To
ActiveDocument.Shapes.Count
'Shapes類型圖片
picheight
=
ActiveDocument.Shapes(n).Height
picwidth
=
ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height
=
picheight
*
1.1
'設置高度為1.1倍
ActiveDocument.Shapes(n).Width
=
picwidth
*
1.1
'設置寬度為1.1倍
Nextn
End
Sub
若還想使所有圖片居中對齊，可在循環中加入下面的語句：
ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment=
wdAlignParagraphCenter
『左對齊：wdAlignParagraphLeft
注意：這里的Shapes（InlineShapes）不僅僅是指圖片，也包含其它的，自選圖形、任意多邊形、OLE
對象、ActiveX
控制項、圖片等。

4. 關於在WORD里使用宏將所有圖片比例縮小的問題。

Sub a()
i = InputBox("請輸入放大縮小比例，例如：0.5或者1.5")
For Each pic In ActiveSheet.DrawingObjects
With pic
.Select
.ShapeRange.Height = Selection.ShapeRange.Height * i
.ShapeRange.Width = Selection.ShapeRange.Width * i
End With
Next
End Sub
試試 這樣吧 有問題在溝通

5. WORD用宏按比例縮放單個圖片

我喜歡VB，自購了一本入門教程，現在入門水平而已，剛編了（如下）一宏「

Dim h!, w!
h = Selection.InlineShapes(1).Height
w = Selection.InlineShapes(1).Width
Selection.InlineShapes(1).Height = h * 0.87
Selection.InlineShapes(1).Width = w * 0.87

End Sub

」試驗解決你的要求：選折目標圖片，執行此宏結果是將圖片的長/寬度皆調整為87％。（原圖及執行結果如圖）

【提示：你錄制此宏時為其定義一快捷鍵如「Ctrl」＋「m」，這樣操作時方便，點擊某目標圖，按快捷鍵（「Ctrl」＋「m」），則圖片調整長/寬度為87％。】

6. word批量修改圖片大小教程：固定長寬+按比例縮放

word批量修改圖片大小方法：
固定長寬方法：
1、打開word，工具-宏-宏(或者直接按Alt+F8)進入宏的界面，如下面所示，輸入一個宏名，宏名自己起，能記住就行!

2、宏名起好了，單擊“創建”進入Visual
Basic
編輯器，輸入如下代碼並保存
Sub
setpicsize()
'設置圖片大小
Dim
n
'圖片個數
On
Error
Resume
Next
'忽略錯誤
Forn
=
1
ToActiveDocument.InlineShapes.Count
'InlineShapes類型圖片
ActiveDocument.InlineShapes(n).Height
=
400
'設置圖片高度為
400px
Nextn
Forn
=
1
ToActiveDocument.Shapes.Count
'Shapes類型圖片
ActiveDocument.Shapes(n).Height
=
400
'設置圖片高度為
400px
ActiveDocument.Shapes(n).Width
=
300
'設置圖片寬度
300px
Nextn
End
Sub

3、返回word，工具-宏-宏(或者直接按Alt+F8)，再次進入宏的界面，選擇剛才編輯好的宏，並單擊“運行”按鈕，就可以了!(圖片多時，可能會花一些時間)

按比例縮放方法
這部分要說的是把word中的所有圖片按比例縮放!
具體操作同上，只是代碼部分稍做修改，代碼如下：
Sub
setpicsize()
'設置圖片大小
Dim
n
'圖片個數
Dimpicwidth
Dimpicheight
On
Error
Resume
Next
'忽略錯誤
For
n
=
1
ToActiveDocument.InlineShapes.Count
'InlineShapes類型圖片
picheight
=
ActiveDocument.InlineShapes(n).Height
picwidth
=
ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height
=
picheight
*
1.1
'設置高度為1.1倍
ActiveDocument.InlineShapes(n).Width
=
picwidth
*
1.1
'設置寬度為1.1倍
Nextn
For
n
=
1
To
ActiveDocument.Shapes.Count
'Shapes類型圖片
picheight
=
ActiveDocument.Shapes(n).Height
picwidth
=
ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height
=
picheight
*
1.1
'設置高度為1.1倍
ActiveDocument.Shapes(n).Width
=
picwidth
*
1.1
'設置寬度為1.1倍
Nextn
End
Sub
若還想使所有圖片居中對齊，可在循環中加入下面的語句：
ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment=
wdAlignParagraphCenter
‘左對齊：wdAlignParagraphLeft

注意：這里的Shapes(InlineShapes)不僅僅是指圖片，也包含其它的，自選圖形、任意多邊形、OLE
對象、ActiveX
控制項、圖片等。

好啦！word批量修改圖片大小的方法就是這樣的了，這兩種方法各有千秋，大家可以根據情況自行選擇哦！

猜你還喜歡：
word未保存如何恢復?word文檔未保存恢復方法匯總
word文檔如何畫線條？word快速畫出5種線條小技巧

7. 如何做用宏自動調整word文檔中圖片尺寸

方法/步驟

先打開存有圖片的word

在打開的文檔中，選擇在「工具」菜單中選擇「宏」--「宏」

隨後彈出「宏」對話框，在宏名中輸入setpicsize

宏名起好了，單擊「創建」按鈕進入Visual Basic 編輯器，輸入如下代碼
Sub setpicsize() '設置圖片大小Dim n '圖片個數On Error Resume Next '忽略錯誤For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片ActiveDocument.InlineShapes(n).Height = 400 '設置圖片高度為 400pxActiveDocument.InlineShapes(n).Width = 300 '設置圖片寬度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片ActiveDocument.Shapes(n).Height = 400 '設置圖片高度為 400pxActiveDocument.Shapes(n).Width = 300 '設置圖片寬度 300pxNext nEnd Sub

5
關閉入Visual Basic 編輯器，返回word，重新選擇「工具」--「宏」--「宏」（或者直接按Alt+F8），再次進入宏的界面，在彈出的宏名中選擇"setpicsize",最後點擊「運行」---確認即可快速地批量修改word中所有圖片大小，注意這里把圖片大小都修改成Height = 400，Width = 300，這個規格大家可以需要改變的~~~~~~~~~~~

8. 用宏如何將word中圖片大小改為大小為50% 謝謝

工具----宏----錄制新宏。取個名字，按「鍵盤」圖標，

在「請按新快捷鍵處」輸入快捷鍵，點「指定」再點「關閉」

按鍵盤上 右邊ctrl左邊的一個鍵。這是滑鼠右鍵的替代鍵。選「設置圖片格式」--「大小」，選50%，確定，就可以了，再關上宏。

9. word中插入圖片高度寬度比例怎樣設置

你好！word中插入圖片最常用的是已經剪裁好的圖片，其高度和寬度已經確定也就是說是鎖定了高度和寬度的比例。插入圖片後雙擊圖片顯示出圖片的編輯界面，這時單擊高度或寬度上的上下箭頭高度和寬度會按比例增大或減小。打開插入圖片的高級設置可以看到默認的選項是勾選了 鎖定縱橫比。我們去掉該項的勾選，這時可以單獨調節高度或寬度的大小，但是調節之後我們會發現圖片已經明顯的變形了。這就表明插入圖片的高度和寬度的比例取決於圖片製作時的比例，插入時只能按比例調整圖片的大小。

鎖定縱橫比