word如何設(shè)置圖片大小一樣的-word如何設(shè)置圖片大小

1、本文格式為Word版，下載可任意編輯word如何設(shè)置圖片大小一樣的|word如何設(shè)置圖片大小 批量將圖片調(diào)整到大小全都，PS也不是很好操作的。word文檔卻能很輕易的做到這一點(diǎn)，對于常用word的伴侶就再熟識不過了，下面讓我為你帶來如何設(shè)置word圖片大小全都的方法。 word設(shè)置圖片大小全都的方法 1、打開word，工具-宏-宏(或者直接按Alt+F8)進(jìn)入宏的界面，如下面所示，輸入一個宏名，宏名自己起，能記住就行! 2、宏名起好了，單擊"創(chuàng)建'進(jìn)入Visual Basic 編輯器，輸入如下代碼并保存 Sub setpicsize() 設(shè)置圖片大小 Dim n 圖片個數(shù) O

2、n Error Resume Next 忽視錯誤 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

3、設(shè)置圖片高度為 400px ActiveDocument.Shapes(n).Width = 300 設(shè)置圖片寬度 300px Next n End Sub 3、返回word，工具-宏-宏(或者直接按Alt+F8)，再次進(jìn)入宏的界面，選擇剛才編輯好的宏，并單擊"運(yùn)行'按鈕，就可以了!(圖片多時，可能會花一些時間) word批量修改圖片大小按比例縮放篇 這部分要說的是把word中的全部圖片按比例縮放! 詳細(xì)操作同上，只是代碼部分稍做修改，代碼如下： Sub setpicsize() 設(shè)置圖片大小 Dim n 圖片個數(shù) Dim picwidth Dim picheight On

4、Error Resume Next 忽視錯誤 For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes類型圖片 picheight = ActiveDocument.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width ActiveDocument.InlineShapes(n).Height = picheight * 1.1 設(shè)置高度為1.1倍 ActiveDocument.InlineShapes(n).Width = picwidth *

5、 1.1 設(shè)置寬度為1.1倍 Next n For n = 1 ToActiveDocument.Shapes.Count Shapes類型圖片 picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width ActiveDocument.Shapes(n).Height = picheight * 1.1 設(shè)置高度為1.1倍 ActiveDocument.Shapes(n).Width = picwidth * 1.1 設(shè)置寬度為1.1倍 Next n End Sub 猜你感愛好： 1.怎么利用WORD里的表格讓插入的圖片保持全都的大小 2.