加载中…wps2013中如何统一设置多张图片的大小
(2014-05-13 13:18:07)
标签：
经验 |
分类： 办公 |
wps2013个人版中没有vba，可以到网上找下，我是从这里下载的：
点击打开“宏”，取一个宏名，并选择宏的位置，然后开始编辑，如下图
http://pan.baidu.com/share/link?shareid=3189482946&uk=221114789
下载后安装并重启电脑，打开wps，就可以看到出现了“开发工具”，开发工具下有一个“宏”，如下图
点击打开“宏”，取一个宏名，并选择宏的位置，然后开始编辑，如下图
wps会弹出一个编辑环境，如下图
在代码区中输入如下代码：
Dim i
On Error Resume Next
For i = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).Width = 59.2
' 设置图片宽度为59.2px
ActiveDocument.InlineShapes(i).Height = 49.3
'设置图片高度为49.3px
Next
注意：
代码中的width和height的单位都是像素，可以根据你所需的尺寸单位进行换算。
首先需要测试一次。将width和height均设置为100px，代码运行之后，可以发现图片的width和height均为35.3mm，所以1mm就等价于2.833px。知道了换算方法之后，就可以按需求进行换算了。比如我需要将图片的width和height分别设置为20.9mm和17.4mm，根据上述方法，很容易就可以得出结果，代码中的值应该分别为59.2和49.3。
这样处理显然比手工一个个设置效率高很多。
喜欢
0
赠金笔
后一篇：如何使用WPS表格巧算加权平均值