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

arrow
arrow
    全站熱搜

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

    E-mail轉寄