| Home |
| Search |
| Today's Posts |
|
#1
|
|||
|
|||
How To Refresh Chart Data Without Calculating The Worksheet
I am trying to refresh a chart in an Excel 2000 worksheet without
recalculating the whole worksheet. Tried using the following syntax to no avail (this is not a pivot chart): ActiveSheet.ChartObjects("Chart 70").Select ActiveChart.Refresh Thanks, Carl |
|
#2
|
|||
|
|||
|
Carl,
Please try one of these: Sub RefreshChart1() ActiveSheet.ChartObjects("Chart 70").Activate ActiveChart.Refresh End Sub or Sub RefreshChart2() Dim Cht As Chart Set Cht = ActiveChart Cht.Refresh End Sub ---- Regards, John Mansfield http://www.pdbook.com "Carl Bowman" wrote: I am trying to refresh a chart in an Excel 2000 worksheet without recalculating the whole worksheet. Tried using the following syntax to no avail (this is not a pivot chart): ActiveSheet.ChartObjects("Chart 70").Select ActiveChart.Refresh Thanks, Carl |
|
#3
|
|||
|
|||
|
Thanks John, but neither worked. I even tried several variations of your
commands with no help. I know the chart is working correctly because I can calculate the worksheet and the chart updates fine but that is not an option. Please let me know if you have any other ides. Carl "John Mansfield" wrote: Carl, Please try one of these: Sub RefreshChart1() ActiveSheet.ChartObjects("Chart 70").Activate ActiveChart.Refresh End Sub or Sub RefreshChart2() Dim Cht As Chart Set Cht = ActiveChart Cht.Refresh End Sub ---- Regards, John Mansfield http://www.pdbook.com "Carl Bowman" wrote: I am trying to refresh a chart in an Excel 2000 worksheet without recalculating the whole worksheet. Tried using the following syntax to no avail (this is not a pivot chart): ActiveSheet.ChartObjects("Chart 70").Select ActiveChart.Refresh Thanks, Carl |
|
#4
|
|||
|
|||
|
Carl
Would this work . . hopefully the effect is to disconnect the source range and then connect it again. As a result, the chart refreshes without having to perform a recalculation: Sub ResetSourceData() Application.ScreenUpdating = False On Error Resume Next ActiveSheet.ChartObjects("Chart 70").Activate ActiveChart.ChartArea.Select ActiveChart.Delete ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("B8:C11") End Sub ---- Regards, John Mansfield http://www.pdbook.com "Carl Bowman" wrote: Thanks John, but neither worked. I even tried several variations of your commands with no help. I know the chart is working correctly because I can calculate the worksheet and the chart updates fine but that is not an option. Please let me know if you have any other ides. Carl "John Mansfield" wrote: Carl, Please try one of these: Sub RefreshChart1() ActiveSheet.ChartObjects("Chart 70").Activate ActiveChart.Refresh End Sub or Sub RefreshChart2() Dim Cht As Chart Set Cht = ActiveChart Cht.Refresh End Sub ---- Regards, John Mansfield http://www.pdbook.com "Carl Bowman" wrote: I am trying to refresh a chart in an Excel 2000 worksheet without recalculating the whole worksheet. Tried using the following syntax to no avail (this is not a pivot chart): ActiveSheet.ChartObjects("Chart 70").Select ActiveChart.Refresh Thanks, Carl |
|
#5
|
|||
|
|||
|
John, That was a great try but it also did not work, even when I tried
several variations. I even tried rebooting the pc and creating a completely new file and chart just in case. Thanks for trying. Carl "John Mansfield" wrote: Carl Would this work . . hopefully the effect is to disconnect the source range and then connect it again. As a result, the chart refreshes without having to perform a recalculation: Sub ResetSourceData() Application.ScreenUpdating = False On Error Resume Next ActiveSheet.ChartObjects("Chart 70").Activate ActiveChart.ChartArea.Select ActiveChart.Delete ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("B8:C11") End Sub ---- Regards, John Mansfield http://www.pdbook.com "Carl Bowman" wrote: Thanks John, but neither worked. I even tried several variations of your commands with no help. I know the chart is working correctly because I can calculate the worksheet and the chart updates fine but that is not an option. Please let me know if you have any other ides. Carl "John Mansfield" wrote: Carl, Please try one of these: Sub RefreshChart1() ActiveSheet.ChartObjects("Chart 70").Activate ActiveChart.Refresh End Sub or Sub RefreshChart2() Dim Cht As Chart Set Cht = ActiveChart Cht.Refresh End Sub ---- Regards, John Mansfield http://www.pdbook.com "Carl Bowman" wrote: I am trying to refresh a chart in an Excel 2000 worksheet without recalculating the whole worksheet. Tried using the following syntax to no avail (this is not a pivot chart): ActiveSheet.ChartObjects("Chart 70").Select ActiveChart.Refresh Thanks, Carl |
|
#6
|
|||
|
|||
|
Carl -
This probably won't work, then, either, but it's a thought I had reading up to this point: ActiveChart.SeriesCollection(1).Formula = _ ActiveChart.SeriesCollection(1).Formula - Jon ------- Jon Peltier, Microsoft Excel MVP Peltier Technical Services Tutorials and Custom Solutions http://PeltierTech.com/ _______ Carl Bowman wrote: John, That was a great try but it also did not work, even when I tried several variations. I even tried rebooting the pc and creating a completely new file and chart just in case. Thanks for trying. Carl "John Mansfield" wrote: Carl Would this work . . hopefully the effect is to disconnect the source range and then connect it again. As a result, the chart refreshes without having to perform a recalculation: Sub ResetSourceData() Application.ScreenUpdating = False On Error Resume Next ActiveSheet.ChartObjects("Chart 70").Activate ActiveChart.ChartArea.Select ActiveChart.Delete ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("B8:C11") End Sub ---- Regards, John Mansfield http://www.pdbook.com "Carl Bowman" wrote: Thanks John, but neither worked. I even tried several variations of your commands with no help. I know the chart is working correctly because I can calculate the worksheet and the chart updates fine but that is not an option. Please let me know if you have any other ides. Carl "John Mansfield" wrote: Carl, Please try one of these: Sub RefreshChart1() ActiveSheet.ChartObjects("Chart 70").Activate ActiveChart.Refresh End Sub or Sub RefreshChart2() Dim Cht As Chart Set Cht = ActiveChart Cht.Refresh End Sub ---- Regards, John Mansfield http://www.pdbook.com "Carl Bowman" wrote: I am trying to refresh a chart in an Excel 2000 worksheet without recalculating the whole worksheet. Tried using the following syntax to no avail (this is not a pivot chart): ActiveSheet.ChartObjects("Chart 70").Select ActiveChart.Refresh Thanks, Carl |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How do I remove empty chart plots from linked worksheet charts | Charts and Charting in Excel | |||
| changing proportion of chart and data table | Charts and Charting in Excel | |||
| Help! I'm losing one series of data in an overlay chart. | Charts and Charting in Excel | |||
| multiple or changing colours in a data table on an excel chart fo. | Charts and Charting in Excel | |||
| Extending a Chart Data Series from an Array - Can it be done? | Charts and Charting in Excel | |||
Linear Mode
