文章图片
文章图片
迷你图是从Excel 2010开始的一种新增功能 , 它将缩小版图形放置在指定单元格内 。
因为迷你图非常的紧凑 , 所以能够让视觉效果突出 , 且方式简洁 , 是体现大型数据集的方式 。
Excel自带三种形式的图表类型 , 包含折线图、柱形图、盈亏图 。
方法:选择数据 , 点击插入 , 选择需要展现的迷你图 。
这里要分享的是一篇除上述三种类型之外的一种迷你图 , 迷你饼图 。
操作方式与Excel自带的操作方式类似 。
效果上来说 , 饼图太小 , 看不出什么结果 , 但是这里分享的是方法 , 可以举一反三 , 改成其它类型的图表 , 或者图形等等 。
重点!下一篇会分享如何通过鼠标点击的方式实现迷你图变大 , 再次点击恢复 。
本篇的代码放置在TIHISWORKBOOK中 。
代码共享如下:
【excel|Excel迷你图之如何插入mini饼图】Sub mini饼图()
Dim Rg Rgrow As Range
Dim cht As ChartSet
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
欢迎点击关注 , 后续会有更多精彩内容!
- 3g|这6个多条件函数都不掌握,还敢称Excel达人?
- 英特尔|Intel 12代迷你版首曝:2+8核心、功耗吓人!
- GPD|当年你diss迷你电脑那些神仙嗑儿,如今全得收回去?
- 太阳系|在太空中,能做出一个完全按比例缩小的迷你太阳系吗?
- excel|Excel技巧,根据条件快速筛选数据,你一定不会操作!
- excel|学会这8个变现方法、月薪轻松破万
- excel|快速提升办公效率,就必须掌握这6个办公技巧,不信你来试一试
- excel|手机拍出来糊成一团的渣图,如何用 Excel 拯救?
- interior|Excel按单元格颜色进行求和或计数
- 电子商务|藏在Excel里的百亿生意