steema tee图表导出为ex​​cel数据格式问题

Question

即时通讯设法从teechart编辑器导出excel中的系列数据。 在输出excel时获得的系列数据为x和y列，格式为小数点后两位。 我想要以科学记数法导出数据。

我通过提供系列选项卡 - >一般格式的部分成功，我可以提供值的格式。但是这改变了这两个系列的格式。 我想要的是正常的默认格式为系列的x值和导出excel中Y系列的科学格式。

请人指导我如何进行

Answer 1

从here：

由于ValueFormat是一系列的属性，它是适用于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。