Экспорт таблицы графиков Steema в формат Excel

Question

Я пытаюсь экспортировать данные серии в Excel из Teechart Editor. при экспорте Excel получает данные серии в виде столбцов x и y в формате двух десятичных знаков. Я хочу, чтобы экспортировать данные в научной записи.

У меня был частичный успех, предоставив формат на вкладке серии -> Общие здесь я могу предоставить формат для значений. Но это меняет формат для обоих столбцов серии. то, что я хочу, это нормальный формат по умолчанию для значений x серии и научный формат для серии Y в экспортированном Excel.

Пожалуйста, кто-нибудь направит меня, как действовать

Answer 1

Отсюда:

Поскольку ValueFormat является свойством Series, оно применяется как к X, так и к Y ValueLists. Единственный способ обойти это - использовать временную диаграмму, разбивающую каждую серию на две серии: одну для значений X (со значением ValueFormat по умолчанию) и одну для значений Y (с измененной величиной ValueFormat). То есть:

Private Sub Form_Load()  
  TChart1.Header.Text.Text = TChart1.Version

  TChart1.Aspect.View3D = False

  TChart1.AddSeries scLine
  TChart1.AddSeries scLine

  TChart1.Series(0).ValueFormat = "0.######0e-0"
  TChart1.Series(1).ValueFormat = "0.######0e-0"

  Dim i As Integer
  For i = 1 To 5
    TChart1.Series(0).AddXY i, Rnd * 100, "", clTeeColor
    TChart1.Series(1).AddXY i, Rnd * 100, "", clTeeColor
  Next i
End Sub

Private Sub Command1_Click()
  Dim tmpChart
  Set tmpChart = CreateObject("TeeChart.TChart")

  Dim i, y As Integer
  For i = 0 To TChart1.SeriesCount - 1
    tmpChart.AddSeries scPoint
    tmpChart.AddSeries scPoint

    For j = 0 To TChart1.Series(i).Count - 1
      tmpChart.Series(tmpChart.SeriesCount - 2).Add TChart1.Series(i).XValues.Value(j), "", clTeeColor
      tmpChart.Series(tmpChart.SeriesCount - 1).Add TChart1.Series(i).YValues.Value(j), "", clTeeColor
    Next j

    tmpChart.Series(tmpChart.SeriesCount - 2).YValues.Name = "X"
    tmpChart.Series(tmpChart.SeriesCount - 1).ValueFormat = TChart1.Series(i).ValueFormat
  Next i

  TChart1.Export.asXLS.IncludeHeader = True
  TChart1.Export.asXLS.UseSeriesFormat = True


  TChart1.Export.asXLS.SaveToFile "C:\tmp\axtest.xls"
End Sub

Стоит отметить, что экспорт в файлы.xlsx по коду, поддерживающий Excel > 2010, еще не реализован в TeeChart ActiveX: # 1670.