明輝手游網(wǎng)中心:是一個免費提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺!

怎么將word圖片大局部統(tǒng)一大小方法圖文詳細(xì)教程

[摘要]軟件等級:更新時間:2017-11-30版本號:v1.0.0.1 極速Office2017最新版下載立即下載 如何將word圖片批量統(tǒng)一大小圖文教程改變圖片形狀:要對一個圖片進行不規(guī)則的...
極速Office2017最新版下載

軟件等級:

更新時間:2017-11-30

版本號:v1.0.0.1

極速Office2017最新版下載

 如何將word圖片批量統(tǒng)一大小圖文教程

改變圖片形狀:要對一個圖片進行不規(guī)則的編輯,可以打開繪圖工具,選取任意的自選圖形,然后在這個圖形上點擊右鍵,選取“設(shè)置自選圖形格式”,在“填充顏色”中點擊下拉箭頭,選取“填充效果”,并選中“圖片”選項卡,在“選擇圖片”按鈕上點擊。然后在硬盤文件夾中選取喜歡的任何圖片,點擊確定后圖片的外形即為該自選圖形。

小編最近需要寫的文檔越來越多了,有些時候,我們用 Word 來做一些圖文混排的文檔,必須使用一些比較正規(guī)的格式和樣式,例如使文檔中的每一幅圖片大小一致。下面的方法就是告訴我們 Word 中批量處理統(tǒng)一圖片大小的方法。

使用方法:把代碼復(fù)制到 Visual Biscal 編輯器中,再回到 Word 界面,運行“宏”命令。

 

1
2
3
4
5
6
7
8
9
10
11
12
Sub setpicsize() '設(shè)置圖片大小
Dim n '圖片個數(shù)
On 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 '設(shè)置圖片高度為 400px
ActiveDocument.Shapes(n).Width = 300 '設(shè)置圖片寬度 300px
Next n
End Sub

 

操作步驟如下:
1. 打開要統(tǒng)一圖片大小的 Word 文檔,點擊“工具”-“宏”-“Visual Biscal 編輯器。
 

 如何將word圖片批量統(tǒng)一大小圖文教程

2. 插入 normal 工程“模塊”。
 

 如何將word圖片批量統(tǒng)一大小圖文教程

3. 在“模塊”中粘貼上面的代碼。
 

 如何將word圖片批量統(tǒng)一大小圖文教程

4. 保存,返回你要統(tǒng)一圖片大小的 Word 文檔。運行“工具”-“宏”-"宏命令"。
 

 如何將word圖片批量統(tǒng)一大小圖文教程

看一下結(jié)果,是不是你想要的統(tǒng)一圖片大小。

 如何將word圖片批量統(tǒng)一大小圖文教程

我用的兩張圖一個大一個小,統(tǒng)一后 400*300 還是很大,放在兩個頁面上,上面是25%的縮略圖,至此實現(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 '圖片個數(shù)
On 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 '設(shè)置圖片高度為 400px
ActiveDocument.Shapes(n).Width = 300 '設(shè)置圖片寬度 300px
Next n
End Sub

 

Word中畫直線及精確調(diào)整圖形的技巧
  如果想畫水平、垂直或30、45、75度的角的直線,則固定一個端點后在拖動鼠標(biāo)時按住Shift,上下拖動鼠標(biāo),將會出現(xiàn)上述幾種直線選擇,合適后松開Shift鍵。
  按住Shift+矩形,拖動鼠標(biāo),可以畫出一個正方形。
  另外,按下Ctrl+方向鍵可以實現(xiàn)圖形的微調(diào);按下Alt+線段的一段,也可以實現(xiàn)對線段長短或者位置的微調(diào);


學(xué)習(xí)教程快速掌握從入門到精通的電腦知識