Sub test()

Mywidth = 13
Myheigth = 9
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth

方橙柿 發表在 痞客邦 PIXNET 留言(0) 人氣()