|
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---------------------- |
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---------------------- |
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---------------------- |
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. |
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....... |
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....... |
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. |
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.......... |
| All times are GMT +1. The time now is 04:46 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com