本文主要介紹TeeChart Pro ActiveX使用教程中關于軸控制的相關介紹。

TeeChart Pro 將自動為您定義所有 Axis 標簽，并提供足夠的靈活性來定制您可能有的任何特定要求。 TeeChart Pro ActiveX提供真正的多軸，這些在設計或運行時可用，并為 Axis 定義提供了無數的可能性和靈活性。

重點領域

尺度

 將系列數據添加到圖表時會自動設置軸刻度。您可以在設計時或運行時使用 Axis 屬性更改默認值。

非日期時間數據

添加新系列時，圖表編輯器的軸頁面的比例部分將顯示選擇自動，其他選項顯示為灰色。顯示的所有值都是數字。

日期時間數據

當系列在系列、常規頁面上將日期時間設置為 true（對于該軸）時，圖表編輯器的軸頁面的比例部分將顯示選擇自動，其他選項灰顯。值與日期時間值一起顯示。

自動選擇最佳軸刻度范圍以適合您的數據。如果您關閉“自動”，比例部分將變為灰色選項，您可以更改軸值。重要的是，請記住從頁面左側的軸列表中選擇要配置的軸。

將線條系列添加到圖表中添加命令按鈕，代碼如下：

Dim t As Integer
For t = 0 To 40
  With TChart1.Series(0)
    .Add CInt((Rnd) * t), "", vbRed
  End With
Next t

運行按鈕中的代碼將繪制一個具有 40 個隨機值的 Line Series。在設計時轉到圖表編輯器。在 Axis 頁面的 Bottom Axis scales 部分中關閉 Automatic 'off'。您現在可以配置軸刻度的最大值和最小值。再次運行代碼將根據您為軸配置的值顯示值。使用鼠標右鍵，您可以滾動查看剩余值。

通過代碼設置軸比例

您可以使用以下代碼在運行時更改最大值和最小值：

With TChart1.Axis.Bottom
  .Automatic = False
  .Maximum = 36
  .Minimum = 5
End With

您可以將軸刻度最大值和最小值分別設置為自動。例如：

With TChart1.Axis.Bottom
  .AutomaticMaximum = True
  .AutomaticMinimum = False
  .Minimum = 5
End With

抵消

您可以將軸設置為具有最小和最大比例的偏移量（以像素為單位）。

TChart1.Axis.Left.MaximumOffset = 4
TChart1.Axis.Left.MinimumOffset = 4

增量

您可以定制軸的間隔。從 Axis 頁面的 Scales 部分選擇 Desired Increment 組合框并添加您需要的增量。您可以在運行時通過代碼更改它：

With TChart1.Axis.Bottom
  .Increment = 20
End With

日期時間數據

如果您的數據是日期時間（您可以通過轉到系列、常規頁面將數據設置為您的系列的日期時間），圖表、軸頁面、比例部分將顯示日期時間范圍。從 Desired Increment 組合框中顯示的范圍中選擇增量。 添加一些示例數據：

For t = 1 To 25
   With TChart1.Series(0)
       .AddXY DateValue("2017, 11, " & t), Rnd(t) * t, "", vbRed
   End With
Next t
Change the Increment at runtime:

With TChart1.Axis.Bottom
  .Increment = TChart1.GetDateTimeStep(dtTwoDays)
End With

注意

更改軸標簽頻率時，請記住 TeeChart 將根據 LabelsSeparation 屬性的設置避免標簽重疊。這意味著如果標簽頻率太高而無法適應標簽，則 TeeChart 將分配“最佳匹配”。更改標簽角度和標簽分隔是 2 個選項，可以幫助您適應所需的標簽。請參閱標簽部分和 LabelsAngle 屬性。

標題

標題在 Axis 頁面的 Titles 部分中設置。您可以更改軸的標題文本及其字體。該角度可以從值 0、90、180、270 度中選擇。

標簽

請參閱 AxisLabels 類（IAxislabels 接口）以獲取標簽屬性的簡歷。

注意

更改軸標簽頻率時，請記住 TeeChart 將根據 Labels.separation 屬性的設置避免標簽重疊。這意味著如果標簽頻率太高而無法適應標簽，則 TeeChart 將分配“最佳匹配”。更改標簽角度和標簽分隔是 2 個選項，可以幫助您適應所需的標簽。

標簽格式

With TChart1.Axis.Bottom
  .Labels.ValueFormat = "#,##0.00;(#,##0.00)" 
End With

'or for datetime data

With TChart1.Axis.Bottom
  .Labels.DateTimeFormat = "dd/mmm/yy" 'Datetime
End With

多行標簽

