迷你圖是将一些excel表格數據作為一個簡單圖形來進行表示的一種方式。

是圖表的一種簡化版。

應用當中直觀地表達數據變化的一個很好的體現。

改變數據相應的圖表也會改變。

下面介紹一下迷你圖如何制作。

首先要明确一下迷你圖的結構，Sparkline代表單個迷你圖，SparklineGroup代表一組迷你圖，SparklingeGroups代表迷你圖組。

感覺有點亂，可以理解為逐級包含。SparklineGroups包含SparklineGroup，SparklineGroup包含Sparkline。

SparklineGroups方法：

Add 添加

Clear 清除選定的迷你圖

ClearGroups 清除選定迷你圖組

Group 組合選定的迷你圖

Ungroup 對選定迷你圖組中的迷你圖取消組合

SparklineGroup方法：

Delete 删除迷你圖組

Modify 設置迷你圖組的位置和源數據

ModifyDateRange 設置迷你圖組的日期範圍

ModifyLocation

ModifySourceData 設置代表迷你圖組源數據的區域

代碼

Private Sub CommandButton1_Click() Dim mySG As SparklineGroup Set 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 SparklineGroup Dim i As Integer, j As Integer Set 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---

觀迎關注、收藏

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!