Как остановить диаграммы от автоматического обновления в excel

Question

У меня есть макрос, который работает, создает новый лист и заполняет его различными графами. Данные для этих графиков взяты из листа 2. Я хочу, чтобы иметь возможность удалить sheet2 после генерации графиков, не теряя всю информацию на графиках. До сих пор я пытался настроить вычисления вручную, защищать листы и защищать диаграммы, используя методы ProtectData и ProtectSelection. Все вышесказанное потерпело неудачу. Есть ли способ использовать vba, чтобы остановить изменения диаграмм после их создания? Благодарю.

Редактировать: Ответ предложил заполнить массив значениями из диапазона, а затем использовать этот массив для генерации диаграммы. Теперь я сталкиваюсь с ошибкой несоответствия типа при попытке создания диаграммы. Можно ли установить исходные данные равными массиву? Вот мой код до сих пор:

Dim PlotRangeBar() As Long 
Dim PlotRangePie As Variant 
Dim XValPie As Variant 
Dim XRangeBar As Range 
Dim CellCount As Long 

'Create bar graph 
Set XRangeBar = ActiveWorkbook.Sheets(2).Range("B" & DataStart & ":B" & DataEnd) 
i = 0 
For Row = DataStart To DataEnd 
    If Cells(Row, UsedColTimesheet).FormulaR1C1 <> "0" And Cells(Row, UsedColTimesheet) <> vbNullString Then 
     ReDim Preserve PlotRangeBar(i) 
     PlotRangeBar(i) = Cells(Row, UsedColTimesheet).Value 
     i = i + 1 
    End If 
Next 

ActiveWorkbook.Sheets(Sheets.Count).Select 
ActiveSheet.Shapes.AddChart.Select 
    With ActiveChart 
     .ChartType = xlColumnStacked 
     .SetSourceData Source:=PlotRangeBar 
     .SeriesCollection.NewSeries 
     .SeriesCollection(1).XValues = XRangeBar 
     .SetElement (msoElementChartTitleCenteredOverlay) 
     .ApplyLayout (1) 
     .ChartTitle.Text = ResourceName & " - Hours per project" 
     .Legend.Delete 
     .ChartStyle = 18 
     .ProtectSelection = True 
    End With 

Answer 1

Загрузите данные в массив и использовать массивы, чтобы загрузить ваши графики при их создании.