excel|仿制迷你折线图,增加横坐标轴功能

excel|仿制迷你折线图,增加横坐标轴功能

文章图片

excel|仿制迷你折线图,增加横坐标轴功能


众所周知 , excel软件为使用者提供了添加迷你图的功能(从Excel 2010开始的一种新增功能) 。 迷你图包含了折线图 , 柱状图和盈亏图 。

在前面的文章中我有介绍过相关内容 , 以及如何批量制作迷你饼图的方法代码 。
这里要分享的是如何制作仿迷你折线图并添加横坐标轴 。 我们先看一下如何制作迷你折线图 。

但是如果我想显示正常的横坐标轴怎么办?经过一番资料查找 , 我发现excel本身自带的迷你图并不具备显示横坐标轴标签的功能 , 只能提供一条水平线 。
然而为迷你折线图添加横坐标轴是我在工作中遇到的实际问题 。 因为我不仅想看到趋势 , 也想知道时间节点 。

于是 , 在对制作迷你饼图的代码基础上稍加修改后 , 完美解决了我的工作需求 。

Sub 迷你折线图()Dim Rg Rgrow As RangeDim cht As ChartSet Rg = SelectionFor i = 1 To Rg.Rows.Count    Set Rgrow = Rg.Rows(i)    Set pcl = Rgrow.Cells(1 1).Offset(0 Rgrow.Columns.Count)    chtype = xlLineMarkers    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        .SetElement (msoElementPrimaryValueGridLinesNone)        .SetElement (msoElementPrimaryValueAxisNone)    End With    cht.Axes(xlCategory).Select    ActiveChart.FullSeriesCollection(1).XValues = \"=Sheet2!$b$1:$g$1\" '横坐标轴标签内容位置    ActiveChart.Axes(xlCategory).TickLabels.Font.Size = 8 '横坐标轴标签字体大小    cht.PlotArea.Select    Selection.Top = 0    Selection.Height = pcl.Height    Selection.Left = 0    Selection.Width = pcl.WidthNext iEnd Sub


【excel|仿制迷你折线图,增加横坐标轴功能】