Chapter-04 圖表.

第四章　圖表
04-01　新增圖表工作表

應用範例
Sub 新增圖表工作表()
MsgBox “在使用中工作表的後面新增圖表工作表”
Charts.Add after:=Activesheet
End Sub

04-02　在圖表工作表中繪製圖表

應用範例
Sub 建立圖表()
MsgBox “以使用中工作表A2到D6的範圍為資料來源，建立圖表”
Charts.Add Before:=Worksheets(“sheet1”)
Charts(“Chart1”).ChartWizard Source:=Worksheets(“sheet1”).Range(“A2:D6”), Gallery:=xlColumn, PlotBy:=xlColumns, CategoryLabels:=1, SeriesLabels:=1, CategoryTitle:=“姓名”, ValueTitle:=“分數”, Title:=“成績一覽表”
End Sub

04-03　在工作表內新增嵌入式圖表

應用範例
Sub 建立嵌入式圖表的範圍()
MsgBox “以(30,100)為左上角座標，建立寬度200點、高度100點的嵌入式圖表範圍”
ActiveSheet.ChartObjects.add 30, 100, 200, 100
End Sub

04-04　在嵌入式圖表內建立圖表

應用範例
Sub 建立嵌入式圖表()
MsgBox “建立嵌入式圖表範圍後，以A2到D6的儲存格為資料來源，在嵌入式圖表範圍內建立圖表”
ActiveSheet.ChartObjects.Add(30, 100, 300, 100).Select
ActiveChart.ChartType = xlLineMarkersStacked
ActiveChart.SetSourceData source:=ActiveSheet.Range(“A2:D6”), PlotBy:=xlColumns
End Sub

04-05　計算活頁簿中圖表的數量

應用範例
Sub 圖表的數量()
MsgBox “顯示使用中工作表內的圖表工作表數量”
MsgBox ActiveWorkbook.Charts.Count
End Sub

04-06　選取活頁簿中的圖表工作表

應用範例
Sub 選取圖表工作表()
MsgBox “依序顯示活頁簿中的圖表工作表”
suu = ActiveWorkbook.Charts.Count
For i = 1 To suu
ActiveWorkbook.Charts(i).Activate
MsgBox “第 ” & i & “ 個圖表工作表”
Next i
End Sub

04-07　變更圖表的種類

應用範例
Sub 變更圖表的類型()
MsgBox “將使用中圖表的類型變更為立體折線圖”
syurui = ActiveChart.ChartType
ActiveChart.ChartType = xl3DLine
MsgBox “回復原來的圖表類型”
ActiveChart.Charttype = syurui
End Sub

04-08　還原圖表的預設格式

應用範例
Sub 還原回圖表的預設格式()
MsgBox “將使用中圖表的格式還原回預設格式”
ActiveChart.ChartArea.ClearFormats
End Sub

04-09　變更圖表區的顏色

應用範例
Sub 變更圖表區的顏色()
MsgBox “將使用中圖表的圖表區顏色設為黃色”
iro = ActiveChart.ChartArea.Interior.ColorIndex
ActiveChart.ChartArea.Interior.ColorIndex = 6
MsgBox “回復原來的顏色”
ActiveChart.ChartArea.Interior.ColorIndex = iro
End Sub

04-10　變更圖表區的框線顏色

應用範例
Sub 變更圖表區的框線顏色()
MsgBox “將使用中圖表的圖表區框線變更為紅色”
iro = ActiveChart.ChartArea.Border.ColorIndex
ActiveChart.ChartArea.Border.ColorIndex = 3
MsgBox “回復原來的狀態”
ActiveChart.ChartArea.Border.ColorIndex = iro
End Sub

04-11　變更繪圖區的顏色

應用範例
Sub 變更繪圖區的顏色()
MsgBox “將使用中圖表的繪圖區顏色設為紅色”
iro = ActiveChart.PlotArea.Interior.Color
ActiveChart.PlotArea.Interior.Color = RGB(255,0,0)
MsgBox “回復原來的顏色”
ActiveChart.PlotArea.Interior.Color = iro
End Sub

04-12　變更資料數列依據的對象

應用範例
Sub 變更資料數列()
houkou = ActiveChart.PlotBy
If houkou = 1 Then
MsgBox “目前圖表資料數列以列的資料為依據”
houkou = 2
Else
MsgBox “目前圖表資料數列以行的資料為依據”
houkou = 1
End If
MsgBox “更變圖表資料數列依據的對象”
ActiveChart.PlotBy = houkou
End Sub

