如何从Libreoffice Calc工作簿的所有工作表中删除所有图像

Question

我有一个Libreoffice Calc工作簿，有60多张纸，其中很多都有复制到它们的沉重图像。我想删除所有的图像与一个Calc基本宏。我尝试了以下操作，但失败了，出现一个基本的运行时错误，说明找不到属性或方法:picture.

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

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

   Sub RemoveImages
       Dim oDoc as Object
       oDoc = ThisComponent
       Dim oGraphics as Object
       oGraphics = oDoc.getGraphicObjects()
       Dim oImg as Object
       For Each oImg in oGraphics
       oDoc.getText().removeTextContent(oImg)
       Next 
    End Sub

我需要一个代码，将工作像上面的一个，以删除所有的图像，从一个Calc工作簿的所有工作表。请帮帮我.

Answer 1

对于电子表格，您需要获得每个表格的XDrawPage。

下面是适当的LibreOffice基本代码。在LibreOffice的术语中，它被称为电子表格或文档，而不是工作簿。而且for each是从VBA借用的，对XDrawPage不起作用。（可以使用for each枚举工作表，但为了保持一致，最好使用标准的for循环。）

Sub DeleteAllPics()
    Dim oDoc As Object
    Dim oDrawPage As Object
    Dim oShape As Object
    Dim iShape As Integer
    Dim iSheet As Integer
    oDoc = ThisComponent
    For iSheet = 0 To oDoc.getSheets().getCount() - 1
        oDrawPage = oDoc.getSheets().getByIndex(iSheet).getDrawPage()
        For iShape = oDrawPage.getCount() - 1 To 0 Step -1
            oShape = oDrawPage.getByIndex(i)
            oDrawPage.remove(oShape)
        Next iShape
    Next iSheet
End Sub