No.1
迷你圖是將一些excel表格數據作為一個簡單圖形來進行表示的一種方式。
是圖表的一種簡化版。
應用當中直觀地表達數據變化的一個很好的體現。
改變數據相應的圖表也會改變。
下面介紹一下迷你圖如何製作。
No.2
首先要明確一下迷你圖的結構,Sparkline代表單個迷你圖,SparklineGroup代表一組迷你圖,SparklingeGroups代表迷你圖組。
感覺有點亂,可以理解為逐級包含。SparklineGroups包含SparklineGroup,SparklineGroup包含Sparkline。
SparklineGroups方法:
Add 添加Clear 清除選定的迷你圖ClearGroups 清除選定迷你圖組Group 組合選定的迷你圖Ungroup 對選定迷你圖組中的迷你圖取消組合
No.3
SparklineGroup方法:
Delete 刪除迷你圖組Modify 設置迷你圖組的位置和源數據ModifyDateRange 設置迷你圖組的日期範圍ModifyLocationModifySourceData 設置代表迷你圖組源數據的區域
No.4
代碼
Private Sub CommandButton1_Click()Dim mySG As SparklineGroupSet mySG = Range("A2:A5").SparklineGroups.Add(Type:=xlSparkColumn, SourceData:="A2:A5") '柱形Range("A8:A11").SparklineGroups.Add Type:=xlSparkLine, SourceData:="A2:A5" '拆線Range("A14:A17").SparklineGroups.Add Type:=xlSparkColumnStacked100, SourceData:="A2:A5" '盈虧圖End Sub
上面代碼為新建迷你圖組,分別有三種形式,柱形圖、拆線圖和盈虧圖。
其類型代碼為:xlSparkColumn、xlSparkLine、xlSparkColumnStacked100
參數:SourceData代表了迷你圖的區域。
Excel就是這麼傻瓜,按照它既定的符號進行編碼就完全正確了,並不用多麼努力思考。
這就是計算機和人類大腦的區別,我們怎麼想,電腦並不知道,而電腦要由我們這個大腦來操控。
定義數據區域過程
Sub SparkAnimation()Dim oSparkGroup As SparklineGroupDim i As Integer, j As IntegerSet oSparkGroup = ActiveSheet.Range("A2").SparklineGroups(1)oSparkGroup.ModifySourceData "B2:M5"Set oSparkGroup = ActiveSheet.Range("A8").SparklineGroups(1)oSparkGroup.ModifySourceData "B2:M5"Set oSparkGroup = ActiveSheet.Range("A14").SparklineGroups(1)oSparkGroup.ModifySourceData "B2:M5"End Sub
這個過程就是定義這個迷你圖組的數據區域,以便將這些區域內的數據,變成圖形顯示到上面定義的迷你圖當中。
用ModifySourceData方法來實現數據區域定義。
簡單點就是這些區域裡的數據將以圖形方式顯示到迷你圖定義區域裡。
這裡有兩個區域一個是迷你圖區域,一個是迷你圖的數據區域,不要亂了。
---END---
觀迎關注、收藏