国产成人v爽在线免播放观看,日韩欧美色,久久99国产精品久久99软件,亚洲综合色网站,国产欧美日韩中文久久,色99在线,亚洲伦理一区二区

學(xué)習(xí)啦 > 學(xué)習(xí)電腦 > 工具軟件 > 辦公軟件學(xué)習(xí) > word排版教程 > Word使用技巧 > Word中進(jìn)行批量修改圖片的大小和縮放比例的操作方法

Word中進(jìn)行批量修改圖片的大小和縮放比例的操作方法

時(shí)間: 曉生931 分享

Word中進(jìn)行批量修改圖片的大小和縮放比例的操作方法

  最近遇到一個(gè)問題:需要將一篇word文檔中的所有圖片全部縮小比例。一張張改太麻煩了。今天,學(xué)習(xí)啦小編就教大家在Word中進(jìn)行批量修改圖片的大小和縮放比例的操作方法。

  Word中進(jìn)行批量修改圖片的大小和縮放比例的操作步驟

  這部分要說的是把word中的所有圖片修改成固定的并且相同的長和寬!

  1、打開word,工具-宏-宏(或者直接按Alt+F8)進(jìn)入宏的界面,如下面所示,輸入一個(gè)宏名,宏名自己起,能記住就行!

  2、宏名起好了,單擊“創(chuàng)建”進(jìn)入Visual Basic 編輯器,輸入如下代碼并保存

  Sub setpicsize() '設(shè)置圖片大小

  Dim n '圖片個(gè)數(shù)

  On Error Resume Next '忽略錯(cuò)誤

  Forn = 1 ToActiveDocument.InlineShapes.Count 'InlineShapes類型圖片

  ActiveDocument.InlineShapes(n).Height = 400 '設(shè)置圖片高度為 400px

  ActiveDocument.InlineShapes(n).Width = 300 '設(shè)置圖片寬度 300px

  Nextn

  Forn = 1 ToActiveDocument.Shapes.Count 'Shapes類型圖片

  ActiveDocument.Shapes(n).Height = 400 '設(shè)置圖片高度為 400px

  ActiveDocument.Shapes(n).Width = 300 '設(shè)置圖片寬度 300px

  Nextn

  End Sub

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

  按比例縮放篇

  這部分要說的是把word中的所有圖片按比例縮放!

  具體操作同上,只是代碼部分稍做修改,代碼如下:

  Sub setpicsize() '設(shè)置圖片大小

  Dim n '圖片個(gè)數(shù)

  Dimpicwidth

  Dimpicheight

  On Error Resume Next '忽略錯(cuò)誤

  For n = 1 ToActiveDocument.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 * 1.1 '設(shè)置寬度為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 '設(shè)置高度為1.1倍

  ActiveDocument.Shapes(n).Width = picwidth * 1.1 '設(shè)置寬度為1.1倍

  Nextn

  End Sub

  若還想使所有圖片居中對(duì)齊,可在循環(huán)中加入下面的語句:

  ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter

  ‘左對(duì)齊:wdAlignParagraphLeft

  注意:這里的Shapes(InlineShapes)不僅僅是指圖片,也包含其它的,自選圖形、任意多邊形、OLE 對(duì)象、ActiveX 控件、圖片等。

看過Word中進(jìn)行批量修改圖片的大小和縮放比例的操作方法還看了:

1.Word2010中批量修改圖片大小長寬或按比縮放的操作方法

2.Word中進(jìn)行批量將圖片調(diào)整到相同尺寸大小的操作方法

3.Word中使用簡單工具快速批量調(diào)整圖片大小的操作方法

4.Word2013中批量統(tǒng)一圖片大小的操作方法

5.word中進(jìn)行設(shè)置圖片格式批量統(tǒng)一的操作技巧

2450063