04-13　變更資料數列的顏色

應用範例
Sub 變更資料數列的顏色()
MsgBox “將使用中圖表內第一個資料數列的顏色變更為紅色”
iro = ActiveChart.SeriesCollection(1).Interior.Color
ActiveChart.SeriesCollection(1).Interior.Color = RGB(255,0,0)
MsgBox “回復原來的顏色”
ActiveChart.SeriesCollection(1).Interior.Color = iro
End Sub

04-14　變更資料數列的前景色、背景色

應用範例
Sub 設定資料數列的前景色()
MsgBox “將第三個資料數列顏色變更為紅色”
iro = ActiveChart.SeriesCollection(3).Fill.ForeColor.SchemeColor
ActiveChart.SeriesCollection(3).Fill.ForeColor.SchemeColor = 3
MsgBox “回復原來的前景色”
ActiveChart.SeriesCollection(3).Fill.ForeColor.SchemeColor = iro
End Sub

04-15　變更圖表的標題

應用範例
Sub 設定圖表的標題()
MsgBox “將使用中圖表的標題變更為「成績排行榜」”
taitoru = ActiveChart.ChartTitle.Text
MsgBox “目前的標題： ” & taitoru
ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Text = “成績排行榜”
MsgBox “回復原來的標題”
ActiveChart.ChartTitle.Text = taitoru
End Sub

04-16　變更標題的文字尺寸

應用範例
Sub 變更圖表標題文字的尺寸()
MsgBox “將標題文字的尺寸變更為廿點”
Ookisa = ActiveChart.ChartTitle.Font.Size
MsgBox “目前圖表標題文字的尺寸為： ” & ookisa
ActiveChart.ChartTitle.Font.Size = 20
MsgBox “回復原來的文字尺寸”
ActiveChart.ChartTitle.Font.Size = ookisa
End Sub

04-17　變更圖表標題的顏色

應用範例
Sub 變更標題的顏色()
MsgBox “將使用中圖表的圖表標題顏色變更為紅色”
iro = ActiveChart.ChartTitle.Font.ColorIndex
With ActiveChart
.HasTitle = True
.ChartTitle.Font.ColorIndex = 3
End With
MsgBox “回復到原來的狀態”
ActiveChart.ChartTitle.Font.ColorIndex = iro
End Sub

04-18　一次設定多種圖表標題屬性

應用範例
Sub 設定圖表標題的文字尺寸顏色()
MsgBox “變更圖表標題的文字、尺寸及顏色”
ActiveChart.HasTitle = True
With ActiveChart.ChartTitle
.Text = “得分英雄榜”
.Font.Size = 20
.Font.ColorIndex = 3
End With
End Sub
04-19　在圖表中顯示資料表

應用範例
Sub 顯示資料表()
MsgBox “在使用中圖表內顯示資料表”
ActiveChart.HasDataTable = True
MsgBox “回復原來的狀態”
ActiveChart.HasDataTable = False
End Sub

04-20　變更圖表來源資料的參考範圍

應用範例
Sub 變更圖表的資料來源()
MsgBox “將使用中圖表的資料來源變更為A2到D2及A4到D5的資料”
ActiveChart.ChartWizard Source:=Worksheets(“sheet1”).Range(“A2:D2,A4:D5”)……1
MsgBox “回復原來的狀態”
ActiveChart.ChartWizard Source:=Worksheets(“sheet1”).Range(“A2:D6”)……2
End Sub

04-21　在圖表中顯示資料標籤

應用範例1
Sub 顯示資料數列的資料值()
MsgBox “顯示第一組資料數列的資料值”
ActiveChart.SeriesCollection(1).HasDataLabels = True
MsgBox “回復原來的狀態”
ActiveChart.SeriesCollection(1).HasDataLabels = False
End Sub

應用範例2
Sub 顯示特定資料數列的資料值()
MsgBox “將第一組資料數列中第二個數列的顯示資料設定為文字：「請注意此項！」”
ActiveChart.SeriesCollection(1).HasDataLabels = True
ActiveChart.SeriesCollection(1).Points(2).DataLabel.Text = “請注意此項！”
MsgBox “回復原來的狀態”
ActiveChart.SeriesCollection(1).HasDataLabels = False
End Sub

04-22　資料標籤的位置

