用宏可以轻松完成: Sub FormatPics() Dim iSha As InlineShape For Each iSha In ActiveDocument.InlineShapes If iSha.Type = wdInlineShapePicture Then iSha.LockAspectRatio = msoFalse '不锁定纵横比 iSha.Width = CentimetersToPoints(5) '宽5CM iSha.Height = CentimetersToPoints(5) '高5CM End If Next End Sub