WORD文档图片怎么编辑宏宏

来源：蜘蛛抓取(WebSpider) 时间：2018-07-31 21:36 标签： 如何编辑宏
Copyright &
华军软件园 手机软件下载.word使用宏命令批量按比例设置图片大小 - ck007 - 博客园
1，单击文件
3.如下图，最后确定
5.在弹出框中点击创建，
&6.将宏命令copy到命令窗口中并点击运行即可，也无需保存
注意，n需要替换为实际值：如15
代码中单位厘米
（1）设置固定大小n厘米：
Sub resetImgSize()
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
iShape.LockAspectRatio = msoTrue
iShape.Height = CentimetersToPoints(n)iShape.Width = CentimetersToPoints(n)NextEnd Sub
（2）等比例缩放n倍：
Sub resetImgSize()
Dim imgHeight
Dim imgWidth
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
iShape.LockAspectRatio = msoTrue
imgHeight =&iShape.Height
imgWidth =&iShape.Width
iShape.Height = CentimetersToPoints(n * imgHeight )iShape.Width = CentimetersToPoints(n * imgWidth)
NextEnd Sub
（3）最大宽度n厘米等比例缩放：
Sub resetImgSize()
Dim imgHeight
Dim imgWidth
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
iShape.LockAspectRatio = msoTrue
imgHeight = iShape.HeightimgWidth = iShape.Width
iShape.Height = CentimetersToPoints(n * imgHeight / imgWidth)iShape.Width = CentimetersToPoints(n)NextEnd Sub帖子很冷清，卤煮很失落！求安慰
手机签到经验翻倍！快来扫一扫！
word中怎样进行宏调整图片尺寸？
162浏览 / 0回复
因为小编的工作需要，我需要保存很多的截图文件在world文档中，但图片的大小很不一致，规格也都不一样，堆在文档里面很难看，为了在排版的时候看着美观，所以我决定把部分图片的大小统一一下，下面大家看看我是怎么样利用宏批量修改图片大小的操作技巧。新建一个，切换选项卡到“布局”，点击图中标示荧光黄的位置打开页面设置。在页面设置中，将设置页边距上下左右都设置为0.5厘米，纸张方向改为横向。选择Word选项卡中的插入选项，选择要插入的照片文件，多选一次性插入。&这时，切换到选项卡到视图一项，点击右侧的“宏”。在弹出界面中，随便输入一个宏名称，比如“打印”，然后点击创建。将以下内容复制到弹出的Microsoft
Basic中，注意其中Height = 216 * 0.7、Width = 300 * 0.8中的数值。如果后续执行时不能缩进到同一页面下，可以调整这部分的数字。Dim i As IntegerFor i = 1 To ActiveDocument.InlineShapes.CountWith ActiveDocument.InlineShapes(i).Height = 238 * 0.7.Width = 315 * 0.8.Borders(wdBorderTop).LineStyle = wdLineStyleSingle.Borders(wdBorderTop).LineWidth = wdLineWidth050pt.Borders(wdBorderTop).Color = wdColorAutomaticEnd WithNext i编辑完成后关闭，回到Word界面，点击“宏”下拉菜单（倒三角），找到“查看宏”并单击运行，Word就会进行自动的缩放排序，多张图片很容易就缩进到一页内。如果不能，记得调整宏中Height、Width数值。&按下Ctrl+P调出打印页面，选择打印即可，一张A4规格的纸张就能缩进多张图片，是不是很方便？通过宏命令，可以将很多需要人手工一步一步调整的方法变成一步。以后打印照片就方便多啦。& & 以上就是关于怎样使用宏批量修改word图片大小的具体方法，如果你和小编一样需要保存大量截图，又不知道如何整理这些图片的话，就可以参考小编的方法设置。
用户名/注册邮箱/注册手机号
其他第三方号登录如何做用宏自动调整word文档中图片尺寸_百度知道
如何做用宏自动调整word文档中图片尺寸
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
来自电脑网络类芝麻团
采纳数：16118
获赞数：9410
参与团队：
方法/步骤先打开存有图片的word在打开的文档中，选择在“工具”菜单中选择“宏”--“宏”随后弹出“宏”对话框，在宏名中输入setpicsize宏名起好了，单击“创建”按钮进入Visual Basic 编辑器，输入如下代码Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300pxNext nEnd Sub5关闭入Visual Basic 编辑器，返回word，重新选择“工具”--“宏”--“宏”（或者直接按Alt+F8），再次进入宏的界面，在弹出的宏名中选择&setpicsize&,最后点击“运行”---确认即可快速地批量修改word中所有图片大小，注意这里把图片大小都修改成Height = 400，Width = 300，这个规格大家可以需要改变的~~~~~~~~~~~
设置表格然后插入图片试试看。要不行就只能手动调整了。
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。

我要回帖

更多关于 如何编辑宏 的文章

 

随机推荐