写一段vba代码，把excel中所有工作簿中的图片删除

以下是 VBA 代码，可用于删除 Excel 中所有工作簿中的图片：

Sub DeleteAllImages()
    Dim ws As Worksheet
    Dim shp As Shape
    For Each ws In ThisWorkbook.Worksheets
        For Each shp In ws.Shapes
            If shp.Type = msoPicture Then
                shp.Delete
            End If
        Next shp
    Next ws
End Sub

将此代码粘贴到 VBA 编辑器中，并运行它。该代码将遍历所有工作簿中的所有形状，并删除所有类型为 msoPicture 的形状，即图片。

相关问题

写一段Excel的VBA代码，删除一个工作簿中所有工作表里的图片

Sure, I can help you with that! Here's a VBA code to delete all the pictures in all the worksheets of a workbook:

Sub DeletePictures()
    Dim sh As Worksheet
    Dim shp As Shape
    
    For Each sh In ThisWorkbook.Worksheets
        For Each shp In sh.Shapes
            If shp.Type = msoPicture Then
                shp.Delete
            End If
        Next shp
    Next sh
End Sub

You can simply run this code in the VBA editor of your Excel workbook, and it will delete all the pictures in all the worksheets. Let me know if you have any more questions!

帮我写一段Excel的VBA代码，将一个工作簿的所有工作簿分离成独立的工作簿

好的，以下是可以帮助您分离工作簿的VBA代码：

Sub 分离工作簿()

Dim wb As Workbook
Dim newWb As Workbook
Dim ws As Worksheet
Dim savePath As String

For Each wb In Workbooks
For Each ws In wb.Worksheets
Set newWb = Workbooks.Add
ws.Copy Before:=newWb.Sheets(1)
newWb.Sheets(2).Delete
savePath = ThisWorkbook.Path & "\" & wb.Name & "_" & ws.Name & ".xlsx"
newWb.SaveAs savePath
newWb.Close
Next ws
Next wb

End Sub

请将代码复制粘贴到Excel的VBA编辑器中，并在需要分离工作簿的时候运行该代码即可。