應用範例
Sub 設定資料數列標籤的顯示位置()
Set sc = ActiveChart.SeriesCollection(1)
Sc.HasDataLabels = True
MsgBox “將直條圖的資料數列標籤顯示位置設在中間”
iti = sc.DataLabels.Position
sc.DataLabels.Position = xlLabelPositionCenter
MsgBox “回復原來的狀態”
sc.DataLabels.Position = iti
sc.HasDataLabels = False
End Sub

04-23　隱藏數值座標軸的資料

應用範例
Sub 隱藏數值座標軸()
MsgBox “隱藏使用中圖表的主要數值座標軸”
ActiveChart.HasAxis(xlValue, xlPrimary) = False
MsgBox “回復原來的狀況”
ActiveChart.HasAxis(xlValue, xlPrimary) = True
End Sub

04-24　變更數值座標軸標題的顏色

應用範例
Sub 變更數值座標軸標題文字的顏色()
MsgBox “將數值座標軸標題的文字顏色變更為綠色”
iro = ActiveChart.Axes.Item(xlValue).AxisTitle.Font.ColorIndex
With ActiveChart.Axes.Item(xlValue)
.HasTitle = True
.AxisTitle.Font.ColorIndex = 4
End With
MsgBox “回復原來的顏色”
ActiveChart.Axes.Item(xlValue).AxisTitle.Font.ColorIndex = iro
End Sub

04-25　變更數值座標軸的刻度類型

應用範例
Sub 設定數值座標軸的刻度類型()
MsgBox “將使用中圖表的數值座標軸刻度顯示在座標軸外側”
muki = ActiveChart.Axes(xlValue).MajorTickMark
ActiveChart.Axes(xlValue).MajorTickMark = xlTickMarkOutside
MsgBox “回復原來的狀態”
ActiveChart.Axes(xlValue).MajorTickMark = muki
End Sub

04-26　隱藏數值座標軸格線

應用範例
Sub 隱藏數值座標軸的格線()
MsgBox “隱藏使用中圖表的數值座標軸格線”
ActiveChart.Axes(xlValue).HasMajorGridlines = False
MsgBox “回復原來的狀態”
ActiveChart.Axes(xlValue).HasMajorGridlines = True
End Sub

04-27　變更數值座標軸刻度文字的顏色

應用範例
Sub 變更數值座標軸刻度的文字顏色()
MsgBox “將使用中圖表的數值座標軸文字顏色變更為綠色”
iro = ActiveChart.Axes(xlValue).TickLabels.Font.Color
ActiveChart.Axes(xlValue).TickLabels.Font.Color = RGB(0,255,0)
MsgBox “回復原來的顏色”
ActiveChart.Axes(xlValue).TickLabels.Font.Color = iro
End Sub

04-28　變更數值座標軸刻度文字的角度

應用範例
Sub 變更數值座標軸刻度的文字角度()
MsgBox “將使用中圖表內數值座標軸刻度的文字變更為垂直文字”
kakudo = ActiveChart.Axes(xlValue).TickLabels.Orientation
ActiveChart.Axes(xlValue).TickLabels.Orientation = xlTickLabelOrientationVertical
MsgBox “回復原來的文字狀態”
ActiveChart.Axes(xlValue).TickLabels.Orientation = kakudo
End Sub

04-29　顯示數值座標軸的次要刻度

應用範例
Sub 設定數值座標軸的次要刻度類型()
MsgBox “將使用中圖表內數值座標軸的次要刻度顯示在座標軸內側”
muki = ActiveChart.Axes(xlValue).MinorTickMark
ActiveChart.Axes(xlValue).MinorTickMark = xlTickMarkInside
MsgBox “回復原來的狀態”
ActiveChart.Axes(xlValue).MinorTickMark = muki
End Sub

04-30　設定次要數值座標軸的格線

應用範例
Sub 顯示數值座標軸的次要格線()
MsgBox “顯示使用中圖表的數值座標軸次要格線”
ActiveChart.Axes(xlValue).HasMinorGridlines = True
MsgBox “回復原來的狀態”
ActiveChart.Axes(xlValue).HasMinorGridlines = False
End Sub

04-31　變更數值座標軸的數值排列順序

應用範例
Sub 變更數值座標軸的數值排列順序值()
MsgBox “將使用中圖表內數值座標軸的數值由上(小)到下(大)排列”
ActiveChart.Axes(xlValue).ReversePlotOrder = True
MsgBox “回復原來的排列狀態”
ActiveChart.Axes(xlValue).ReversePlotOrder = False
End Sub

