Sub test()

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

(繼續閱讀...)

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