| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
2002 Vs 2003
Hello All:
I have this code that is for deleting graphs(Charts). Can anybody tell me why this works in 2002 but gives me error in 2003. for some reason the 2003 has problem with chObj Dim ch As Chart, ws As Worksheet Dim cw As Long, rh As Long Dim chObj As ChartObject ' ----------------Delete Existing Charts-------------------- Application.DisplayAlerts = False For Each ch In ActiveWorkbook.Charts ch.Delete Next For Each ws In ActiveWorkbook.Worksheets For Each chObj In ws.ChartObjects chObj.Delete Next Next Application.DisplayAlerts = True ' ---------------Delete Existing Charts---------------------- |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
2002 Vs 2003
It works for me in both versions. Are some of the sheets protected in the xl2003 version? What is the error? -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware (Excel add-ins) "Ardy" wrote in message Hello All: I have this code that is for deleting graphs(Charts). Can anybody tell me why this works in 2002 but gives me error in 2003. for some reason the 2003 has problem with chObj Dim ch As Chart, ws As Worksheet Dim cw As Long, rh As Long Dim chObj As ChartObject ' ----------------Delete Existing Charts-------------------- Application.DisplayAlerts = False For Each ch In ActiveWorkbook.Charts ch.Delete Next For Each ws In ActiveWorkbook.Worksheets For Each chObj In ws.ChartObjects chObj.Delete Next Next Application.DisplayAlerts = True ' ---------------Delete Existing Charts---------------------- |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
2002 Vs 2003
I just tested this in 2003. Should do it all
sub deleteallcharts() For Each ws In ActiveWorkbook.Worksheets For Each chObj In ws.ChartObjects chObj.Delete Next Next end sub -- Don Guillett SalesAid Software "Ardy" wrote in message oups.com... Hello All: I have this code that is for deleting graphs(Charts). Can anybody tell me why this works in 2002 but gives me error in 2003. for some reason the 2003 has problem with chObj Dim ch As Chart, ws As Worksheet Dim cw As Long, rh As Long Dim chObj As ChartObject ' ----------------Delete Existing Charts-------------------- Application.DisplayAlerts = False For Each ch In ActiveWorkbook.Charts ch.Delete Next For Each ws In ActiveWorkbook.Worksheets For Each chObj In ws.ChartObjects chObj.Delete Next Next Application.DisplayAlerts = True ' ---------------Delete Existing Charts---------------------- |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
2002 Vs 2003
On Jun 18, 12:09 pm, "Jim Cone" wrote:
It works for me in both versions. Are some of the sheets protected in the xl2003 version? What is the error? -- Jim Cone San Francisco, USAhttp://www.realezsites.com/bus/primitivesoftware (Excel add-ins) "Ardy" wrote in message Hello All: I have this code that is for deleting graphs(Charts). Can anybody tell me why this works in 2002 but gives me error in 2003. for some reason the 2003 has problem with chObj Dim ch As Chart, ws As Worksheet Dim cw As Long, rh As Long Dim chObj As ChartObject ' ----------------Delete Existing Charts-------------------- Application.DisplayAlerts = False For Each ch In ActiveWorkbook.Charts ch.Delete Next For Each ws In ActiveWorkbook.Worksheets For Each chObj In ws.ChartObjects chObj.Delete Next Next Application.DisplayAlerts = True ' ---------------Delete Existing Charts---------------------- Thanks for reply: I don't have access to the 2003 version, It is my home version. I will post the error as soon as I get home today. And yes there are some protected sheet, but prior to deleting I am unlocking.......I will post today with error. |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
2002 Vs 2003
On Jun 18, 12:24 pm, "Don Guillett" wrote:
I just tested this in 2003. Should do it all sub deleteallcharts() For Each ws In ActiveWorkbook.Worksheets For Each chObj In ws.ChartObjects chObj.Delete Next Next end sub -- Don Guillett SalesAid Software "Ardy" wrote in message oups.com... Hello All: I have this code that is for deleting graphs(Charts). Can anybody tell me why this works in 2002 but gives me error in 2003. for some reason the 2003 has problem with chObj Dim ch As Chart, ws As Worksheet Dim cw As Long, rh As Long Dim chObj As ChartObject ' ----------------Delete Existing Charts-------------------- Application.DisplayAlerts = False For Each ch In ActiveWorkbook.Charts ch.Delete Next For Each ws In ActiveWorkbook.Worksheets For Each chObj In ws.ChartObjects chObj.Delete Next Next Application.DisplayAlerts = True ' ---------------Delete Existing Charts---------------------- OK I get the compile error, can't find project or library, I don't understand why I don't get this with 2002 version. any thoughts....... |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
2002 Vs 2003
In the VBE, go to Tools References, and look for one that's labeled
"MISSING". Uncheck the reference and try again. Very often things seemingly unrelated to a missing reference will fail. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions Peltier Technical Services, Inc. - http://PeltierTech.com _______ "Ardy" wrote in message ups.com... On Jun 18, 12:24 pm, "Don Guillett" wrote: I just tested this in 2003. Should do it all sub deleteallcharts() For Each ws In ActiveWorkbook.Worksheets For Each chObj In ws.ChartObjects chObj.Delete Next Next end sub -- Don Guillett SalesAid Software "Ardy" wrote in message oups.com... Hello All: I have this code that is for deleting graphs(Charts). Can anybody tell me why this works in 2002 but gives me error in 2003. for some reason the 2003 has problem with chObj Dim ch As Chart, ws As Worksheet Dim cw As Long, rh As Long Dim chObj As ChartObject ' ----------------Delete Existing Charts-------------------- Application.DisplayAlerts = False For Each ch In ActiveWorkbook.Charts ch.Delete Next For Each ws In ActiveWorkbook.Worksheets For Each chObj In ws.ChartObjects chObj.Delete Next Next Application.DisplayAlerts = True ' ---------------Delete Existing Charts---------------------- OK I get the compile error, can't find project or library, I don't understand why I don't get this with 2002 version. any thoughts....... |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
2002 Vs 2003
On Jun 19, 5:46 am, "Jon Peltier"
wrote: In the VBE, go to Tools References, and look for one that's labeled "MISSING". Uncheck the reference and try again. Very often things seemingly unrelated to a missing reference will fail. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions Peltier Technical Services, Inc. -http://PeltierTech.com _______ "Ardy" wrote in message ups.com... On Jun 18, 12:24 pm, "Don Guillett" wrote: I just tested this in 2003. Should do it all sub deleteallcharts() For Each ws In ActiveWorkbook.Worksheets For Each chObj In ws.ChartObjects chObj.Delete Next Next end sub -- Don Guillett SalesAid Software "Ardy" wrote in message groups.com... Hello All: I have this code that is for deleting graphs(Charts). Can anybody tell me why this works in 2002 but gives me error in 2003. for some reason the 2003 has problem with chObj Dim ch As Chart, ws As Worksheet Dim cw As Long, rh As Long Dim chObj As ChartObject ' ----------------Delete Existing Charts-------------------- Application.DisplayAlerts = False For Each ch In ActiveWorkbook.Charts ch.Delete Next For Each ws In ActiveWorkbook.Worksheets For Each chObj In ws.ChartObjects chObj.Delete Next Next Application.DisplayAlerts = True ' ---------------Delete Existing Charts---------------------- OK I get the compile error, can't find project or library, I don't understand why I don't get this with 2002 version. any thoughts....... Thanks Jon: I will try this tonight as soon as I get home, I hope this works. I will post toinight if this worked. |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
2002 Vs 2003
On Jun 19, 5:46 am, "Jon Peltier"
wrote: In the VBE, go to Tools References, and look for one that's labeled "MISSING". Uncheck the reference and try again. Very often things seemingly unrelated to a missing reference will fail. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions Peltier Technical Services, Inc. -http://PeltierTech.com _______ "Ardy" wrote in message ups.com... On Jun 18, 12:24 pm, "Don Guillett" wrote: I just tested this in 2003. Should do it all sub deleteallcharts() For Each ws In ActiveWorkbook.Worksheets For Each chObj In ws.ChartObjects chObj.Delete Next Next end sub -- Don Guillett SalesAid Software "Ardy" wrote in message groups.com... Hello All: I have this code that is for deleting graphs(Charts). Can anybody tell me why this works in 2002 but gives me error in 2003. for some reason the 2003 has problem with chObj Dim ch As Chart, ws As Worksheet Dim cw As Long, rh As Long Dim chObj As ChartObject ' ----------------Delete Existing Charts-------------------- Application.DisplayAlerts = False For Each ch In ActiveWorkbook.Charts ch.Delete Next For Each ws In ActiveWorkbook.Worksheets For Each chObj In ws.ChartObjects chObj.Delete Next Next Application.DisplayAlerts = True ' ---------------Delete Existing Charts---------------------- OK I get the compile error, can't find project or library, I don't understand why I don't get this with 2002 version. any thoughts....... Worked, Thanks a bunch. Can you explain what this option is for.......... |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Problems between 2002/2003 | Excel Discussion (Misc queries) | |||
| what's diferent in vba between 2002 & 2003 | Excel Programming | |||
| version 2002 Vs 2003 | Excel Discussion (Misc queries) | |||
| VBA and 2002/2003/2000 | Excel Programming | |||
| Outlook 2003 vs. Word 2002 | Charts and Charting in Excel | |||
Linear Mode
