- 嵌入式圖表與工作表的數(shù)據(jù)在一起，或者與其他的嵌入式圖表在一起。
- 圖表工作表是特定的工作表，只包含單獨的圖表。
（1）嵌入式圖表
當希望圖表作為工作表的一部分，與數(shù)據(jù)或其他圖表在一起時，嵌入式圖表是最好的選擇。Chart對象代表每一個嵌入式圖表，包含在ChartObject對象里。
每個Excel工作表都有一個ChartObjects集合，包含工作表中每個嵌入式圖表。為了在工作表中添加新的嵌入式圖表，在集合中添加ChartObject對象，其語法為：
WorksheetObject.ChartObjects.Add(Left,Top,Width,Height)
其中，參數(shù)Left和參數(shù)Top指定圖表左上角的位置，參數(shù)Width和參數(shù)Height指定圖表尺寸。所有4個參數(shù)都以磅為單位。該方法返回對新創(chuàng)建的ChartObject對象的引用，使用Chart屬性引用所包含的圖表。例如：
Dim co As ChartObjectDim ch As ChartSet co = Worksheets("Sheet1").ChartObjects.Add(50, 50, 250, 165)Set ch = co.Chart
執(zhí)行上述代碼后，在工作表Sheet1中放置一個新的空嵌入式圖表，使用變量ch來引用該圖表。
（2）圖表工作表
當希望圖表顯示最大尺寸，而且不會妨礙數(shù)據(jù)或其他圖表時，使用圖表工作表。Chart對象代表圖表工作表。與嵌入式圖表不同，不需要ChartObject對象，因為圖表工作表的位置是固定的，其尺寸取決于工作表的尺寸。每個工作簿都有一個Charts集合，包含該工作簿中的所有圖表工作表。
注意，工作簿的Charts集合不會引用嵌入式圖表，僅僅是圖表工作表。相反，工作表的ChartObjects集合僅僅引用嵌入式圖表。要添加新的圖表工作表，使用Add方法：
Charts.Add
該方法返回對新圖表的引用。下面的代碼在活動工作簿中添加新的圖表工作表，并且包含對新圖表的引用：
Dim ch As ChartSet ch = ActiveWorkbook.Charts.Add
執(zhí)行上述代碼后，使用變量ch操控圖表。
Chart對象
以下圖所示的工作表為例，簡要介紹Chart對象及其應用。
要指定圖表數(shù)據(jù)，需要調(diào)用Chart對象的SetSourceData方法。語法為：
SetSourceData(Source,PlotBy)
其中，參數(shù)Source是包含數(shù)據(jù)的工作表區(qū)域，可以通過行列標識符或者名稱來指定該參數(shù)值。參數(shù)PlotBy是一個常量，指定數(shù)據(jù)系列是行區(qū)域（xlRows）還是列區(qū)域（xlColumns）。
如上圖所示的工作表，設(shè)置圖表源數(shù)據(jù)的代碼如下：
ch.SetSourceData Source:=Worksheets("Sheet1").Range("B3:F6"),PlotBy:=xlRows
假設(shè)ch引用Chart對象。下面的過程基于上圖工作表數(shù)據(jù)創(chuàng)建一個嵌入式圖表：
Sub CreateEmbeddedChart()Dim co As ChartObjectDim ch As Chart Set co = Worksheets("Sheet1").ChartObjects.Add(50, 100, 250, 165)Set ch = co.Chartch.SetSourceData Source:=Worksheets("Sheet1").Range("B3:F6"), PlotBy:=xlRowsEnd Sub
說明：
- 圖表中自動添加了數(shù)據(jù)系列和類別標簽。
- 在水平軸中繪制類別；垂直軸中繪制數(shù)值。
- 自動創(chuàng)建圖表圖例，以識別數(shù)據(jù)系列。
- 圖表的垂直軸根據(jù)數(shù)據(jù)值自動縮放。
- 在沒有指定圖表類型時，默認使用簇狀柱形圖。
生成的圖表如下圖所示。
下面，來指定圖表的類型。
Chart對象的ChartType屬性控制圖表的類型，并且Excel提供了一組預定義常量指定該屬性。每個常量不僅指定基本類型（例如條形圖、柱狀圖或折線圖），而且也指定每種類型的子類型，包括圖表是否作為二維或三維顯示。
下表列出了一些經(jīng)常使用的類型。
常量 說明 xlBar 條形圖 xlLine 折線圖 xlArea 面積圖 xlPie 餅圖 xlColumn 柱狀圖 xlPyramid 棱錐圖
下面的示例代碼演示了如何設(shè)置圖表類型，使用了上圖工作表的數(shù)據(jù)，指定帶標記的折線圖。
Sub CreateChartSheet()Dim ch As Chart Set ch = ActiveWorkbook.Charts.Addch.SetSourceData Source:=Worksheets("Sheet1").Range("B3:F6"), PlotBy:=xlRowsch.ChartType = xlLineMarkersEnd Sub
生成的圖表如下圖所示。
控制圖表外觀
除了圖表的類型外，還有許多選項用來控制圖表看起來的樣子，其中一些選項僅僅為表現(xiàn)外觀，而另一些選項則表現(xiàn)圖表傳遞給查看者的信息。
1、顯示圖表標題
在圖表上方可以顯示圖表標題。下面列出的Chart對象的兩個屬性控制圖表標題：
- HasTitle屬性。True/False值，指定是否顯示標題。
- ChartTitle，控制標題的詳細信息。
要顯示圖表標題，必須設(shè)置ChartTitle對象的屬性并且設(shè)置HasTitle為True。下面的代碼在圖表中顯示標題“家電銷售量”：
ch.HasTitle = Truech.ChartTitle.Text = "家電銷售量"
其中，變量ch引用已經(jīng)存在的圖表。注意，在設(shè)置ChartTitle對象的任何屬性之前，必須將HasTitle屬性設(shè)置為True，否則，會發(fā)生錯誤。
本例中，簡單地設(shè)置圖表標題文本后，將采用默認的字體、位置等設(shè)置，可以使用下表列出的ChartTitle對象屬性來修改圖表標題的外觀。
屬性 說明 AutoScaleFont True/False，指定標題的字體尺寸是否隨圖表尺寸而自動改變。默認值為True。 HorizontalAlignment 指定標題的左-右對齊。設(shè)置為xlLeft、xlCenter(默認值)或xlRight Left 從標題的左邊緣到圖表區(qū)的左邊緣的距離，以磅為單位 Top 從標題的頂邊緣到圖表區(qū)的頂邊緣的距離，以磅為單位 Text 標題的文本。默認為空
2、圖表坐標軸文本
大多數(shù)Excel圖表都有兩個坐標題，餅圖除外。水平坐標軸是類別軸，垂直坐標軸是數(shù)值軸。默認情況下，坐標軸沒有標題，但可以添加標題。
以Chart對象的Axes集合的方式引用圖表的坐標軸。通過使用常量xlCategory和xlValue指定坐標軸。例如，代碼：
圖表對象.Axes(xlCategory)
引用圖表的類別坐標軸。而代碼：
圖表對象.Axes(xlValue)
引用數(shù)值坐標軸。
要對坐標軸添加標題，設(shè)置HasTitle屬性為True，然后使用AxisTitle.Text屬性來設(shè)置標題。例如，假設(shè)變量ch引用已存在的圖表：
ch.Axes(xlValue).HasTitle=Truech.Axes(xlValue).AxisTitle.Text="銷售量"
要移除坐標軸標題，只須設(shè)置HasTitle屬性為False。要修改已有的坐標軸標題，改變AxisTitle.Text屬性的值。
注意，通過設(shè)置HasTitle為False移除坐標軸標題，將徹底刪除標題，而不是簡單地隱藏標題。在試圖處理AxisTitle對象之前，確保設(shè)置HasTitle為True，否則會發(fā)生錯誤。
下面列出的程序改進了上文中的程序，不僅創(chuàng)建了圖表，而且也添加了圖表標題和坐標軸標題：
Sub CreateEmbeddedChartWithTitles()Dim co As ChartObjectDim ch As Chart Set co = Worksheets("Sheet1").ChartObjects.Add(50, 100, 250, 165)Set ch = co.Chartch.SetSourceData Source:=Worksheets("Sheet1").Range("B3:F6"), PlotBy:=xlRows'添加圖表標題 ch.HasTitle = Truech.ChartTitle.Text = "家電銷售量"'添加類別軸標題 ch.Axes(xlCategory).HasTitle = Truech.Axes(xlCategory).AxisTitle.Text = "期間"'添加數(shù)值軸標題 ch.Axes(xlValue).HasTitle = Truech.Axes(xlValue).AxisTitle.Text = "銷售量"End Sub
結(jié)果如下圖所示。
處理圖表中的字體
可以編寫VBA代碼來修改圖表中任何文本的字體。與特定項（圖表標題、坐標軸標題等）相關(guān)的Font對象控制文本外觀。圖表中的文本項和相關(guān)的Font對象如下表所示。
文本項 Font對象 圖表標題 Chart.ChartTitle.Font 類別坐標軸標題 Chart.Axes(xlCategory).AxisTitle.Font 數(shù)值坐標軸標題 Chart.Axes(xlValue).AxisTitle.Font 圖例文本 Chart.Legend.Font 類別坐標軸刻度標簽 Chart.Axes(xlCategory).TickLabels.Font 數(shù)值坐標軸刻度標簽 Chart.Axes(xlValue).TickLabels.Font
上表列出的所有對象都有AutoScaleFont屬性，默認值為True，表明當圖表尺寸改變時字體尺寸自動改變。因此，設(shè)置字體尺寸僅僅設(shè)置了當時相對于圖表尺寸的初始字體尺寸，如果圖表本身調(diào)整的話，實際字體尺寸也變化。
下面的代碼修改圖表標題為14磅Arial類型的粗體。
With 圖表對象.ChartTitle.Font.Name="Arial".Bold=True.Size=14End With
下面的代碼將圖表圖例文本修改為10磅、紅色的Times New Roman字體。
With 圖表對象.Legend.Font.Name="Times New Roman".Color=RGB(255,0,0).Size=10End With
下表列出了Font對象通常使用的屬性。
屬性 說明 Bold True/False，指定字體是否為粗體。 Color 字體的顏色，一個RGB值。 Italic True/False，指定字體是否為斜體。 Name 字體的名字。
下面的代碼對上文中的示例作了進一步的改進，修改了字體以獲得更好的外觀。
Sub CreateEmbeddedChart()Dim co As ChartObjectDim ch As Chart Set co = Worksheets("Sheet1").ChartObjects.Add(50, 100, 250, 165)Set ch = co.Chartch.SetSourceData Source:=Worksheets("Sheet1").Range("B3:F6"), PlotBy:=xlRows '添加圖表標題 ch.HasTitle = Truech.ChartTitle.Text = "家電銷售量"'修改字體 With ch.ChartTitle.Font.Name = "Arial".Size = 14.Color = RGB(0, 0, 255)End With '添加類別坐標軸標題并設(shè)置其字體. '同時修改刻度標簽. With ch.Axes(xlCategory).HasTitle = True.AxisTitle.Text = "期間".AxisTitle.Font.Name = "Arial".AxisTitle.Font.Size = 10.TickLabels.Font.Name = "Arial".TickLabels.Font.Size = 8End With '添加數(shù)值坐標軸標題并設(shè)置其字體. '同時修改刻度標簽的字體. With ch.Axes(xlValue).HasTitle = True.AxisTitle.Text = "銷售量".AxisTitle.Font.Name = "Arial".AxisTitle.Font.Size = 10.TickLabels.Font.Name = "Arial".TickLabels.Font.Size = 8End With '修改圖例字體 With ch.Legend.Font.Name = "Arial".Size = 10.Color = RGB(255, 0, 0)End WithEnd Sub
結(jié)果如下圖所示。
ChartWizard方法
如果你在Excel中創(chuàng)建過圖表，那么可能使用過圖表向?qū)?。在?jīng)過一系列的對話框選擇后，創(chuàng)建圖表。這對應于VBA中的ChartWizard方法。ChartWizard方法指定圖表數(shù)據(jù)、圖表類型、以及圖表的外觀。有時，使用該方法比每次分別設(shè)置Chart對象的單個屬性更容易。ChartWizard方法的語法如下：
圖表對象.ChartWizard(Source,Gallery,Format,PlotBy, _CategoryLabels,SeriesLabels,HasLegend,Title,CategoryTitle,ValueTitle,ExtraTitle)
其中，參數(shù)Source指定繪制圖表的數(shù)據(jù)區(qū)域，Range對象。
參數(shù)Gallery是一個xlChartType常量，指定圖表的類型：xlArea、xlBar、xlColumn、xlLine、xlPie、xlRadar、xlXYScatter、xlCombination、xl3DArea、xl3DBar、xl3DColumn、xl3DLine、xl3DPie、xl3DSurface、xlDoughnut、xlDefaultAutoFormat。
參數(shù)Format是一個1-n范圍的數(shù)字值，指定內(nèi)置的自動格式或者圖表子類型。自動格式的類型和數(shù)值，n的最大值取決于參數(shù)Gallery。
參數(shù)PlotBy，取值為xlRows(默認值)或者xlColumns，指定數(shù)據(jù)系列是行還是列。
參數(shù)CategoryLabels，包含分類標簽的列數(shù)（如果PlotBy=xlRows）或者行數(shù)（如果PlotBy=xlColumns）。
參數(shù)SeriesLabels，包含數(shù)據(jù)系列標簽的行數(shù)（如果PlotBy=xlRows）或者列數(shù)（如果PlotBy=xlColumns）。
參數(shù)HasLegend，包括圖例時值為True，否則為False。默認值為True。
參數(shù)Title，圖表的標題文本。默認沒有標題。
參數(shù)CategoryTitle，分類坐標軸標題文本。默認沒有標題。
參數(shù)ValueTitle，數(shù)值坐標軸標題文本。默認沒有標題。
命名和引用圖表
- 在創(chuàng)建圖表工作表時，Excel自動為圖表命名，默認的名字是Chart1、Chart2，等等。同樣，嵌入式圖表也被賦予了名字，默認為圖表 1、圖表 2，等等，注意數(shù)字之前有一個空格。
- 通過給Name屬性賦新的名字，能夠重命名ChartObject對象。
- 使用Workbook對象的Charts屬性引用一個已存在的圖表工作表。Charts屬性返回一個集合，包含工作簿中每個圖表工作表，可以通過在集合中的位置來引用圖表工作表，但通過圖表工作表的名字來引用可能更好一些：
Charts(圖表工作表名稱)
例如，下面的代碼打印指定的圖表工作表：
Charts("銷售圖表").PrintOut - 要引用指定的嵌入式圖表，必須使用ChartObject對象。例如，下面的代碼刪除工作表Sheet1中指定的圖表：
Worksheets("Sheet1").ChartObjects("匯總圖").Delete
鎖定圖表
默認情況下，用戶可以修改Excel中的圖表，然而有時我們可能不想讓用戶對圖表作修改。這時，可以鎖定或保護圖表，使得不能修改圖表，但仍然能夠查看和打印圖表。
要鎖定和保護圖表，調(diào)用Chart對象的Protect方法：
圖表對象.Protect(password)
其中，參數(shù)password可選，用于指定保護密碼。
下面的代碼取消對圖表的保護：
圖表對象.UnProtect(password)
ChartObject對象
ChartObject對象代表嵌入式圖表，除圖表本身的特性外，還控制著圖表的位置和大小。下表列出了ChartObject對象的屬性和方法。
屬性 說明 BottomRightCell 返回Range對象，引用圖表右下角的工作表單元格。只讀 Chart 返回對包含的圖表的引用 Height 圖表的高度，以磅為單位 Left 圖表左側(cè)相對于工作表左邊緣的位置，以磅為單位 Placement 指定ChartObject如何粘附于其下方的工作表單元格。允許設(shè)置值為xlMoveAndSize、xlMove、xlFreeFloating PrintObject 如果為True(默認)，那么在打印工作表時打印圖表。如果為False，則不打印圖表 Top 圖表頂部相對于工作表頂部的位置，以磅為單位 TopLeftCell 返回Range對象，引用圖表左上角的工作表單元格。只讀 Visible True/False，指定圖表是否可見 Width 圖表的寬度，以磅為單位
方法 說明 BringToFront 在所有重疊的圖表上方顯示圖表 Copy 將ChartObject復制到Windows剪貼板 CopyPicture 復制圖表的圖像到Windows剪貼板 Cut 將ChartObject剪切到Windows剪貼板 Delete 刪除ChartObject SendToBack 在所有重疊的圖表后面顯示圖表
當添加或刪除嵌入式圖表下方區(qū)域的單元格時，Placement屬性起作用。例如，假設(shè)圖表跨列B至列F，在該區(qū)域插入兩個新列，此時的結(jié)果取決于Placement屬性的設(shè)置：
- xlMoveAndSize。圖表的大小和位置改變以適應添加或刪除的行/列。
- xlMove。圖表的位置改變以適應添加或刪除的行/列，但大小保持不變。
- xlFreeFloating。大小和位置都不會發(fā)生改變。
下面的示例程序演示了ChartObject的一些屬性和方法。程序遍歷當前工作簿中的所有工作表，將所有嵌入式圖表復制到新工作表中，并且程序指定了新工作表的名字以及所復制的圖表的大小。
- 使用Worksheets.Add方法在工作簿中添加新工作表。
- 設(shè)置新工作表的Name屬性。
- 遍歷工作簿的Worksheets集合。
- 檢查每個工作表的Name屬性，以避免處理新工作表。
- 遍歷每個工作表的ChartObjects集合。
- 使用Copy方法復制每個ChartObject到剪貼板。
- 使用Worksheet.Paste方法將ChartObject粘貼到新工作表中。
示例程序清單如下：
Sub CopyEmbeddedChartsToNewSheet(name As String, width As Integer, height As Integer)'復制當前工作簿中所有嵌入式圖表到指定名稱的新工作表 '復制的圖表指定了寬度和高度并且在單列中排列'圖表之間的垂直距離 Const SPACE_BETWEEN_CHARTS = 20 Dim newWS As WorksheetDim oldWS As WorksheetDim co As ChartObjectDim yPos As IntegerDim count As Integer '關(guān)閉屏幕更新,避免在復制圖表時屏幕閃爍 Application.ScreenUpdating = False '添加和命名新工作表 Set newWS = Worksheets.AddnewWS.name = name For Each oldWS In Worksheets'不要從新工作表中復制 If oldWS.name <> name Then'遍歷該工作表中的ChartObjects For Each co In oldWS.ChartObjects'復制到剪貼板 co.CopynewWS.Range("A1").Select'粘貼到新工作表 newWS.PasteNextEnd IfNext '圖表的位置和大小 count = 0For Each co In newWS.ChartObjectsco.width = widthco.height = height'距工作表左邊緣的距離 co.Left = 30'距工作表頂部的距離 co.Top = count * (height + SPACE_BETWEEN_CHARTS) + SPACE_BETWEEN_CHARTScount = count + 1Next '打開屏幕更新 Application.ScreenUpdating = TrueEnd Sub Sub TestCopyEmbeddedCharts()CopyEmbeddedChartsToNewSheet "所有圖表", 240, 140End Sub
在程序代碼中，每次粘貼操作之前為什么要選擇新工作表中的單元格A1，這是因為當粘貼圖表到工作表中時，會選擇所粘貼的圖表。此時，當試圖粘貼下一圖表時，Excel會認為要將其粘貼到所選擇的圖表中，這會導致錯誤。
由于CopyEmbeddedChartsToNewSheet過程包含參數(shù)，因此不能直接調(diào)用該過程，必須從另一過程調(diào)用。
程序運行后的結(jié)果如下圖所示。
使用散點圖
散點圖，又稱作XY圖，不同于Excel中的其他類型的圖表。大多數(shù)圖表根據(jù)分類繪制數(shù)值，而散點圖繪制值對，水平軸和垂直軸都是值。很多情形都適合于用散點圖來表現(xiàn)。
散點圖中的每一點都有X值和Y值，X值決定點的水平位置，Y值決定點的垂直位置。
散點圖的數(shù)據(jù)組織與其他圖表類型的數(shù)據(jù)類似，不同點在于分類標簽被X值取代。下圖所示的工作表中為準備繪制散點圖的數(shù)據(jù)，第1列包含的是X值，另外2列包含的是Y值。
創(chuàng)建散點圖的VBA代碼不同于創(chuàng)建其他類型的圖表，必須指定源數(shù)據(jù)區(qū)域和圖表類型，也可以應用可選的格式諸如圖表和坐標軸標簽。下面是基于上圖所示的數(shù)據(jù)創(chuàng)建的嵌入式散點圖的VBA代碼：
Sub CreateScatterChart()Dim co As ChartObjectDim ch As ChartSet co = Worksheets("Sheet2").ChartObjects.Add(50, 200, 250, 165)Set ch = co.Chartch.SetSourceData Source:=Worksheets("Sheet2").Range("B3:D9"), PlotBy:=xlColumnsch.ChartType = xlXYScatterLines '添加圖表標題 ch.HasTitle = Truech.ChartTitle.Text = Worksheets("Sheet2").Range("A1").Value '添加分類軸標題 With ch.Axes(xlCategory).HasTitle = True.AxisTitle.Text = "相對人數(shù)"End With '添加數(shù)值軸標題 With ch.Axes(xlValue).HasTitle = True.AxisTitle.Text = "獲勝概率"End WithEnd Sub
結(jié)果如下圖所示。
1、散點圖的類型
Excel支持幾種類型的散點圖，如下表所示。
ChartType常量 說明 xlXYScatter 數(shù)據(jù)點作為標記，沒有線條 xlXYScatterLines 數(shù)據(jù)點作為標記，通過直線連接 xlXYScatterLinesNoMarkers 沒有標記，只是直線 xlXYScatterSmooth 數(shù)據(jù)點作為標記，通過平滑線條連接 xlXYScatterSmoothNoMarkers 沒有標記，通過平滑線條連接數(shù)據(jù)點
2、改變坐標軸區(qū)域
觀察上面繪制的散點圖，可能會注意到X軸的刻度不合適，其范圍從0到10而繪制的數(shù)據(jù)范圍從1到6，結(jié)果是圖表區(qū)的1/3是空的并且被浪費了，這是Excel的默認情形。下面，我們來改變這種情形。
Axis對象的MaximumScale屬性和MinimumScale屬性控制著坐標軸的最大值和最小值。例如，要設(shè)置圖表中數(shù)值軸（垂直軸）的比例值，可以編寫下面的代碼：
With 圖表對象.Axes("xlValue").MinimumScale=5.MaximumScale=20End With
對于上面的程序來說，只需修改水平坐標軸的最小值為1，代碼為：
ch.Axes(xlCategory).MinimumScale = 1
將這行代碼插入到設(shè)置ChartType屬性的代碼之后?，F(xiàn)在，運行程序后的結(jié)果如下圖。
注意，即便散點圖中的水平軸不是真正的分類坐標軸，仍然使用xlCategory常量來引用。并且，人工設(shè)置坐標軸刻度時，如果最小值太大或者最大值太小，將不會繪制一些數(shù)據(jù)。
打印圖表
可以使用PrintOut方法來打印Excel圖表。
打印的內(nèi)容 調(diào)用 單個的嵌入式圖表或圖表工作表 與相應的Chart對象一致的PrintOut方法 工作表中所有的嵌入式圖表（與其他工作表內(nèi)容一起） Worksheet對象中的PrintOut方法 活動工作表中所有嵌入式圖表（與其他工作表內(nèi)容一起） ActiveSheet對象的PrintOut方法 工作簿中所有圖表工作表 工作簿的Charts集合的PrintOut方法
可能已經(jīng)注意到，沒有直接的方法用來打印工作表中所有嵌入式圖表而不打印其他工作表內(nèi)容，然而可以使用簡短的VBA代碼來實現(xiàn)，如下所示。
Sub PrintAllEmbeddedChartsOnSheet(ws As Worksheet)'打印指定工作表中所有嵌入式圖表 Dim co As ChartObjectFor Each co In ws.ChartObjectsco.Chart.PrintOutNextEnd Sub Sub testPrintAllCharts()PrintAllEmbeddedChartsOnSheet ActiveSheetEnd Sub
上述過程接受一個工作表變量作為其參數(shù)，然后遍歷該工作表的ChartObjects集合，調(diào)用每個包含的圖表中的PrintOut方法。如果該工作表沒有包含嵌入式圖表，則不會發(fā)生什么。
注意，在打印工作表時，ChartObject的PrintObject屬性決定是否指定的嵌入式圖表與其他工作表內(nèi)容一起打印。
