Странно вести себя с OWC11 в Excel

Используя Excel VBA, я создал диаграмму, используя OWC11, для пользовательской формы. Через код я копирую 2 столбца с рабочего листа в электронную таблицу OWC.

1-й столбец - даты (для оси X), 2-й - значения (числа)(для оси Y).

Моя проблема в том, что когда в электронной таблице 1-й столбец имеет формат последовательных дат, ось Y на графике показывает значения правильно. Но ось X показывает серийные даты.

Если для первого столбца установить формат "Дата", "Длинный", "Короткий" и т. Д., То ось Y изменяет масштаб, и значения, только на графике, полностью отличаются от электронных таблиц и рабочих таблиц. эти значения намного больше, чем источник.

Я уже пробовал разные способы копирования с рабочего листа на электронную таблицу owc, но никак не мог. Мне кажется, проблема в том, как электронная таблица отправляет данные на график.

Пожалуйста, у вас есть идеи, что вызывает это странное поведение?

Моя программная среда выглядит следующим образом:

  1. Виндоус виста
  2. Excel professional 2010
  3. OWC11 (версия 12.0.0.4518)

вот мой код

Dim ChtSpc As OWC11.ChartSpace
Dim cht As OWC11.ChChart
Dim Sps As OWC11.Spreadsheet
Dim ws As Worksheet

Set ChtSpc = Me.ChartSpace1
Set Sps = Me.Spreadsheet1
Set ws = ThisWorkbook.Worksheets("foglio3")

Sps.Range("A1:c50") = ws.Range("A1:c50").Value
Set ChtSpc.DataSource = Sps
Set cht = ChtSpc.Charts.Add

With cht
    .SetData chDimCategories, 0, "A1:A50"
    .SeriesCollection(0).SetData chDimValues, 0, "B1:B50"
    .HasLegend = True
    .SeriesCollection.Add
    .SeriesCollection(1).SetData chDimValues, 0, "c1:c50"
    .HasTitle = True
    .Title.Caption = "ANDAMENTO"
    .Title.Interior.Color = 1677215
    .Type = chChartTypeLine
End With
ChtSpc.Interior.SetTwoColorGradient chGradientFromCenter, chGradientVariantEnd, 9125192, 16777215
End Sub
Источник

0 ответов

Другие вопросы по тегам