Tabelle von Links & Grafiken säubern

[komma4]

Kann man die mit irgendeinem Befehl automatisch entfernen?

"Automatisch", mit dem folgenden Makro

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 Sub

Arbeite zunächst mit eine Kopie Deiner Datei und vergleiche die Grössen.

[komma4]

Hab zwar eine Weile gebraucht um herauszufinden wie man Makros anlegt

Für die anderen, die das suchen: http://www.ooowiki.de/MakrosInstallieren