Dim i As Integer
For i = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).Height = 170 * 1.1
ActiveDocument.InlineShapes(i).Width = 225 * 1.2
Next i
求高手帮我详细解读一下代码，说是VBS，就word里的一个宏。
答案:2 悬赏:0 手机版
解决时间 2021-02-23 20:18
- 提问者网友：世勋超人
- 2021-02-23 06:40
最佳答案
- 五星知识达人网友：一秋
- 2021-02-23 08:10
设置当前活动文档里面的所有的图片和图形的高度和宽度分别为187、270。
全部回答
- 1楼网友：走死在岁月里
- 2021-02-23 09:25
Dim i As Integer 定义i为整数
For i = 1 To ActiveDocument.InlineShapes.Count 循环语句 ，i从1到当前活动文档中图片的个数
ActiveDocument.InlineShapes(i).Height = 170 * 1.1 艺术字的高度为170*1.1磅
ActiveDocument.InlineShapes(i).Width = 225 * 1.2 艺术字的宽度度为225*12 磅
Next i
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