Sub setpicsize() Dim n On Error Resume Next For n = 1 To ActiveDocument.InlineShapes.Count ActiveDocument.InlineShapes(n).Height = 155 ActiveDocument.InlineShapes(n).Width = 207 Next nFor n = 1 To ActiveDocument.Shapes.Count ActiveDocument.Shapes(n).Height = 155 ActiveDocument.Shapes(n).Width = 207 Next nEnd Sub155 207代表宽和高宏点击新建，直接命令复制上运行即可。