Diagramm löschen
09.08.2007 09:11:00
Leo
Ich habe ein kleines Problem mit dem bestimmten Löschen von Diagrammen.
ICh will das nur die Diagramme gelöscht werden, die vom linken Rand weiter als 700 entfernt sind.
Aber folgende kleine Routine bringt den Fehler 1004!
Sub Loesche_Diagramme()
Dim intchart As Integer
For intchart = 1 To 10
If Worksheets(2).ChartObjects(intchart).Left > 699 Then
Worksheets(2).ChartObjects(intchart).Delete
End If
Next
End Sub
Kann ich diese Routine auch irgendwie ohne For-Schleife machen, dass einfach alle Diagramme gelöscht werden, die diese Bedingung erfüllen.
Anzeige