修复损坏的工作簿 |
您所在的位置:网站首页 › 表格xlsm怎么打开 › 修复损坏的工作簿 |
复制下面的宏代码并将其粘贴到模块工作表: Sub GetChartValues() Dim NumberOfRows As Integer Dim X As Object Counter = 2 ' 计算数据的行数。 NumberOfRows = UBound(ActiveChart.SeriesCollection(1).Values) Worksheets("ChartData").Cells(1, 1) = "X Values" ' 将 x 轴值写入工作表。 With Worksheets("ChartData") .Range(.Cells(2, 1), _ .Cells(NumberOfRows + 1, 1)) = _ Application.Transpose(ActiveChart.SeriesCollection(1).XValues) End With ' 循环遍历图表中的所有系列,并将其值写入 ' 工作表。 For Each X In ActiveChart.SeriesCollection Worksheets("ChartData").Cells(1, Counter) = X.Name With Worksheets("ChartData") .Range(.Cells(2, Counter), _ .Cells(NumberOfRows + 1, Counter)) = _ Application.Transpose(X.Values) End With Counter = Counter + 1 Next End Sub 在工作簿中插入或删除工作表,右键单击其工作表标签,然后将其重命名为 ChartData。 选择您要从中提取基础数据值的图表。 注意: 图表可以嵌入在工作表中或嵌入在单独的图表工作表中。 运行宏。 图表中的数据将置于 ChartData 工作表中。 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |