Excel VBA: 删除所有工作表中的图片

以下是VBA代码，可以在Excel的代码编辑器中打开工作簿并将其复制粘贴到工作表的代码模块中。运行它将删除所有嵌入的图片。

Sub DeletePictures()
    Dim pic As Picture
    Dim response As Integer
    
    '询问用户是否要删除所有图片
    response = MsgBox('Are you sure you want to delete all pictures in this workbook?', vbYesNo)
    If response = vbNo Then Exit Sub
    
    '循环遍历所有工作表
    For Each ws In ActiveWorkbook.Worksheets
        '循环遍历所有图片
        For Each pic In ws.Shapes
            If pic.Type = msoPicture Then
                pic.Delete
            End If
        Next pic
    Next ws
End Sub

使用说明:

1. 打开您的 Excel 工作簿。
2. 按 Alt + F11 打开 VBA 编辑器。
3. 在左侧的项目窗口中选择您的工作簿。
4. 点击 插入 > 模块。
5. 将上面的代码复制粘贴到模块中。
6. 运行代码 (按 F5 或者点击运行按钮)。

注意:

• 该代码会删除所有嵌入在工作簿中的图片，包括图表、形状等。
• 在运行代码之前，请确保您已经备份了您的工作簿。

希望这篇文章对您有所帮助！如果您还有其他关于 Excel 或 VBA 的问题，请随时提问。