众所周知，excel软件为使用者提供了添加迷你图的功能（从Excel 2010开始的一种新增功能）。迷你图包含了折线图，柱状图和盈亏图。在前面的文章中我有介绍过相关内容，以及如何批量制作迷你饼图的方法代码。这里要分享的是如何制作仿迷你折线图并添加横坐标轴。
我们先看一下如何制作迷你折线图，操作如下动图所示：
但是如果我想显示正常的横坐标轴怎么办？经过一番资料查找，我发现excel本身自带的迷你图并不具备显示横坐标轴标签的功能，只能提供一条水平线。
然而为迷你折线图添加横坐标轴是我在工作中遇到的实际问题。因为我不仅想看到趋势，也想知道时间节点。
于是，在对制作迷你饼图的代码基础上稍加修改后，完美解决了我的工作需求。
Sub 迷你折线图()
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 = 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.Width
Next i
End Sub
iOS
Android
Windows
macOS