精华内容
下载资源
问答
  • word批量设置图片大小 Sub resetImgSize() Dim iShape As InlineShape For Each iShape In ActiveDocument.InlineShapes iShape.LockAspectRatio = msoTrue iShape.Height = CentimetersToPoints(3.5) iShape....

    word中批量设置图片大小

    Sub resetImgSize()
    Dim iShape As InlineShape
    For Each iShape In ActiveDocument.InlineShapes
    iShape.LockAspectRatio = msoTrue
    iShape.Height = CentimetersToPoints(3.5)
    iShape.Width = CentimetersToPoints(12)
    Next
    End Sub

    展开全文
  • Sub setpicsize() '设置图片大小 Dim n ' 图片个数 On Error Resume Next ' 忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片 ActiveDocument.InlineShapes(n).Height = 510 '设置...
    Sub setpicsize() '设置图片大小
    Dim n ' 图片个数
    On Error Resume Next ' 忽略错误
    For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片
    ActiveDocument.InlineShapes(n).Height = 510 '设置图片高度为 510px
    ActiveDocument.InlineShapes(n).Width = 520 '设置图片宽度 520px
    Next n
    For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片
    ActiveDocument.Shapes(n).Height = 510 '设置图片高度为 510px
    ActiveDocument.Shapes(n).Width = 520 '设置图片宽度 520px
    Next n
    End Sub
    
    
    展开全文
  • word批量修改图片大小——固定长宽篇 方法一: 这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽! 1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的 界面,如下面所示,输入一个宏名,...

    word批量修改图片大小——固定长宽篇

    方法一:

    这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽!
    1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的 界面,如下面所示,输入一个宏名,宏名自己起,能记住就行!

    宏

    2、宏名起好了,单击“创建”进入Visual Basic 编辑器,输入如下代码并保存
    Sub setpicsize() '设置图片大小
    Dim n ' 图片个数
    On Error Resume Next ' 忽略错误

    For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片
    ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
    ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
    Next n

    For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片
    ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
    ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
    Next n
    End Sub

    3、返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了!(图片多时, 可能会花一些时间)

    方法二:

    1、在word中按alt+f11组合键,进入VBA模式
    2、在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块
    3、把下面代码复制,粘贴进去.
    4、更改数值, 改一下宽度和高度数值(10),点运行(类似播放按钮.)或f5,即可设置文档中全部图片

    Sub Macro()
    Mywidth=10 ‘10为图片宽度(厘米)
    Myheigth=10 ‘10为图片高度(厘米)
    For Each iShape In ActiveDocument.InlineShapes
    iShape.Height = 28.345 * Myheigth
    iShape.Width = 28.345 * Mywidth
    Next iShape
    End Sub

    word批量修改图片大小——按比例缩放篇

    这部分要说的是把word中的所有图片按比例缩放!
    具体操作同上,只是代码部分稍做修改,代码如下:
    Sub setpicsize() '设置图片大小
    Dim n '图片个数
    Dim picwidth
    Dim picheight
    On 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 '设置高度为1.1倍
    ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍
    Next n
    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 '设置高度为1.1倍
    ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍
    Next n
    End Sub

    展开全文
  • word批量设置图像大小

    千次阅读 2018-11-30 11:17:04
    word文档中需要批量设置几十幅乃至更多图片大小时,逐个设置费时费力,本文介绍了一种使用宏操作实现图片大小批量设置的简单方法。当然,除此之外,也可以通过宏代码实现一些其他功能,如[1]所述的修改第x张图片到...

    当word文档中需要批量设置几十幅乃至更多图片大小时,逐个设置费时费力,本文介绍了一种使用宏操作实现图片大小批量设置的简单方法。当然,除此之外,也可以通过宏代码实现一些其他功能,如[1]所述的修改第x张图片到第y张图片的大小、把某些字加粗和改变颜色、所有的图片保存在一个文件夹下,或转移图片到另外一个word文档等等,但要求对编程语言有更深入一步的了解。

    软件:word 2013, 操作系统:Windows 10

    1、按视图->宏->查看宏,输入一个宏名setFigSize,按创建,如下:

    2、在代码编辑框输入如下代码,保存后退出代码编辑页面,可通过快捷键Ctrl+s和Alt+F4实现保存和退出。其中本例中高度和宽度单位为px,也可将之转换为cm,1cm等于28.35px,如[2]所述。

      Weight = 600   '设置的图片宽度
          Height = 400  '设置的图像高度
          On Error Resume Next '忽略错误
          For i = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
                  ActiveDocument.InlineShapes(i).Height = Height '设置图片高度为 Height_px
                 ActiveDocument.InlineShapes(i).Width = Weight '设置图片宽度 Weight_px
         Next i
         For i = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
                 ActiveDocument.Shapes(i).Height = Height '设置图片高度为 Height_px
                 ActiveDocument.Shapes(i).Width = Weight '设置图片宽度 Weight_px
    
         Next i

    3、运行宏setFigSize。如步骤1方式查看宏,输入setFigSize找到该宏名后,选中,再选择“运行”按键。

    4、宏代码修改编辑。如果需要再次修改编辑setFigSize宏代码,如步骤1方式查看宏,输入setFigSize找到该宏名后,选中,再选择“编辑”按键可弹出宏代码编辑框。

    参考:

    [1] http://www.cnblogs.com/cmyg/p/6708441.html word中批量修改图片大小的两个方法

    [2] https://blog.csdn.net/zhaoshuzhaoshu/article/details/77528179 使用宏的方式, 批量修改word中图片的大小

     

    展开全文
  • Word批量设置全部图片大小

    千次阅读 2012-05-18 00:49:39
    要弄移动标书时,需把大量的图片插入到office WORD中指定表格内,由于图片大小不同,一张一张调整很慢,查询了下,有以下这个方法可以快速批量改变图片大小。 版本要求是word2003等: 一,在word中按alt+f11组合键,...
  • world图片批量设置大小

    千次阅读 2018-05-22 16:12:43
    Alt + F11 -----> Miscrosoft Visual Bsic -------&...插入模块粘贴下面代码 调整自己大小Sub Macro() Mywidth = 4.13 Myheigth = 5.48 For Each iShape In ActiveDocument.InlineShapes iShape.Heigh...
  • WORD批量设置图片

    2009-12-12 10:25:55
        用宏批量定位word图片... 我知道通过宏可以批量完成一个word中所有图片大小的修改,在次与大家共享,也希望可以给大家参考。 1、Alt+F8调出宏编辑窗口 2、点创建按钮,创建新宏,setpicsize,内容如下: ...
  • 经常将PPT转换为pdf在web上逐页进行展示,在该页面上不能复制、也不能另存为,为了打破这种限制,可通过页面缩略图将pdf的每一个页面进行批量选择复制,再粘贴到word中,由于图片数量多,大小word窗口不匹配,一张...
  • word批量处理图片大小

    千次阅读 2015-05-31 17:31:41
    1.Alt+F8进入宏的界面,输入一个宏名 ...Sub 你的宏名() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片 Active
  • 方法一: 这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽! 1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的 界面,如下面...Sub setpicsize() '设置图片大小 Dim n ' 图片个数 On Err...
  • 1,单击文件 2. 3.如下图,最后确定 4.如图 5.在弹出框中点击创建, 6.将宏命令copy到命令窗口中并点击运行即可,也无需...(1)设置固定大小n厘米: Sub resetImgSize() Dim iShape As In...
  • Word文档如何批量修改图片大小

    千次阅读 2019-03-18 08:49:15
    应用Wor中的“宏”可以批量修改图片大小,这是解决图片排版的好方法。 点击Word中的“高级功能”,再点击“查看宏”进行创建即可。创建代码如下 Sub setpicsize() '设置图片大小 Dim n ’ 图片个数 On Error ...
  • 打开需要统一设置图片尺寸的Word文档,然后按下【Alt+F11】组合键打开VBA编辑窗口。 在VBA窗口中双击左侧的“ThisDocument”打开该文档的代码编辑器,并且输入以下的内容。 Sub FormatPics() Dim TuPian As ...
  • Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片 ActiveDocument.InlineShapes(n).Height = 5 * 28.35 '...
  • 利用宏统一更改word图片大小的完整代码,只要打开宏,输入我上传的代码,并且更改纵横属性及高和宽的属性,就可以批量更改word图片大小
  • 【转】word怎么批量图片大小

    千次阅读 2017-12-10 19:27:31
    方法一:在word软件界面中依次点击:开发工具→宏方法二:同时按键盘“Alt”键和“F8”键(后面简称Alt+F8...复制下面的代码到代码窗口里替换掉原有内容:Sub setpicsize() '设置图片大小Dim n '图片个数On Error Re...
  • word批量修改图片大小——固定长宽篇 这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽! 1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示,输入一个宏名,宏名自己起,能...
  • 使用宏,alt+F8进入宏查看界面,点击创建,输入以下代码,...Sub 批量设置图片大小() ' ' Macro 宏 ' ' Myheigth = 12 Mywidth = 8 On Error Resume Next '忽略错误 For Each iShape In ActiveDocument.InlineShapes
  • 固定长宽篇 这部分要说的是把word中的所有图片修改成固定的并且相同的...2、宏名起好了,单击“创建”进入Visual Basic 编辑器,输入如下代码并保存Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resum...
  • 打开含有要编辑图片word,快捷键:Alt+F8 调出宏窗口,输入宏名称:批量设置图片格式,点击创建。 第一步: 将下方的代码复制粘贴到编辑栏里,简单的编辑图片的宽和高,只要在 picheight = picwidth = 输入想要的...
  • 方法一:这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽...2、宏名起好了,单击“创建”进入Visual Basic 编辑器,输入如下代码并保存Subsetpicsize() '设置图片大小Dim n' 图片个数On Error Resume...
  • Sub aSetPicSize() ...For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数,图片类型为inlineshapes 'ActiveDocument.InlineShapes(j).Height = 10 '设置高度 ActiveDocument.InlineShapes
  • 批量调整word图片大小

    千次阅读 2015-07-15 10:45:25
    1.打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,命名一个宏名 注意:宏名不能设置为和特有关键字一样:如:set 等 2.输入一下代码 Sub tupian() ' ' tupian 宏 ' Dim n '图片个数 On Error ...
  • 用宏批量定位word图片...通过宏可以批量完成一个word中所有图片大小的修改 1、Alt+F8调出宏编辑窗口2、点创建按钮,创建新宏,setpicsize,内容如下:Sub setpicsize()'设置图片大小'Dim j '计数图片个数For j =...
  • 批量修改word中的图片大小

    千次阅读 2018-09-15 16:16:40
    编辑有大量图片的文档,一个一个手动调整图片格式,非常费力。 百度了下,发现有宏这个工具。视图选项卡--->宏---->查看宏,里面可以创建、编辑宏。...'设置图片大小 ' 宏在 2008-3-31 由 hero_...

空空如也

空空如也

1 2 3 4 5 ... 14
收藏数 271
精华内容 108
关键字:

word图片批量设置大小