04-32　變更數值座標軸的顯示單位

應用範例
Sub 設定數值座標軸的顯示單位()
MsgBox “變更使用中圖表內數值座標軸刻度的顯示單位”
du = ActiveChart.Axes(xlValue).DisplayUnit
memori = ActiveChart.Axes(xlValue).DisplayUnitCustom
MsgBox “目前數值座標軸刻度的單位為： ” & du & “，接下來要將顯示單位設為「萬」”
ActiveChart.Axes(xlValue).DisplayUnit = xlTenThousands
MsgBox “回復原來的狀態”
ActiveChart.Axes(xlValue).DisplayUnitCustom = memori
ActiveChart.Axes(xlValue).DisplayUnit = du
End Sub

04-33　將數值座標軸的刻度以對數的方式顯示

應用範例
Sub 將數值座標軸的刻度類型設為對數()
MsgBox “使用對數作為數值座標軸的刻度類型”
memori = ActiveChart.Axes(xlValue).ScaleType
ActiveChart.Axes(xlValue).ScaleType = xlScaleLogarithmic
MsgBox “回復原來的刻度類型”
ActiveChart.Axes(xlValue).ScaleType = memori
End Sub

04-34　變更數值座標軸刻度文字的位置

應用範例
Sub 變更數值座標軸刻度的文字位置()
MsgBox “將數值座標軸刻度的文字位置變更到圖表的右方”
tlp = ActiveChart.Axes(xlValue).TickLabelPosition
ActiveChart.Axes(xlValue).TickLabelPosition = xlTickLabelPositionHigh
MsgBox “回復原來的位置”
ActiveChart.Axes(xlValue).TickLabelPosition = tlp
End Sub

04-35　變更數值座標軸標題的文字尺寸

應用範例
Sub 設定數值座標軸標題文字的尺寸()
MsgBox “將數值座標軸標題文字尺寸設為18點”
ookisa = ActiveChart.Axes.Item(xlValue).AxisTitle.Font.Size
MsgBox “目前數值座標軸標題的文字尺寸為： ” & ookisa
ActiveChart.Axes.Item(xlValue).AxisTitle.Font.Size = 18
MsgBox “回復原來的文字尺寸”
ActiveChart.Axes.Item(xlValue).AxisTitle.Font.Size = ookisa
End Sub

04-36　變更數值座標軸及類別座標軸的文字

應用範例1
Sub 設定數值座標軸標籤()
MsgBox “將數值座標軸的標籤文字變更為「Results」”
taitoru = ActiveChart.Axes.Item(xlValue).AxisTitle.Caption
With ActiveChart.Axes.Item(xlValue)
.HasTitle = True
.AxisTitle.Caption = “Results”
End With
MsgBox “回復原來的標籤”
ActiveChart.Axes.Item(xlValue).AxisTitle.Caption = taitoru
End Sub

應用範例2
Sub 設定類別座標軸標籤()
MsgBox “將類別座標軸的標籤文字變更為「Name」”
taitoru = ActiveChart.Axes.Item(xlCategory).AxisTitle.Text
ActiveChart.Axes.Item(xlCategory).HasTitle = True
ActiveChart.Axes.Item(xlCategory).AxisTitle.Text = “Name”
MsgBox “回復原來的標籤”
ActiveChart.Axes.Item(xlCategory).AxisTitle.Text = taitoru
End Sub

03-37　變更類別座標軸的文字尺寸

應用範例
Sub 設定類別座標軸標題文字的尺寸()
MsgBox “將類別座標軸標題文字尺寸設為18點”
ookisa = ActiveChart.Axes.Item(xlCategory).AxisTitle.Font.Size
ActiveChart.Axes.Item(xlCategory).AxisTitle.Font.Size = 18
MsgBox “回復原來的文字尺寸”
ActiveChart.Axes.Item(xlCategory).AxisTitle.Font.Size = ookisa
End Sub

04-38　變更類別座標軸標題文字的顏色

應用範例
Sub 變更類別座標軸標題文字的顏色()
MsgBox “將類別座標軸標題的文字顏色變更為綠色”
iro = ActiveChart.Axes.Item(xlCategory).AxisTitle.Font.ColorIndex
With ActiveChart.Axes.Item(xlCategory)
.HasTitle = True
.AxisTitle.Font.ColorIndex = 4
End With
MsgBox “回復原來的顏色”
ActiveChart.Axes.Item(xlCategory).AxisTitle.Font.ColorIndex = iro
End Sub

