close

Sub test()

Mywidth = 13
Myheigth = 9
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub

arrow
arrow
    全站熱搜
    創作者介紹
    創作者 方橙柿 的頭像
    方橙柿

    方橙柿的地盤

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

    E-mail轉寄