word用宏修改文档中图片大小

转载自https://blog.csdn.net/pcj2007/article/details/78744429

记录一下,批量改图是一个很好的思路.早就听说了word宏,一直没有用过.今天(20171207)用了下,觉得的确不错.

操作步骤:

  • 1 ALT+F8 进入宏编辑模式,输入name->create
  • 2 输入宏代码
  • 3 宏代码中调整要设置的大小 Mywidth ,Myheigth
  • 4 F5 run it
  • 5 对于单个或者范围内改图大小,最好添加一个自定义的快捷键.这样改起来操作流畅.

    宏编辑模式

输入宏代码


附相关宏代码VBA, 全文档的宏代码是从网上找的,后两个是研究了一下MS文档扩展改进的.

1. 全文档范围内修改图片大小

Attribute VB_Name = "NewMacros"
Sub autopic()
' autopic Macro
'
Mywidth = 4.13
Myheigth = 5.48
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub

2. 单个选中修改图片大小

Sub autopicSing()
' autopicSing Macro
'
Mywidth = 8.13
Myheigth = 5.48
'For Each iShape In ActiveWindow.Selection.ShapeRange
With Selection.InlineShapes(1)
.Height = 28.345 * Myheigth
.Width = 28.345 * Mywidth
End With
'Next iShape
End Sub

3. 选中范围后批量修改图片大小

Sub autopicRange()
' autopicRange Macro'
'
Mywidth = 8.13
Myheigth = 5.48
'For Each iShape In ActiveWindow.Selection.ShapeRange
For Each iShape In Selection.InlineShapes
iShape.LockAspectRatio = msoFalse
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub

###添加自定义的快捷键

word版本不同,略有不同.
1. 进入word options

这里写图片描述
2.在自定义中添加快捷键

这里写图片描述

--------------------- 本文来自 庞小白 的CSDN 博客 ,全文地址请点击:https://blog.csdn.net/pcj2007/article/details/78744429?utm_source=copy

  • 2
    点赞
  • 11
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值