| Home |
| Search |
| Today's Posts |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
delete drawings in a centain selection
On 26 okt, 11:46, Ken Johnson wrote:
On Oct 26, 6:58 pm, bartman1980 wrote: I tried to delete all the drawings in a certain selection. sub deletedrawings() Sheets("Resultaat").Select Range("A60:H60").Select Range("H60").Activate Range(Selection, Selection.End(xlDown)).Select activecells.DrawingObjects(1).Delete Selection.ClearContents end sub But he gives an error on the line: activecells.DrawingObjects(1).Delete Note: searching and fine the drawing isn't an option because this is totally random. I just want to delete all drawings ans cells in the selection I made. Maybe something like this... Public Sub DeleteShpsWithTLCell_InSelection() Dim Shp As Shape For Each Shp In ActiveSheet.Shapes If Not Intersect(Shp.TopLeftCell, Selection) Is Nothing Then Shp.Delete End If Next Shp End Sub Ken Johnson- Tekst uit oorspronkelijk bericht niet weergeven - - Tekst uit oorspronkelijk bericht weergeven - Hi Ken, This works perfect! Thanks! |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| delete a selection | Charts and Charting in Excel | |||
| Problem of selection.delete | Excel Worksheet Functions | |||
| delete drwaings in a centain selection | Excel Programming | |||
| Copy Selection - Paste Selection - Delete Selection | Excel Programming | |||
| Copy Selection - Transpose Selection - Delete Selection | Excel Discussion (Misc queries) | |||
Threaded Mode
