Дело в том, что к Оси Категорий было применено свойство [vba]
Код
.ReversePlotOrder = True
[/vba] для того, чтобы последние даты были справа. Ряд № 1 (оранжевая линия) идёт по Первичной оси значений [vba]
Код
.Axes(xlValue, xlPrimary)
[/vba] а ряд № 2 (зелёная линия) по вторичной оси значений [vba]
Код
.Axes(xlValue, xlSecondary)
[/vba]. Тот ряд, что - по первичной оси с категориями согласуется корректно, а вот тот, что по вторичной идти "в ногу" с категориями отказался. Уже часов 8 сижу, и неизвестно сколько ещё сидеть придётся в поисках. Может кто знает как поправить?
Ситуацию в целом выразил в иллюстрации:
Дело в том, что к Оси Категорий было применено свойство [vba]
Код
.ReversePlotOrder = True
[/vba] для того, чтобы последние даты были справа. Ряд № 1 (оранжевая линия) идёт по Первичной оси значений [vba]
Код
.Axes(xlValue, xlPrimary)
[/vba] а ряд № 2 (зелёная линия) по вторичной оси значений [vba]
Код
.Axes(xlValue, xlSecondary)
[/vba]. Тот ряд, что - по первичной оси с категориями согласуется корректно, а вот тот, что по вторичной идти "в ногу" с категориями отказался. Уже часов 8 сижу, и неизвестно сколько ещё сидеть придётся в поисках. Может кто знает как поправить?Vostok
"Посылая кого-то в Google, Помните, завтра туда могут Послать Вас !"
Сообщение отредактировал Vostok - Пятница, 06.02.2015, 11:04
Вот на это, получается, я и надеялся. А в итоге собственно говоря её как объекта то и не было.
[vba]
Код
.SetElement (msoElementSecondaryCategoryAxisShow) With .Axes(xlCategory, xlSecondary) .ReversePlotOrder = True .Crosses = xlMinimum .MajorTickMark = xlNone .TickLabelPosition = xlNone .Format.Line.Visible = msoFalse End With '*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^* 'формат ВСПОМОГАТЕЛЬНОЙ ОСИ With .Axes(xlValue, xlSecondary) .HasTitle = True With .AxisTitle .Caption = "Значение Доходности 2Y %" .Font.Size = 10 End With .TickLabels.NumberFormat = "0.00" End With
[/vba]
Всё корректно добавляется:
Александр, вижу в Диаграммах, Вы здесь непревзойдённый ДОКА !!! А я тупо прописывал её так: [vba]
Код
With .Axes(xlCategory, xlSecondary) .ReversePlotOrder = True .Crosses = xlMinimum End With
Вот на это, получается, я и надеялся. А в итоге собственно говоря её как объекта то и не было.
[vba]
Код
.SetElement (msoElementSecondaryCategoryAxisShow) With .Axes(xlCategory, xlSecondary) .ReversePlotOrder = True .Crosses = xlMinimum .MajorTickMark = xlNone .TickLabelPosition = xlNone .Format.Line.Visible = msoFalse End With '*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^* 'формат ВСПОМОГАТЕЛЬНОЙ ОСИ With .Axes(xlValue, xlSecondary) .HasTitle = True With .AxisTitle .Caption = "Значение Доходности 2Y %" .Font.Size = 10 End With .TickLabels.NumberFormat = "0.00" End With