批量调整word中图片的大小、放大缩小

很多时候都会遇到需要批量调整图片大小的情况，尤其是在论文书写中，本文就介绍一种调整方法。

操作方法

  • 01

    打开所要调整图片大小的word文档。

  • 02

    点击工具—宏—visual basic编辑器。点击试图—代码窗口，打开代码窗口。

  • 03

    将代码“Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 100 '设置图片高度为 100pxActiveDocument.InlineShapes(n).Width = 100 '设置图片宽度 100pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 100 '设置图片高度为 100pxActiveDocument.Shapes(n).Width = 100 '设置图片宽度 100pxNext nEnd Sub” 输入窗口，修改其中“Height = 100”和“Width = 100”即可按照要求更改图片大小。

  • 04

    点击运行—运行子程序，或者按F5运行即可。图片大小就修改完毕。

  • 05

    如果说图片是按比例修改，则把第三步的程序改为： Sub setpicsize() '设置图片大小Dim n '图片个数Dim picwidthDim picheightOn Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片picheight = ActiveDocument.InlineShapes(n).Heightpicwidth = ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nEnd Sub

赞 (0)

相关推荐

  • wps如何批量修改word中图片的尺寸，统一大小

    相信很多朋友都有在用WPS.今天小编要和大家分享的是WPS如何批量修改word中图片的尺寸统一大小,希望能够帮助到大家. 操作方法 01 首先在我们的手机桌面上新建一个WPS文档,如下图所示. 02 ...

  • 批量删除Word中图片的方法

    很多时候,我们需要将word中的图片删除掉,只留下文字,不过图片数量过多,一一删除太费时.今天的word教程就是教大家如快速批量删除图片的,如果也想知道操作的方法,那就进来学习咯,以下是详细的操作步骤 ...

  • 如何批量修改Word中图片大小和缩放比例的方法介绍

    最近小编遇到一个问题：需要将一篇word文档中的所有图片全部缩小比例。一张张改太麻烦了。于是从网上搜罗了一下，还真找到了解决办法。需要注意的地方 就是注意厘米与像素的换算关系。一般情况下1厘米=28p ...

  • wps怎么批量提取ppt中的图片（批量提取word中图片）

    wps怎么批量提取ppt中的图片（批量提取word中图片）

    [摘要]前两天同事问了个问题,手上有个PPT,里面的图片和视频非常珍贵,想复制出来单独保存,但是图片一个个另存太麻烦,而且视频文件根本不知道如何保存下来,咨询有没有更好的办法获取PPT中的资料?[正文 ...

  • 如何修改word中图片的大小的方法

    在工作中经常遇到文档中的图片大小不合适,那就需要调整,如果多长图片要调整呢?下面我们来说几种方法,要看完重点在后面. 操作方法 01 常规设置方法,在图片上右击,点击设置图片格式 02 在弹出对话框中 ...

  • 如何调整word中图片的对比度

    操作方法 01 文档中有些对比度较差的图片看起来灰蒙蒙的,让人不喜欢,怎么办呢?word2007提供了补救的方法.就是可以通过改变图片的对比度来让图片变得清晰. 02 打开word2007,插入一张图 ...

  • WPS 2012实用教程教你如何保存Word中图片

    如何保存Word中的图片，方法有不少，但怎样才能以最快速度批量将Word中数量庞大的图片提取出来，这里就有学问了。笔者推荐一个WPS Office 2012 的Word教程，可以帮助你轻轻松松就把Wo ...

  • 怎么批量调整Word文档中的图片大小

    怎么批量调整Word文档中的图片大小

    Word是现在十分常用的文件类型之一,有些新用户不知道怎么批量调整Word文档中的图片大小,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步根据下图所示,打开电脑中的任意Word文 ...

  • 如何调整word文档中图片的大小（精确调整）

    如何调整word文档中图片的大小呢?下面小编来教大家. 操作方法 01 首先,我们打开我们的电脑,然后我们打开我们电脑上面的一个含有图片的word文档: 02 然后我们右击图片,弹出的界面,我们点击大 ...