Re: Tabelle von Links & Grafiken säubern
Verfasst: Do 6. Okt 2011, 17:07
"Automatisch", mit dem folgenden Makrobydlo hat geschrieben:Kann man die mit irgendeinem Befehl automatisch entfernen?
Code: Alles auswählen
Sub lof6322
' 2011-10-06
sMSG = _
"Dieses Makro löscht alle Zeichnungen, Bilder" & CHR(10) & _
"und Formulare des aktuellen Tabellenblatts" & CHR(10) & CHR(10) & "Fortfahren?"
oDok = ThisComponent
oSheet = oDok.getCurrentController().getActiveSheet()
oDrawPage = oSheet.getDrawPage()
If oDrawPage.hasElements() Then
If NOT (Msgbox( sMsg, 52, "ACHTUNG") = 6) Then
Exit Sub
End If
lAnzahl = oDrawPage.getCount()
For l = lAnzahl - 1 To 0 Step -1
oDrawPage.getByIndex( l ).dispose()
Next l
oDok.setModified( TRUE )
End If
End SubArbeite zunächst mit eine Kopie Deiner Datei und vergleiche die Grössen.