关于批量设置嵌入型图片尺寸的问题

tangqingfu · 发表于 2008-11-23 20:01

Sub 批量设置嵌入型图片尺寸()
Dim myInlineShape As InlineShape
For Each myInlineShape In ActiveDocument.InlineShapes
With myInlineShape
.LockAspectRatio = msoFalse '不锁定纵横比
.Height = MillimetersToPoints(23) '设置高度为23mm
.Width = MillimetersToPoints(31)
End With
Next
End Sub
请教如何修改代码,使其达到以下要求:
运行代码后,弹出像信息框或窗体,在文本框内由用用户输入图片高度及宽度的值,确定后,完成操作.
如果有可能的话,能否在前面先加入一个询问"是否要锁定纵横比",选择"是",则再弹出另一个框,由用户选择填写图片的高度或宽度(两个应该是类似单选框,选择高度及输入高度值,宽度及其值就不可用;选择宽度及输入宽度值,高度及其值就不可用),如果选择"否",就弹出像信息框或窗体,在文本框内由用用户输入图片高度及宽度的值。

[ 本帖最后由 tangqingfu 于 2008-11-23 20:12 编辑 ]

笑红颜 · 发表于 2008-11-23 23:18

额我前面看到有个百宝箱好像可以自动设置的自己没操作过不作数啊：）

robustwangace · 发表于 2009-2-28 14:14

很有用的，本来没有号的，现注册一个感谢！！！

jsnjtsglx · 发表于 2009-5-20 22:13

尽管不能帮你解决问题，但是你的问题却帮了我一个大忙。我利用你的程序代码完成了我急需的工作，非常感谢！

luoyan973387349 · 发表于 2011-12-19 14:08

jsnjtsglx 发表于 2009-5-20 22:13
尽管不能帮你解决问题，但是你的问题却帮了我一个大忙。我利用你的程序代码完成了我急需的工作，非常感谢！

同样帮到了我，非常感谢

冰火五 · 发表于 2011-12-20 11:34

批量设置图片格式大小我曾经弄过没找到合适的方法除了编码没别的办法了吗？以前一直就是一个一个图表设置的太费劲。

盛世凌云-王璐 · 发表于 2014-8-8 15:57

菜鸟路过看不懂啊

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

[求助] 关于批量设置嵌入型图片尺寸的问题