删除一张图片

Question

我想使用宏删除一个图片msword

示例代码如下，我是的新手，但不工作

Dim myImage As Shape
Set myImage = ActiveSheet.Shapes("Picture 1")
myImage.Delete

Answer 1

ActiveSheet是Excel，而不是Word。您可以将ActiveDocument用于Word，您的图片可能是Shape或InlineShape，具体取决于它是否具有文本换行功能。

Sub DeletePicture()
ActiveDocument.Shapes("Picture 1").Delete
ActiveDocument.InlineShapes(1).Delete
End Sub