軸標簽可以顯示為多行文本，而不是單行文本。使用回車 ascii 字符 (#13) 分隔行。例子：

//Add the Series labels in this way and apply 'Marks' as Axis labelling style
  TChart1.Series(0).Add 1234, "New"+chr$(13)+"cars", vbRed
  TChart1.Series(0).Add 2000, "Old"+chr$(13)+"bicycles", vbBlue 

DateTime 標簽的示例：

下面將在兩行文本中顯示底部軸標簽，一行顯示月份和日期，第二行顯示年份： 2 月 28 日 3 月 1 日 .. 1999 1999 ..

TChart1.Series(0).AddXY DateValue("28,2,1999"), 100, "", clTeeColor
TChart1.Series(0).AddXY DateValue("1,3,1999"), 200, "", clTeeColor
TChart1.Series(0).AddXY DateValue("2,3,1999"), 150, "", clTeeColor
TChart1.Series(0).XValues.DateTime = True
TChart1.Axis.Bottom.Labels.DateTimeFormat = "mm/dd hh:mm" 'space 

如果將 Labels.MultiLine 屬性設置為 True，軸將自動將標簽拆分為找到空格的行。

TChart1.Axis.Bottom.Labels.MultiLine = True

將標簽分為兩部分：

'mm/dd' 代表第一行
'hh:mm' 第二行

在運行時，您始終可以使用 OnGetAxisLabel 事件以編程方式將標簽拆分為行：

Private Sub TChart1_OnAfterDraw()
  TChart1.Axis.Left.Labels.TeeSplitInLines LabelText, " "
End Sub

全局“TeeSplitInLines”過程將“LabelText”中的所有空格轉換為行分隔符（返回）。

軸 Labels.Angle 屬性（標簽旋轉角度為 0、90、180 或 270），也可以與多線軸標簽一起使用。

自定義軸標簽

進一步的標簽控制可以通過使用 Axis 事件來獲得。這些事件允許您激活/停用/更改任何單個軸標簽。下面的示例修改每個標簽，在點索引值前面放置一個文本短語。

'set LabelStyle to 'Mark' with the TChart editor or use:-
TChart1.Axis.Bottom.Labels.Style = talMark

'OnGetaxisLabel event
Private Sub TChart1_OnGetAxisLabel(ByVal aAxis As Long, ByVal SeriesIndex As Long, ByVal ValueIndex As Long, LabelText As String)
 If aAxis = atBottom Then
   LabelText = "Period " + Str(ValueIndex)
 End If
End Sub

軸標簽可以在特定位置使用自定義文本和格式進行修改，而無需使用 TeeChart 事件，從而使它們更容易在 ASP 場景中修改服務器端。

Private Sub Form_Load()
Dim v As Variant
  v = Array(200, 0, 123, 300, 260, -100, 650, 400)
  TChart1.AddSeries scLine
  TChart1.Series(0).AddArray 8, v
  AddCustomLabels
End Sub

Private Sub AddCustomLabels()
  TChart1.Axis.Left.Labels.Clear
  TChart1.Axis.Left.Labels.Add 123, "Hello"
  TChart1.Axis.Left.Labels.Item(0).Font.Size = 16
    
  TChart1.Axis.Left.Labels.Add 466, "Good" & Chr(13) & "Bye"
  TChart1.Axis.Left.Labels.Item(1).Transparent = False

  TChart1.Axis.Left.Labels.Add 300, ""
  
  TChart1.Axis.Left.Labels.Add -100, ""
  With TChart1.Axis.Left.Labels.Item(3)
    .Transparent = False
    .Transparency = 50
    .Color = vbBlue
  End With
End Sub

對數標簽

正態對數標記可以通過以下方式設置：

With TChart1.Axis.Left
 .Logarithmic = True
 .Increment = 0 ' the default
 .SetMinMax 0, 10000
 .Labels.ValueFormat = "#e+0" ' exponential format
End With

標簽將根據對數基數（默認為 10）設置，因此在這種情況下，標簽為 1,10,100,1000,10000。

計數和次要的

有 3 種刻度類型和 2 種網格類型。您可以更改每個刻度和網格類型的長度、寬度和顏色?？梢酝ㄟ^ ?Ticks? 選項卡對 Ticks、其關聯的 Grid 和 Inner Ticks 進行更改；可以通過 ?Minor? 選項卡對 Minor Ticks 及其關聯的網格進行更改。

With TChart1.Axis.Bottom
  .TickLength = 7
  .Ticks.Color = vbGreen
  .MinorTickCount = 10 'change number of minorticks between (major) Ticks
End With

軸位置

軸具有修改每個軸的位置的屬性。在此示例中，軸移動了圖表總寬度的 50%，因此它顯示在圖表中心：

TChart1.Axis.Left.PositionPercent = 50

本次關于ActiveX圖表控件TeeChart Pro ActiveX的教程就介紹到這里了，更多教程可在慧都網查看。

TeeChart Pro ActiveXQQ群：740060302      歡迎進群一起討論

如果您想了解TeeChart Pro ActiveX價格，歡迎咨詢

TeeChart Pro ActiveX 是交互性強的輕量級ActiveX圖表控件，能高效生成多任務儀表板。