04-39　變更類別座標軸刻度文字的顏色

應用範例
Sub 變更類別座標軸刻度的文字顏色()
MsgBox “將使用中圖表的類別座標軸文字顏色變更為紅色”
iro = ActiveChart.Axes(xlCategory).TickLabels.Font.Color
ActiveChart.Axes(xlCategory).TickLabels.Font.Color = RGB(255,0,0)
MsgBox “回復原來的顏色”
ActiveChart.Axes(xlCategory).TickLabels.Font.Color = iro
End Sub

04-40　變更類別座標軸刻度文字的角度

應用範例
Sub 變更類別座標軸刻度的文字角度()
MsgBox “將使用中圖表內類別座標軸刻度的文字角度變更為60度”
kakudo = ActiveChart.Axes(xlCategory).TickLabels.Orientation
ActiveChart.Axes(xlCategory).TickLabels.Orientation = 60
MsgBox “回復原來的文字狀態”
ActiveChart.Axes(xlCategory).TickLabels.Orientation = kakudo
End Sub

04-41　變更類別座標軸刻度文字的位置

應用範例
Sub 變更類別座標軸刻度的文字位置()
MsgBox “將類別座標軸刻度的文字位置變更到圖表的上方”
memori = ActiveChart.Axes(xlCategory).TickLabelPosition
ActiveChart.Axes(xlCategory).TickLabelPosition = xlTickLabelPositionHigh
MsgBox “回復原來的位置”
ActiveChart.Axes(xlCategory).TickLabelPosition = memori
End Sub

04-42　將類別座標軸的零點與數值座標軸合併在一起

應用範例
Sub 設定類別座標軸的零點位置()
MsgBox “在使用中圖表內，將類別座標軸的零點與數值座標軸合併起來”
ActiveChart.Axes(xlCategory).AxisBetweenCategories = False
MsgBox “回復到原來的狀態”
ActiveChart.Axes(xlCategory).AxisBetweenCategories = True
End Sub

04-43　隱藏圖例

應用範例
Sub 隱藏圖例()
MsgBox “將圖例隱藏起來”
ActiveChart.ChartWizard HasLegend:= False
MsgBox “回復原來的狀態”
ActiveChart.ChartWizard HasLegend:= True
End Sub

04-44　變更圖例的文字顏色

應用範例
Sub 設定圖例的文字()
MsgBox “將圖例文字設為18點的紅色粗斜體字”
With ActiveChart.Legend.Font
ookisa = .Size
iro = .ColorIndex
.Size = 18
.Bold = True
.Italic = True
.ColorIndex = 3
End With
MsgBox “回復原來的狀態”
With ActiveChart.Legend.Font
.Size = ookisa
.Bold = False
.Italic = False
.ColorIndex = iro
End With
End Sub

04-45　設定圖例的位置

應用範例
Sub 設定圖例的位置()
MsgBox “將圖例放在使用中圖表的左側”
iti = ActiveChart.Legend.Position
ActiveChart.Legend.Position = xlLegendPositionLeft
MsgBox “回復原來的狀態”
ActiveChart.Legend.Position = iti
End Sub

04-46　顯示圖例符號

應用範例
Sub 顯示圖例符號()
MsgBox “顯示第一個數列的圖例符號”
Set objas = ActiveChart.SeriesCollection(1)
objas.HasDataLabels = True
objas.DataLabels.ShowLegendKey = True
MsgBox “回復原來的狀態”
objas.DataLabels.ShowLegendKey = False
objas.HasDataLabels = False
End Sub

04-47　變更標記的尺寸

應用範例
Sub 設定標記的尺寸()
MsgBox “在使用中圖表內，將第二個數列的標記尺寸設為15點”
ms = ActiveChart.SeriesCollection(2).MarkerSize
ActiveChart.SeriesCollection(2).MarkerSize = 15
MsgBox “回復原來的狀態”
ActiveChart.SeriesCollection(2).MarkerSize = ms
End Sub

04-48　變更標記的形狀

應用範例
Sub 設定標記的形狀()
MsgBox “將第三個數列的標記形狀變更為圓形”
mark = ActiveChart.SeriesCollection(3).MarkerStyle
ActiveChart.SeriesCollection(3).MarkerStyle = xlMarkerStyleCircle
MsgBox “回復原來的狀態”
ActiveChart.SeriesCollection(3).MarkerStyle = mark
End Sub

