急！word2016插入五张照片用宏功能等比例缩小后想把最后一张图片做放大效果代码怎么改

HUAzeyuan · 发表于 2019-9-21 08:38

word页边距左右调到0.3，上3下0.5
用word宏把五张照片自动排版，代码如下
Sub Macro()
Mywidth = 10
Myheigth = 12
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub
最后一张想做一个放大的效果能把word空白处填充，除了手动调整最后一张图片外，能不能改代码来实现，求大神帮助，万分感谢！

daibao88 · 发表于 2019-9-21 09:26

ActiveDocument.InlineShapes(5).Width = 30 * Myheigth 试试吧，不一定是5，改改看

HUAzeyuan · 发表于 2019-9-21 10:18

daibao88 发表于 2019-9-21 09:26
ActiveDocument.InlineShapes(5).Width = 30 * Myheigth 试试吧，不一定是5，改改看

谢谢你的回复！刚试了下数字5是控制第几张图片的，数字30是控制图片高度，宽度没有变化。不懂代码不知道怎么改，您推荐的这个代码能再加上改宽度的就好了，要是能和自动排序的代码连到一起运营宏的时候能一步到位就更完美了。望追加帮助谢谢！

daibao88 · 发表于 2019-9-21 15:29

Width宽度

		自动登录	找回密码
密码			免费注册