Excel изменяет значения и значения ряда диаграмм - PullRequest
Новая
       37

Excel изменяет значения и значения ряда диаграмм

0 голосов
/ 04 марта 2019

Я пытаюсь заменить значения x и значения всех рядов на графике, но я застрял при обращении к текущим значениям.Мой msgbox отображается пустым.После того, как это решено, я хочу заменить только строки этих диапазонов значений ... например, если у меня есть "= Sheet1! $ D $ 5: $ D $ 16", мне нужно получить первую и последнюю строку и иметь возможность заменить ихавтоматически.На данный момент мне нужно правильно получить значения и xvalues ​​... и пытается это удалить значения и msgbox пустым. 

Sub test()
Dim cht As ChartObject
Dim srs As Series
Dim sht As Worksheet
Dim rng As String
Dim rngx As String
Dim i As Long
Dim j As Long


Set sht = ThisWorkbook.ActiveSheet

For Each cht In sht.ChartObjects
    cht.Activate

    For i = 1 To ActiveChart.SeriesCollection.Count
    With ActiveChart.SeriesCollection(i)
    .XValues = rngx
    .Values = rng

    MsgBox rngx
    End With
    Next i
Next cht

End Sub
...