Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code to delete shapes in copied sheets
I have a form/macro that allows users to select sheets from a workbook and
then copies these to a new workbook. Some of these sheets have shapes which need deleting. I am having trouble with the following code so need help. The new workbook does not yet have a name as the user saves it as what ever they need it to be. For i = 1 To Sheets.count ActiveWorkbook.Sheets(i).Activate Set myDocument = ActiveWorkbook.Sheets(i).Name myDocument.Shapes.SelectAll Selection.Delete Next i Thanks in advance Nelly |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code to delete shapes in copied sheets
there are obviously better ways, but this is quick & simple
Sub shapekiller() Dim ws As Worksheet Dim sh As Shape For Each ws In Worksheets For Each sh In ws.Shapes sh.Delete Next Next End Sub "nelly" wrote in message ... I have a form/macro that allows users to select sheets from a workbook and then copies these to a new workbook. Some of these sheets have shapes which need deleting. I am having trouble with the following code so need help. The new workbook does not yet have a name as the user saves it as what ever they need it to be. For i = 1 To Sheets.count ActiveWorkbook.Sheets(i).Activate Set myDocument = ActiveWorkbook.Sheets(i).Name myDocument.Shapes.SelectAll Selection.Delete Next i Thanks in advance Nelly |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code to delete shapes in copied sheets
Nelly,
Deleting 'ALL' shapes can be dangerous, you may end up deleting things you don't want to but if that's what you want try this but note it will delete all shapes so try it on a test workbook Dim sh As Shape For i = 1 To Worksheets.Count For Each sh In ActiveWorkbook.Sheets(i).Shapes sh.Delete Next Next Mike "nelly" wrote: I have a form/macro that allows users to select sheets from a workbook and then copies these to a new workbook. Some of these sheets have shapes which need deleting. I am having trouble with the following code so need help. The new workbook does not yet have a name as the user saves it as what ever they need it to be. For i = 1 To Sheets.count ActiveWorkbook.Sheets(i).Activate Set myDocument = ActiveWorkbook.Sheets(i).Name myDocument.Shapes.SelectAll Selection.Delete Next i Thanks in advance Nelly |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Code to delete shapes each time a sheet is deactivated | Excel Programming | |||
code to delete sheets not in use based on a cell's drop down list | Excel Worksheet Functions | |||
Copy pasting Rows, but need to Delete any Shapes/Pictures that are within copied rows | Excel Programming | |||
Delete worksheets and the code sheets remain? | Excel Programming | |||
Copied shapes are some times oblate | Excel Programming |