Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Построение диаграммы с двухуровневой осью X
 
Добрый день!

Возникла потребность построить диаграмму с осью Х, на которой информация размещается в 2 ряда (первый - год, второй - месяцы). Рисунок во вложении.
Проблема в следующем:
myChart.SeriesCollection(1).XValues = Worksheets("Sheet1").Range("C6:I7") делает расстановку на оси Х верно (год и месяцы),а вот если это сделать при помощи массива (код ниже), то желаемого результата не получается
massX = Worksheets("Sheet1").Range("C6:I7")
myChart.SeriesCollection(1).XValues = massX

может кто знает, какой размерности должен быть массив и как в нем должны храниться данные?

так же прикладываю файл с диаграммой и макросом! Заранее благодарен!
 
Доброе время суток.
Код
Sub makeCharts()
    Dim myChart As Object
    Dim massX As Variant
    Dim massY As Variant
    Dim i_for_series As Integer
    
    Range("A1:A2").Select
    Set myChart = ActiveSheet.Shapes.AddChart(XlChartType.xlLineStacked, 1, 1, 200, 200).Chart
    For i_for_series = 1 To myChart.SeriesCollection.Count
        myChart.SeriesCollection(1).Delete
    Next
    myChart.SeriesCollection.NewSeries
    myChart.SeriesCollection(1).Name = Worksheets("Sheet1").Range("B8")
    myChart.SeriesCollection(1).Values = Worksheets("Sheet1").Range("C8:I8")
    myChart.SeriesCollection(1).XValues = Worksheets("Sheet1").Range("C6:I7")
End Sub

Успехов
Изменено: Андрей VG - 23 Апр 2015 07:42:22
Страницы: 1
Читают тему (гостей: 1)