VBA Excelgraphics添加时间到X轴

我正在绘制一个泵的趋势一天，我得到一个每分钟的样本数据

我得到的graphics都工作，但我遇到的问题是试图获得在X轴上的时间。 有一列显示每个采样数据的采集时间，但是当我尝试添加采样数据时，会为图表中的每个点放置时间。 因为我在图表中有1440个点，这只是一个无法读取的文本，我删除了代码，现在我没有。 但我想弄明白。

'Chart for Monday With wBM.ActiveSheet.ChartObjects.Add(Left:=300, Width:=300, Top:=10, Height:=300) .Chart.SetSourceData Source:=wBM.ActiveSheet.Range("B1:B1440"), PlotBy:=xlColumns .Chart.ChartType = xlLine .Left = rngChart2.Left .Top = rngChart2.Top .Width = rngChart2.Width .Height = rngChart2.Height .Chart.HasTitle = True .Chart.ChartTitle.Text = "Monday " & Monday .Chart.HasLegend = False End With 

这是我的代码到目前为止。 在D列有每个点的时间，所以它将是“D1：D1440”。 有没有办法每60分，或120只有一个标签？ 所以我没有这样一个标签？

Answer 1

从示例数据开始看起来像这样：

我运行这个macros来隐藏“位置”不是5的倍数的所有标签

 Sub formateDataLabels() Dim chrt As Chart Set chrt = ActiveChart Dim cnt As Long: cnt = 1 For Each lbl In chrt.SeriesCollection(1).DataLabels If cnt Mod 5 <> 0 Then lbl.Text = "" End If cnt = cnt + 1 Next lbl End Sub 

---

结果：

---

请注意，当前的代码只是设置为在选定的图表上运行。 将5改为任何你需要的值，例如50或100，并且适应你当前的图表。