04-49　變更標記的前景色及背景色

應用範例
Sub 設定標記的前景色及背景色()
MsgBox “將使用中圖表內第一個數列標記的前景色設為紅色，背景色設為白色，尺寸設為20點”
With ActiveChart.SeriesCollection(1)
ms = .MarkerSize
.MarkerSize = 20
irof = .MarkerForegroundColor
irob = .MarkerBackgroundColor
.MarkerForegroundColor = RGB(255,0,0)
.MarkerBackgroundColor = RGB(255,255,255)
End With
MsgBox “回復原來的狀態”
With ActiveChart.SeriesCollection(1)
.MarkerForegroundColor = irof
.MarkerBackgroundColor = irob
.MarkerSize = ms
End With
End Sub

04-50　繪製數列線

應用範例
Sub 顯示數列線()
MsgBox “在使用中的堆疊直條圖內繪製數列線”
ActiveChart.ChartGroups(1).HasSeriesLines = True
MsgBox “回復原來的狀態”
ActiveChart.ChartGroups(1).HasSeriesLines = False
End Sub

04-51　變更數列線的樣式

應用範例
Sub 設定數列線的樣式()
MsgBox “在堆疊直條圖內繪製樣式為虛線的數列線”
With ActiveChart.ChartGroups(1)
.HasSeriesLines = True
.SeriesLines.Border.LineStyle = xlDot
End With
MsgBox “清除數列線”
ActiveChart.ChartGroups(1).HasSeriesLines = False
End Sub

04-52　繪製鉛垂線

應用範例
Sub 繪製鉛垂線()
MsgBox “在使用中折線圖內繪製鉛垂線”
ActiveChart.ChartGroups(1).HasDropLines = True
MsgBox “回復原來的狀態”
ActiveChart.ChartGroups(1).HasDropLines = False
End Sub

04-53　設定鉛垂線的樣式

應用範例
Sub 設定鉛垂線的樣式()
MsgBox “在使用中圖表內繪製樣式為虛線的鉛垂線”
ActiveChart.ChartGroups(1).HasDropLines = True
ActiveChart.ChartGroups(1).DropLines.Border.LineStyle = xlDot
MsgBox “回復原來的狀態”
ActiveChart.ChartGroups(1).HasDropLines = False
End Sub

04-54　繪製高低點連線

應用範例
Sub 繪製高低點連線()
MsgBox “在折線圖內繪製高低點連線”
ActiveChart.ChartGroups(1).HasHiLoLines = True
MsgBox “回復原來的狀態”
ActiveChart.ChartGroups(1).HasHiLoLines = False
End Sub

04-55　設定高低點連線的樣式

應用範例
Sub 設定高低點連線的樣式()
MsgBox “繪製虛線狀的高低點連線”
ActiveChart.ChartGroups(1).HasHiLoLines = True
ActiveChart.ChartGroups(1).HiLolines.Border.LineStyle = xlDot
MsgBox “回復原來的狀態”
ActiveChart.ChartGroups(1).HasHiLoLines = False
End Sub

04-56　繪製圓型圖的輔助圖

應用範例1
Sub 在圓形圖中繪製輔助圖()
MsgBox “在使用中圓形圖內以最大值500、數值為類型，繪製輔助圖”
ActiveChart.ChartType = xlBarOfPie
With ActiveChart.ChartGroups(1)
.SplitType = xlSplitByValue
.SplitValue = 500
End With
End Sub

應用範例2
Sub 回復到原來的圓形圖()
ActiveChart.ChartType = xlPie
End Sub

04-57　變更輔助圖的尺寸

應用範例
Sub 變更輔助圖的尺寸()
MsgBox “將輔助圖的高度設為圓形圖直徑的一半”
ookisa = ActiveChart.ChartGroups(1).SecondPlotSize
ActiveChart.ChartGroups(1).SecondPlotSize = 50
MsgBox “回復原來的狀態”
ActiveChart.ChartGroups(1).SecondPlotSize = ookisa
End Sub

04-58　變更輔助圖的類型

應用範例
Sub 變更輔助圖的類型()
MsgBox “變更輔助圖的類型”
ct = ActiveChart.ChartType
If ct = xlBarOfPie Then
ActiveChart.ChartType = xlPieOfPie
Else
ActiveChart.ChartType = xlBarOfPie
End If
End Sub

