1. 首頁 > 生活百科 > 科技 > >

excel|仿制迷你折線圖，增加橫坐標軸功能

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|仿制迷你折線圖，增加橫坐標軸功能】

    相關經驗推薦