发布网友
共1个回答
热心网友
用宏可以帮你解决:\x0d\x0a\x0d\x0aSub 宏1()\x0d\x0aDim i\x0d\x0aOn Error Resume Next\x0d\x0aFor i = 1 To ActiveDocument.InlineShapes.Count\x0d\x0aActiveDocument.InlineShapes(i).Width = 200\x0d\x0aActiveDocument.InlineShapes(i).Height = 150\x0d\x0aNext\x0d\x0aEnd Sub\x0d\x0a\x0d\x0a其中200是宽度,150是高度,把这两个修改成你需要的值。