亚洲欧美精品沙发,日韩在线精品视频,亚洲Av每日更新在线观看,亚洲国产另类一区在线5

<pre id="hdphd"></pre>

  • <div id="hdphd"><small id="hdphd"></small></div>
      學(xué)習(xí)啦 > 學(xué)習(xí)電腦 > 工具軟件 > 辦公軟件學(xué)習(xí) > word排版教程 > Word常見(jiàn)問(wèn)題 > word中圖片批量統(tǒng)一大小圖文的操作方法

      word中圖片批量統(tǒng)一大小圖文的操作方法

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

      word中圖片批量統(tǒng)一大小圖文的操作方法

        從網(wǎng)上下載的圖片一般都是大小不一致的。在這種情況下,可以通過(guò)一些看圖軟件來(lái)統(tǒng)一圖片的大小。下面,告訴大家一個(gè)使用簡(jiǎn)單工具快速批量調(diào)整圖片大小的方法。這個(gè)工具就是大家經(jīng)常使用的office word。今天,學(xué)習(xí)啦小編就教大家在word中圖片批量統(tǒng)一大小圖文的操作方法。

        word中圖片批量統(tǒng)一大小圖文的操作步驟如下:

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

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

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

        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 文檔,點(diǎn)擊“工具”-“宏”-“Visual Biscal 編輯器。

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

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

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

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

        我用的兩張圖一個(gè)大一個(gè)小,統(tǒng)一后 400*300 還是很大,放在兩個(gè)頁(yè)面上,上面是25%的縮略圖,至此實(shí)現(xiàn)了統(tǒng)一大小的目標(biāo),如果你想要其它的大小,只需按代碼里的說(shuō)明更改一下長(zhǎng)寬數(shù)值即可。

        按比例縮放的方法和上面的是一樣的,只是代碼變化一下,過(guò)程就不熬述。VBA 代碼如下:

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

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

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

        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中圖片批量統(tǒng)一大小圖文的操作方法相關(guān)文章:

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

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

      3.如何批量調(diào)整word的圖片大小

      4.word如何批量導(dǎo)入、修改圖片尺寸和壓縮圖片

      5.word中如何將圖片統(tǒng)一設(shè)置大小

      6.如何批量更改word的圖片大小

      7.word中圖片尺寸統(tǒng)一大小的操作技巧

      2232282