Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete all Shapes from selected Range
Try code like the following:
Dim Rng As Range Dim SH As Shape Dim TLC As Range Set Rng = Range("F4:AJ23") For Each SH In ActiveSheet.Shapes If Not Application.Intersect(Rng, SH.TopLeftCell) Is Nothing Then SH.Delete End If Next SH -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com (email address is on the web site) "CLR" wrote in message ... Hi All.......... I need help please for the code to delete all Shapes, Images, DrawingObjects, whatever, from a selected range of F4:AJ23.....I only seem to be able to get rid of them by individual name. I want everything out of there. TIA Vaya con Dios, Chuck, CABGx3 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
delete row and 3 rows below by range selected | Excel Programming | |||
Delete selected range | Excel Programming | |||
Delete a selected area from a non-contiguous range | Excel Programming | |||
trying to delete selected range with macro | Excel Programming | |||
delete every nth row in selected range | Excel Discussion (Misc queries) |