word文件裡面圖片整體縮放

1. 鎬庝箞鎶妛ord涓鐨勫浘鐗囨斁婊℃暣涓欏甸潰錛

瑕佸皢 Word 涓鐨勫浘鐗囪劇疆涓哄～婊℃暣涓欏甸潰錛屽彲浠ユ寜鐓т互涓嬫ラよ繘琛屾搷浣滐細

• 鍦 Word 鏂囨。涓鎻掑叆鍥劇墖銆傚彲浠ヤ嬌鐢ㄨ彍鍗曟爮涓婄殑"鎻掑叆"閫夐」鍗★紝鐒跺悗鐐瑰嚮"鍥劇墖"鎸夐挳鏉ユ彃鍏ュ浘鐗囨枃浠躲

• 閫変腑鎻掑叆鐨勫浘鐗囥傚崟鍑諱竴嬈″浘鐗囷紝紜淇濆畠琚閫変腑銆

• 鍦ㄨ彍鍗曟爮涓婄殑"鏍煎紡"閫夐」鍗′腑錛屾壘鍒"鍥劇墖宸ュ叿"緇勩傜偣鍑昏ョ粍涓嬬殑"鏍煎紡"鎸夐挳錛屼互鎵撳紑鍥劇墖鏍煎紡璁劇疆闈㈡澘銆

• 鍦ㄥ浘鐗囨牸寮忚劇疆闈㈡澘涓鐨"澶у皬"閮ㄥ垎錛屾壘鍒"緙╂斁"閫夐」銆傝風『淇"緙╂斁"閫夐」鏃佽竟鐨勯攣褰㈠浘鏍囨槸瑙ｉ攣鐘舵侊紝榪欐牱鎵嶈兘鑷鐢辮皟鏁村浘鐗囧ぇ灝忋

• 灝"緙╂斁"閫夐」涓鐨勭櫨鍒嗘瘮鏀逛負"100%"銆備綘涔熷彲浠ユ墜鍔ㄨ緭鍏"100%"錛屾垨鑰呴氳繃鐐瑰嚮鐧懼垎姣旀梺杈圭殑涓婁笅綆澶撮愭笎璋冩暣澶у皬銆

• 鍦ㄥ浘鐗囨牸寮忚劇疆闈㈡澘涓鐨"鏂囨湰鐜緇"閮ㄥ垎錛岄夋嫨"緔у瘑鍨"錛岃繖灝嗕嬌寰楀浘鐗囦笌鏂囧瓧鐩擱偦錛屽苟瑕嗙洊鏁翠釜欏甸潰銆

• 鐐瑰嚮鍥劇墖鏍煎紡璁劇疆闈㈡澘涓婄殑"鍏抽棴"鎸夐挳錛屽畬鎴愯劇疆銆

瀹屾垚浠ヤ笂姝ラゅ悗錛屽浘鐗囧簲褰撹璋冩暣騫跺～婊℃暣涓欏甸潰銆備綘鍙浠ュ湪鎵撳嵃棰勮堟垨瀹為檯鎵撳嵃杈撳嚭涓鏌ョ湅鏁堟灉銆傝鋒敞鎰忥紝鍥劇墖鐨勮川閲忓拰姣斾緥鍙鑳戒細鍥犳媺浼歌屾湁鎵鎹熷け錛屽緩璁閫夋嫨楂樺垎杈ㄧ巼鐨勫浘鐗囦互鑾峰緱鏇村ソ鐨勭粨鏋溿

2. 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 控制項、圖片等。

3. 怎麼批量把word中的圖片的大小都縮小

word中的圖片的大小都縮小是利用word中的工具：宏功能，對圖片進行寬高設置，等比例縮放操作。具體的方法如下：

1.具體操作同上：打開word，工具－宏－宏（或者直接按Alt+F8）進入宏的界面，如下面所示；

注意事項：

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

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

4. word鏂囨。鎬庝箞闆嗕綋璋冨浘鐗囧ぇ灝弚ord鏂囨。鎬庝箞闆嗕綋璋冨浘鐗囧ぇ灝忓拰瀹藉害

銆宸為椃娓椼瑕佸湪Word鏂囨。涓闆嗕綋璋冩暣澶氬紶鍥劇墖鐨勫ぇ灝忥紝鍙浠ユ寜鐓т互涓嬫ラよ繘琛屾搷浣滐細
銆銆1. 閫変腑鎵鏈夐渶瑕佽皟鏁村ぇ灝忕殑鍥劇墖錛氭寜浣廋trl閿錛屽苟鍗曞嚮榧犳爣宸﹂敭渚濇￠夋嫨鎵鏈夌殑鍥劇墖銆傛垨鑰呭湪鏂囨。涓榪涜屾嗛夛紝閫変腑鎵鏈夌殑鍥劇墖銆
銆銆2. 鍦ㄢ滄牸寮忊濋夐」鍗′腑鐐瑰嚮鈥滃浘鐗囧伐鍏鋒牸寮忊濋夐」鍗°
銆銆鍐岃剨3. 鍦ㄢ滃ぇ灝忊濈粍涓錛屽彲浠ヤ嬌鐢ㄤ互涓嬩袱縐嶆柟娉曡繘琛岃皟鏁村浘鐗囧ぇ灝忥細
銆銆- 鏂規硶涓錛氱洿鎺ヨ劇疆鍥劇墖澶у皬姣斾緥錛
銆銆- 鐐瑰嚮鈥滃ぇ灝忊濈粍涓鐨勨滅緝鏀鋸濇寜閽錛屽湪寮瑰嚭鐨勯夐」鍐呴夋嫨鐩稿簲鐨勭櫨鍒嗘瘮澶у皬銆
銆銆- Word灝嗕細鎸夌収鎵閫夋瘮渚嬭皟鏁存墍鏈夐変腑鐨勫浘鐗囩殑澶у皬銆
銆銆- 鏂規硶浜岋細鎸囧畾鍏蜂綋鐨勫浘鐗囧昂瀵革細
銆銆- 鐐瑰嚮鈥滃ぇ灝忊濈粍涓鐨勨滃ぇ灝忓拰浣嶇疆鈥濇寜閽錛屽皢浼氬脊鍑衡滃ぇ灝忓拰浣嶇疆鈥濈獥鍙ｃ
銆銆- 鍦ㄢ滃ぇ灝忊濋夐」鍗′腑錛屽彲浠ヨ皟鏁村浘鐗囩殑灝哄革紝杈撳叆鍏蜂綋鐨勫藉害鍜岄珮緗╃┖搴︽暟鍊兼潵榪涜岃懼畾銆
銆銆- 鍦ㄦょ獥鍙ｄ腑榪樺彲浠ヨ劇疆鍏朵粬鍙傛暟錛屽傞攣瀹氱旱妯姣斾緥銆佺浉瀵逛簬欏甸潰鐨勪綅緗絳夈
銆銆- 璋冩暣濂藉弬鏁板悗錛岀偣鍑燴滅『瀹氣濇寜閽搴旂敤璁劇疆銆