作者:乔山办公网日期:
返回目录:office365
单击w视图选项,查找“宏”,查看“宏”,输入宏的名称,创建新宏,取一个名称,弹出“Microsoftvisual basic”窗口,并将以下代码复制到代码窗口中End Sub行的前面:
Dimn’图片数量
错误时继续下一步“忽略错误”
对于n=1到activedocument。Inline Shapes. 计数’InlineShapes型图片
Activedocument。InlineShapes(n)。Height=5*28.35'将图片高度设置为5cm(1cm等于28.35px)
Activedocument。InlineShapes(n)。Width=4*28.35'将图片宽度设置为4cm
下一个
'在本例中,图片大小为5cm和4厘米
单击跑步三角形,图片大小将一致。
本文标签: