3步轻松设置word中所有图片等宽

无名氏 系统技巧, 软件技巧 2,318 次浏览 , , 3步轻松设置word中所有图片等宽已关闭评论

1、按住Alt不松,依次按下F8,I,M调出宏编辑窗口
2、输入内容如下:

Sub SameImgWidth()
        '设置图片大小
        ' 宏在 2008-3-31 由 hero_thm 录制
        '
        Dim j '计数图片个数
        For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数,图片类型为inlineshapes
                ActiveDocument.InlineShapes(j).Height = 362 '设置高度
                ActiveDocument.InlineShapes(j).Width = 481.87 '设置宽度
        Next j
End Sub

3、保存退出,点运行setpicsize宏,word中所有的图片统一调整为宽17cm,高12.77cm
————————————————————————————————————————————————————————
例2

Sub SameImgWidth()
        '设置图片大小
        ' 宏在 2008-3-31 由 hero_thm 录制
        '
        Dim j '计数图片个数
        For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数,图片类型为inlineshapes
                If ActiveDocument.InlineShapes(j).Width > 480 Then
                        ActiveDocument.InlineShapes(j).Width = 400 '设置宽度
                End If
        Next j
End Sub
Go