Seite 1 von 1
Grafik in Calc-Dokumenten
Verfasst: Mo 18. Jan 2016, 15:39
von 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
Re: Grafik in Calc-Dokumenten
Verfasst: Mo 18. Jan 2016, 18:13
von 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
Re: Grafik in Calc-Dokumenten
Verfasst: Di 19. Jan 2016, 13:44
von 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.