OvaleShapes ClearContents

Forumthread: OvaleShapes ClearContents
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: OvaleShapes ClearContents

Heinz

Hallo Leute
Ich möchte in Range.("L7:P34") ovale Shapes löschen.
Komme leider nicht wirklich zum Ziel.
Könnte mir bitte jemand weiterhelfen ?
Gruß
Heinz

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: OvaleShapes ClearContents

robert
AW: OvaleShapes ClearContents

Beverly
AW: Danke an Karin & Robert

Heinz
OK, aber bin schwer verheiratet ;-)) owT

robert
Bin auch schon anderweitig vergeben ;-)) - o.T.

Beverly

AW: OvaleShapes ClearContents

04.09.2011 18:36:51

robert

Hi,
teste mal das, Code von Ransi-aus dem Archiv-angepasst.
Gruß
robert


Sub weg()
Dim bereich As Range
Dim bild As Shape
Set bereich = Range("L7:P34")
For Each bild In ActiveSheet.Shapes
If bild.AutoShapeType = msoShapeOval Then
If Not Intersect(Range(bild.TopLeftCell.Address), bereich) Is Nothing Then _
bild.Delete
End If
Next
End Sub

AW: OvaleShapes ClearContents

04.09.2011 18:40:49

Beverly

Hi Heinz,


Sub Loeschen()
Dim shaOval As Shape
For Each shaOval In ActiveSheet.Shapes
If shaOval.AutoShapeType = msoShapeOval And shaOval.TopLeftCell.Column > 11 And _
shaOval.TopLeftCell.Column  6 And _
shaOval.TopLeftCell.Row