使用VBA: Dim i On Error Resume Next For i=1 To ActiveDocument.InlineShapes.Count ActiveDocument.InlineShapes(i).Height=300 '修改為自己需要的值 ActiveDocument.InlineShapes(i).Width=200 '修改為自己需要的值 Next For i=1 To ActiveDocument.Shapes.Count ActiveDocument.Shapes(i).Height=300 '修改為自己需要的值 ActiveDocument.Shapes(i).Width=200 '修改為自己需要的值 Next |
|
來自: 昵稱30438428 > 《待分類》