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