04-59　設定條狀圖數列間的重疊比例

應用範例
Sub 設定數列間的重疊比例()
MsgBox “將使用中直條圖內數列間的重疊比例設為50%”
Kasanari = ActiveChart.ChartGroups(1).Overlap
ActiveChart.ChartGroups(1).Overlap = 50
MsgBox “回復原來的狀態”
ActiveChart.ChartGroups(1).Overlap = kasanari
End Sub

04-60　調整條狀圖數列組的間距

應用範例
Sub 設定數列組的間距()
MsgBox “將使用中條狀圖的數列組間距設為50”
kankaku = ActiveChart.ChartGroups(1).GapWidth
ActiveChart.ChartGroups(1).GapWidth = 50
MsgBox “回復原來的狀態”
ActiveChart.ChartGroups(1).GapWidth = kankaku
End Sub

04-61　變更環圈圖的內徑

應用範例
Sub 設定環圈內徑的尺寸()
MsgBox “將使用中環圈圖的內徑設為20%”
ana = ActiveChart.DoughnutGroups(1).DoughnutHoleSize
ActiveChart.DoughnutGroups(1).DoughnutHoleSize = 20
MsgBox “回復原來的狀態”
ActiveChart.DoughnutGroups(1).DoughnutHoleSize = ana
End Sub

04-62　設定環圈圖的基線角度

應用範例
Sub 設定環圈圖的基線角度()
MsgBox “將使用中環圈圖的基線角度設為90度”
kakudo = ActiveChart.DoughnutGroups(1).FirstSliceAngle
ActiveChart.DoughnutGroups(1).FirstSliceAngle = 90
MsgBox “回復原來的狀態”
ActiveChart.DoughnutGroups(1).FirstSliceAngle = kakudo
End Sub

04-63　變更數列座標軸的標題文字

應用範例
Sub 設定數列座標軸的標題()
MsgBox “將數列座標軸的標題設為「科目」”
With ActiveChart.Axes.Item(xlSeriesAxis)
.HasTitle = True
.AxisTitle.Caption = “科目”
End With
End Sub

04-64　變更數列座標軸標題文字的顏色

應用範例
Sub 設定數列座標軸標題文字的顏色()
MsgBox “將使用中圖表的數列座標軸標題文字顏色變更為綠色”
iro = ActiveChart.Axes.Item(xlSeriesAxis).AxisTitle.Font.ColorIndex
With ActiveChart.Axes.Item(xlSeriesAxis)
.HasTitle = True
.AxisTitle.Font.ColorIndex = 4
End With
MsgBox “回復原來的狀態”
ActiveChart.Axes.Item(xlSeriesAxis).AxisTitle.Font.ColorIndex = iro
End Sub

04-65　設定立體圖表的旋轉角度(Z軸)

應用範例
Sub 設定立體圖表的旋轉角度()
MsgBox “將使用中立體圖表的Z軸旋轉角度設為60度”
kakudo = ActiveChart.Rotation
ActiveChart.Rotation = 60
MsgBox “回復原來的狀態”
ActiveChart.Rotation = kakudo
End Sub

04-66　設定立體圖表的仰角

應用範例
Sub 設定立體圖表的仰角()
MsgBox “將使用中立體圖表的仰角設為30度”
kakudo = ActiveChart.Elevation
MsgBox “目前的仰角為： ” & kakudo & “度”
ActiveChart.Elevation = 30
MsgBox “回復到原來的狀態”
ActiveChart.Elevation = kakudo
End Sub

06-67　設定立體圖表的景深

應用範例
Sub 設定立體圖表的景深()
MsgBox “將使用中立體圖表的景深設為80”
okuyuki = ActiveChart.Perspective
MsgBox “目前的景深為： ” & okuyuki
ActiveChart.Perspective = 80
MsgBox “回復原來的狀態”
ActiveChart.Perspective = okuyuki
End Sub

06-68　變更立體圖表底板的顏色

應用範例
Sub 設定底板的顏色()
MsgBox “將使用中立體圖表的底板顏色設為白色”
iro = ActiveChart.Floor.Interior.ColorIndex
MsgBox “目前的底板顏色為： ” & iro & “色”
ActiveChart.Floor.Interior.ColorIndex = 2
MsgBox “回復原來的狀態”
ActiveChart.Floor.Interior.ColorIndex = iro
End Sub

