AW: Grafiken in aktueller Tabelle löschen
21.09.2005 07:18:15
Heiko
Hallo Darek,
"Ich hätte gern dann noch ein paar zusätliche Mögelichkeiten:" Sind wir hier im Wunschkonzert ?!
Sub EllipsenInCUndDLoeschen()
' Starten in dem Tabellenblatt wo die Ellipsen gelöscht werden sollen
Dim shpEllipse As Shape
For Each shpEllipse In ActiveSheet.Shapes
If shpEllipse.AutoShapeType = msoShapeOval And _
(shpEllipse.TopLeftCell.Column = 3 Or shpEllipse.TopLeftCell.Column = 4) And _
(shpEllipse.BottomRightCell.Column = 3 Or shpEllipse.BottomRightCell.Column = 4) Then
shpEllipse.Delete
End If
Next shpEllipse
End Sub
Sub EllipsenInZeile1Loeschen()
' Starten in dem Tabellenblatt wo die Ellipsen gelöscht werden sollen
Dim shpEllipse As Shape
For Each shpEllipse In ActiveSheet.Shapes
If shpEllipse.AutoShapeType = msoShapeOval And _
shpEllipse.TopLeftCell.Row = 1 And _
shpEllipse.BottomRightCell.Row = 1 Then
shpEllipse.Delete
End If
Next shpEllipse
End Sub
Sub EllipsenInZeile1und2Loeschen()
' Starten in dem Tabellenblatt wo die Ellipsen gelöscht werden sollen
Dim shpEllipse As Shape
For Each shpEllipse In ActiveSheet.Shapes
If shpEllipse.AutoShapeType = msoShapeOval And _
(shpEllipse.TopLeftCell.Row = 1 Or shpEllipse.TopLeftCell.Row = 2) And _
(shpEllipse.BottomRightCell.Row = 1 Or shpEllipse.BottomRightCell.Row = 2) Then
shpEllipse.Delete
End If
Next shpEllipse
End Sub
Rechteck = msoShapeRectangle
Denn Rest kannst du selbst rauskriegen, indem du den Makrorekorder anschmeißt einen Pfeil oder eine Linie zeichnest, den Makrorekorder beendest und dann schaust wie EXCEL die Shapes nennt.
Gruß Heiko
PS: Rückmeldung wäre nett !