Grafik in Calc-Dokumenten

[weinbach]

Hallo,

ich habe das Problem, daß ich in einer Calc-Datei ein Bild (gif) habe, das ich aber per Makro löschen will.
Hat jemand eine Idee, ob und wie das geht?

Vielen Dank

[F3K Total]

Hi,
wenn du ein Bild in einer Calc Datei hast, warum löscht du es nicht einfach per Hand?
Natürlich geht das auch per Makro, allerdings muss man dazu wissen, wo sich das Bild befindet, oder man löscht einfach alle Bilder, siehe Beispieldatei. Das Makro wäre:

Code: Alles auswählen

Sub remove_pictures
    oSheets = thiscomponent.Sheets
    nCounter = 0
    for i = 0 to oSheets.count - 1
        oDrawpage = oSheets(i).Drawpage
        if oDrawpage.count > 0 then
            for k = oDrawpage.count - 1 to 0 Step -1
                oshape = oDrawpage(k)
                if oshape.supportsservice("com.sun.star.drawing.GraphicObjectShape") then
                     oDrawpage.remove(oshape)
                     nCounter = nCounter + 1
                endif
            next k
        endif
    next i
    msgbox ("Es wurden "+nCounter+" Bilder gelöscht",64,"Bilder entfernt")
End Sub

Gruß R

[weinbach]

Danke für die Antwort, das hilft mir schon weiter.

Zur Info: Bei der Grafik handelt es sich um eine elektronische Unterschrift, die nicht einfach von Blatt zu Blatt weiterkopiert werden soll.