04-69　變更立體圖表的背景牆顏色

應用範例
Sub 設定背景牆的顏色()
MsgBox “將使用中立體圖表的背景牆顏色設為白色”
iro = ActiveChart.Walls.Interior.ColorIndex
MsgBox “目前的背景牆顏色為： ” & iro & “色”
ActiveChart.Walls.Interior.ColorIndex = 2
MsgBox “回復原來的狀態”
ActiveChart.Walls.Interior.ColorIndex = iro
End Sub

04-70　變更立體圖表背景牆的框線

應用範例
Sub 設定背景牆框線的顏色()
MsgBox “將使用中立體圖表背景牆的框線顏色設為紅色”
iro = ActiveChart.Walls.Border.ColorIndex
MsgBox “目前的背景牆框線顏色為： ” & iro & “色”
ActiveChart.Walls.Border.ColorIndex = 3
MsgBox “回復原來的狀態”
ActiveChart.Walls.Border.ColorIndex = iro
End Sub

04-71　選取嵌入式圖表

應用範例
Sub 選取嵌入式圖表()
MsgBox “選取使用中工作表的第二個嵌入式圖表”
ActiveSheet.ChartObjects(2).Select
End Sub

04-72　取得嵌入式圖表的數量

應用範例
Sub 嵌入式圖表的數量()
MsgBox “取得使用中工作表的嵌入式圖表數量”
MsgBox ActiveSheet.ChartObjects.Count
End Sub

04-73　移動嵌入式圖表的位置

應用範例
Sub 移動嵌入式圖表()
MsgBox “將使用中工作表內第二個嵌入式圖表移到儲存格B2上”
retu = ActiveSheet.ChartObjects(2).Left
gyou = ActiveSheet.ChartObjects(2).Top
MsgBox “目前的位置為： ” & gyou & “_” & retu
ActiveSheet.ChartObjects(2).Left = ActiveSheet.Columns(“B”).Left
ActiveSheet.ChartObjects(2).Top = ActiveSheet.Rows(“2”).Top
MsgBox “回復原來的狀態”
ActiveSheet.ChartObjects(2).Left = retu
ActiveSheet.ChartObjects(2).Top = gyou
End Sub

04-74　將嵌入式圖表移動到圖表工作表中

應用範例
Sub 將嵌入式圖表移到圖表工作表中()
MsgBox “將使用中工作表內第二個嵌入式圖表移動到新的圖表工作表中”
ActiveSheet.ChartObjects(2).Chart.Location Where:=xlLocationAsNewSheet, Name:=“New Chart”
End Sub

04-75　在樞紐分析表中隱藏列或行欄位中的項目

應用範例1
Sub 隱藏樞紐分析表中列欄位內的項目()
MsgBox “隱藏使用中樞紐分析表內列欄位「資料」的「1月」、「6月」、「12月」三個項目”
With ActiveChart.PivotLayout.PivotFields(“資料”)
.PivotItems(“1月”).Visible = False
.PivotItems(“6月”).Visible = False
.PivotItems(“12月”).Visible = False
End With
End Sub

應用範例2
Sub 隱藏樞紐分析表中行欄位內的項目()
MsgBox “隱藏使用中樞紐分析表內行欄位「項目」的「信用卡」、「置裝費」兩個項目”
With ActiveChart.PivotLayout.PivotFields(“項目”)
.PivotItems(“信用卡”).Visible = False
.PivotItems(“置裝費”).Visible = False
End With
End Sub

04-76　變更樞紐分析表頁欄位的項目

應用範例
Sub 變更樞紐分析表頁面欄位的項目()
MsgBox “將樞紐分析表頁欄位的項目設為「信用卡」”
ActiveChart.PivotLayout.PivotFields(“總計”).CurrentPage = “信用卡”
End Sub

04-77　將負值數列的顏色設為補色

應用範例
Sub 設定負值數列的顏色()
MsgBox “若各數列組的第一個數列為負值，其顏色將以補色顯示”
ActiveChart.SeriesCollection(1).InvertIfNegative = True
MsgBox “回復原來的狀態”
ActiveChart.SeriesCollection(1).InvertIfNegative = False
End Sub

04-78　調整圖表的尺寸以符合工作表視窗的大小

應用範例
Sub 將圖表納於圖表工作表中()
MsgBox “自動調整圖表的尺寸，使符合圖表工作表視窗的大小”
ActiveChart.SizeWithWindow = True
End Sub