精品香蕉久久久午夜福,亚洲欧美日韩一区二区三区在线 ,国产av成人一区二区三区宅男噜

Excel 工作表最終有一個目的，那就是統(tǒng)計各類數(shù)據(jù)，以給出一些量化指標，以此來做出一些關鍵性決策。
大多時候，數(shù)據(jù)顯示，并不是十分直觀，而圖表就顯示十分醒目了。所以，圖表是對各類數(shù)據(jù)可視化的一個表現(xiàn)形式。

本節(jié)介紹一下，關于數(shù)據(jù)圖形化的一些操作方法和思路。
我們利用一個真實示例來進行演示，以達到最佳的學習效果。
下圖為某表的統(tǒng)計結果，以窗體形式顯示出來，這并不是主要目的。
最終的結果是將這些數(shù)據(jù)生成圖形。

如下圖所示，就是生成圖表的一個內容。
根據(jù)不同的統(tǒng)計方法，生成不同的圖表，以達到一個明顯的柱狀趨勢，當然了，也可以修改某些參數(shù)來實現(xiàn)圖形的變化。
重點是如何實現(xiàn)這個生成過程。
我人利用了 VBA 代碼來進行實現(xiàn) 。
其實現(xiàn)過程看如下代碼：
For Each pObj In P.ShapesIf pObj.Type = 3 ThenSelect Case pObj.NameCase pArr(0)ir = 14pObj.Chart.SetSourceData Source:=S.Range("B2:B14")pObj.Chart.ChartTitle.Text = S.Range("A2").ValueCase pArr(1)ir = S.Range("E65535").End(xlUp).RowIf ir <= 2 Then ir = 3pObj.Chart.SetSourceData Source:=S.Range("F2:F" & ir) '設置數(shù)據(jù)區(qū)域With pObj.Chart.HasTitle = True.ChartTitle.Text = S.Range("E2").ValuepObj.Chart.Axes(xlValue).CategoryNames = S.Range("E3:E" & ir) '設置坐標軸名稱End WithCase pArr(2)ir = S.Range("M65535").End(xlUp).RowIf ir <= 2 Then ir = 3pObj.Chart.SetSourceData Source:=S.Range("N2:N" & ir)With pObj.Chart.HasTitle = True.ChartTitle.Text = S.Range("M2").Value'pObj.Chart.Axes(xlSeriesAxis).CategoryNames = S.Range("M3:M" & ir)End WithCase pArr(3)ir = S.Range("I65535").End(xlUp).RowIf ir <= 2 Then ir = 3pObj.Chart.SetSourceData Source:=S.Range("J2:J" & ir)With pObj.Chart.HasTitle = True.ChartTitle.Text = S.Range("I2").ValuepObj.Chart.Axes(xlValue).CategoryNames = S.Range("I3:I" & ir)End WithEnd Select'導出圖片pObj.Chart.Export Filename:=ThisWorkbook.Path & "\" & pObj.Name & ".jpg", filtername:="jpg"End IfNext pObj

首先對工作表進行遍歷，找到所有 Shape 對象，篩選出圖表對象，然后再對圖表進行一些設置。
本示例中的圖表要手動制作完成，具體方法省略。
重點代碼：
pObj.Chart.SetSourceData Source:=S.Range("F2:F" & ir) '設置數(shù)據(jù)區(qū)域.ChartTitle.Text = S.Range("M2").Value'設置圖表標題名稱 pObj.Chart.Axes(xlSeriesAxis).CategoryNames = S.Range("M3:M" & ir)'設置 X 坐標軸名稱'導出圖片 pObj.Chart.Export Filename:=ThisWorkbook.Path & "\" & pObj.Name & ".jpg" _, filtername:="jpg" 上述代碼實現(xiàn)對圖表進行設置之后，然后導出為一個 JPG 文件，也就是導出一張圖片，再將圖片引入窗體 Image 控件中。
For Each xP In pArrSet pObj = Me.Controls.Add("Forms.Image.1", xP)'新建圖片控件With pObj.Width = 450.Height = 220If pi < 2 Then.Left = pi * (.Width + 20) + 50.Top = Me.Label1.Top + Me.Label1.Height + 10Else.Left = (pi - 2) * (.Width + 20) + 50.Top = Me.Label1.Top + Me.Label1.Height + .Height + 20End If‘設置圖片.Picture = LoadPicture(ThisWorkbook.Path & "\" & xP & ".jpg").PictureSizeMode = 1End Withpi = pi + 1Next xP