Sub setpicsize()
Dim j '???片??
For j = 1 To ActiveDocument.InlineShapes.Count '文件中?片???，?片?型?inlineshapes
ActiveDocument.InlineShapes(j).Height = 124 '?置高度
ActiveDocument.InlineShapes(j).Width = 130 '?置?度
Next j
End Sub

文章標籤
全站熱搜
創作者介紹
創作者 abcdefg 的頭像
abcdefg

seacatcry的部落格

abcdefg 發表在 痞客邦 留言(0) 人氣(165)