从Excel图表中提取数据标签

专家介绍,

我试图从自动生成的Excel图表中提取数据标签。 我有一个体面的VBA经验,但不幸的是与图表很less。 从我的研究主题的理解有一种方法来遍历图表上的所有项目,以find那些有数据标签。

input: -Chart表单,例如“步骤0.2” – 用直线分配图表。

输出:从图表到单独表格的数据标签 – 位置,例如“主”

一个尝试:

Option Explicit 'Loop through chart to find data labels Sub FindDataLabels() 'Define worksheet and chart Dim mainPage As Worksheet Dim TestChart As chart Set mainPage = ActiveWorkbook.Sheets("Main") Set TestChart = Charts("Step 0.2") 'Extract data points from chart for analysis Dim line1 As SeriesCollection Set line1 = TestChart.SeriesCollection Dim dataPoints As Double dataPoints = line1.Count Debug.Print "datapoints: "; dataPoints Dim LabelsArray(2) As Integer Dim i As Integer For i = 1 To dataPoints If line1(i).HasDataLabels Then Debug.Print "data label: "; line1(i).DataLabels.Text End If Next i End Sub 

这是从Excel图表中提取数据标签值的代码

将值打印到即时窗口

 Dim datapoint As Point For Each datapoint In ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Points 'Extract data labels If datapoint.HasDataLabel Then Debug.Print datapoint.DataLabel.Text Next