PLUS28 - Powered by Discuz! Board

標題: 圖片巨集如何改為單張執行 [打印本頁]

作者: 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

歡迎光臨 PLUS28 (http://plus28.com/)