Изменить формулу серии Chart и активировать PREVENT

Question

Последняя строка автоматически активирует график.Могу ли я предотвратить это? (я не хочу просто активировать что-то еще после факта.)

Dim chart1 As Object
Dim newformula As String

Set chart1 = ActiveSheet.ChartObjects("Chart 1").Chart
newformula = ...

chart1.SeriesCollection(1).formula = newformula

Answer 1

Свойство FormulaLocal позволяет установить значение формулы, не активируя диаграмму / серию

Sub NewChart()
Dim chart1                                      As Chart
Dim newformula                                  As String
Dim SC                                          As SeriesCollection
Dim mySeries                                    As Series
Dim STR                                         As String

    Set chart1 = ActiveSheet.ChartObjects("Chart 1").Chart
    Set SC = chart1.SeriesCollection
    Set mySeries = SC.Item(1)
    STR = SC.Item(1).Formula

    mySeries.FormulaLocal = STR
    Debug.Print TypeName(Selection)
End Sub