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。