7、支援函式 (轉)

7、支援函式 (轉)[@more@]最後我們再來看一下幾個用來設定圖表外觀的。

　　 SetChartOptions函式

　　 該函式用來設定圖表型別、大小。

Public Sub SetChartOptions(ByVal iXlChartType As xlChartType, _ ByVal iPlotAreaWidth As Integer, ByVal iPlotAreaHeight As Integer) With oChart .ChartType = iXlChartType If (iPlotAreaHeight > 50) Then .PlotArea.Height = iPlotAreaHeight If (iPlotAreaWidth > 50) Then .PlotArea.Width = iPlotAreaWidth End With End Sub

　　 該函式的目的是讓設定一些重要的圖表屬性。另外，該函式也為開發者示範瞭如何在必要的時候顯露圖表屬性使得使用者可以訪問它。本函式允許使用者設定圖表型別、圖形區的高度和寬度，這些屬性的預設值已經由SetChartBaseProps() 和SetChartWithDataProps()這兩個函式設定過了。

　　 SetChartTitles函式

　　 該函式設定圖表標題、X-軸和Y-軸標題。

Sub SetChartTitles(strMainTitle, strXAxisTitle, strYAxisTitle) On Error Resume Next With oExcelChart '--- 檢查並設定圖表標題 If (Not IsNull(strMainTitle) And Trim(strMainTitle) < > "") Then .HasTitle = True .ChartTitle.Caption = strMainTitle .ChartTitle.Font.Name = "Verdana" .ChartTitle.Font.FontStyle = "Bold" .ChartTitle.Font.Size = 14 End If '--- 檢查並設定X-軸標題 If (Not IsNull(strXAxisTitle) And Trim(strXAxisTitle) < > "") Then .Axes(xlCategory).HasTitle = True .Axes(xlCategory).AxisTitle.Characters.Text = strXAxisTitle .Axes(xlCategory).AxisTitle.Font.Name = "Verdana" .Axes(xlCategory).AxisTitle.Font.FontStyle = "Bold" .Axes(xlCategory).AxisTitle.Font.Size = 12 End If '--- 檢查並設定Y-軸標題 If (Not IsNull(strYAxisTitle) And Trim(strYAxisTitle) < > "") Then .Axes(xlValue).HasTitle = True .Axes(xlValue).AxisTitle.Characters.Text = strYAxisTitle .Axes(xlValue).AxisTitle.Font.Name = "Verdana" .Axes(xlValue).AxisTitle.Font.FontStyle = "Bold" .Axes(xlValue).AxisTitle.Font.Size = 12 '--- 設定Y-軸標題的方向 .Axes(xlValue).AxisTitle.HorizontalAlignment = xlCenter .Axes(xlValue).AxisTitle.VerticalAlignment = xlCenter .Axes(xlValue).AxisTitle.Orientation = xlVertical End If End With End Sub

　　 我們不再具體介紹該函式和後面幾個函式的每行程式碼。該函式的目的是設定圖表的各種標題：透過ChartTitile設定主標題，透過Axes物件設定X軸和Y軸的標題。竅門在於要設定好Y-軸標題的方向，這透過設定Aces物件內AxisTitle物件的Orientation屬性實現。