title image


Smiley Re: Shapes löschen in aktiver Zelle
Hallo Gerhard,



so:



Public Sub test()    Dim objShape As Shape    For Each objShape In ActiveSheet.Shapes        If objShape.TopLeftCell.Address = ActiveCell.Address Or _            objShape.BottomRightCell.Address = ActiveCell.Address Then objShape.Delete    NextEnd Sub
Gruß
Nepumuk


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: