这段 VBA 代码可以用于修改选定图片的大小和位置。首先将图片的锁定纵横比属性设置为 msoFalse以允许修改高度和宽度的比例。然后将高度和宽度设置为特定值这里是 87874015748以毫米为单位以缩小图片。最后使用 IncrementLeft 和 IncrementTop 方法将图片向右和向下移动一个固定的距离这里是 075 毫米以使其在文档中居中。

Sub ResizeAndPositionImage() With ActiveWindow.Selection.ShapeRange(1) .LockAspectRatio = msoFalse .Height = 87.874015748 .Width = 87.874015748 .IncrementLeft 0.75 .IncrementTop 0.75 End With End Sub