PLUS28's Archiver

aalon68 發表於 2014-10-9 11:39

圖片巨集如何改為單張執行

請問各位大大~如何改為單張執行

Sub Macro()
Mywidth = 4.13
Myheigth = 5.48
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub

頁: [1]

Powered by Discuz! Archiver 6.1.0  © 2001-2007 Comsenz Inc.