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
全站熱搜
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
留言列表