Shape in ActiveCells löschen
12.01.2006 17:42:31
Louis
habe mal wieder ein problem was mich zwingt mich hier zu melden.
ich habe ein sheet mit mehreren shapes und möchte jetzt das in der aktivierten zelle löschen.
Habe folgenden code weiss aber nicht wie ich die variablen unterbringen soll.
Mit Range(cells(x,y),Cells(x,y)) klappt es nicht.
Kann mir jemand helfen
Private Sub CommandButton1_Click()
x = ActiveCell.Row
y = ActiveCell.Column
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
If Sh.Type = 13 And _
Sh.TopLeftCell.Address = ? Then
Sh.Delete
End If
Next
End Sub
vielen dank im vorraus
louis
Anzeige