小编Joh*_*mbe的帖子

我有一本Libreoffice Calc工作簿，其中有60多张纸，其中许多纸上都印有沉重的图像。我想使用Calc Basic宏删除所有图像。我尝试了以下失败，并显示基本运行时错误Property or method not found: Pictures.

Sub DeleteAllPics()
    Dim Pic As Object
    For Each Pic In ThisComponent.CurrentController.ActiveSheet.Pictures
       Pic.Delete
Next Pic
End Sub

我还尝试了以下操作，但由于基本运行时错误而失败 Object variable not set.

Sub deleteAllPics()
    Dim wkSheet As Object
    For Each wkSheet In ThisWorkbook.ThisComponent.Sheets.getByName()
        Dim Pict As Object
        For Each Pict In wkSheet
            Pict.Delete
        Next Pict
    Next wkSheet       
End Sub

以下代码将从Libreoffice Writer文档的所有页面中删除所有图片：

   Sub RemoveImages
       Dim oDoc as Object
       oDoc = ThisComponent
       Dim oGraphics as Object
       oGraphics = oDoc.getGraphicObjects()
       Dim oImg as Object
       For …