excel餅圖如何嵌入（excel如何製作餅狀圖）

迷你圖是從Excel 2010開始的一種新增功能，它將縮小版圖形放置在指定單元格內。

因為迷你圖非常的緊湊，所以能夠讓視覺效果突出，且方式簡潔，是體現大型資料集的方式。

Excel自帶三種形式的圖表型別，包含折線圖、柱形圖、盈虧圖。

方法：選擇資料，點選插入，選擇需要展現的迷你圖。

這裡要分享的是一篇除上述三種型別之外的一種迷你圖，迷你餅圖。

操作方式與Excel自帶的操作方式類似。

效果上來說，餅圖太小，看不出什麼結果，但是這裡分享的是方法，可以舉一反三，改成其它型別的圖表，或者圖形等等。

重點！下一篇會分享如何通過滑鼠點選的方式實現迷你圖變大，再次點選恢復。

本篇的程式碼放置在TIHISWORKBOOK中。

程式碼共享如下：

Sub mini餅圖() Dim Rg, Rgrow As Range Dim cht As Chart Set Rg = Selection For i = 1 To Rg.Rows.Count     Set Rgrow = Rg.Rows(i)     Set pcl = Rgrow.Cells(1, 1).Offset(0, Rgrow.Columns.Count)     chtype = xlPie     Set cht = ActiveSheet.ChartObjects.Add(Left:=pcl.Left, Width:=pcl.Width, Top:=pcl.Top, Height:=pcl.Height).Chart     On Error Resume Next     With cht         .HasTitle = False         .HasLegend = False         .ChartType = chtype         .SetSourceData Source:=Rgrow         .ChartArea.Border.LineStyle = xlNone         .PlotArea.Border.LineStyle = xlNone         .ChartArea.Fill.Visible = False         .PlotArea.Fill.Visible = False         '設定繪圖區的位置和大小         .PlotArea.Left = 0         .PlotArea.Top = 0         .PlotArea.Width = .ChartArea.Width - 2         .PlotArea.Height = .ChartArea.Height - 2         .PlotArea.Left = 0         .PlotArea.Height = .ChartArea.Height - 2         '第一個點的顏色填充為紅色         .SeriesCollection(1).Points(1).Format.Fill.ForeColor.RGB = RGB(192, 0, 0)     End With Next i End Sub

歡迎點選關注，後續會有更多精彩內容！