堆积柱形图从“价值”“系列名称”

Question

我想改变从“价值”“系列名称”堆积柱形图上的数据标签上VBA更改数据标签。

我想编辑图表：

我也搜索了最好的，我可以在互联网的唯一途径上，我认为这是可以做到的使用VBA。我仍然是一个VBA小白所以任何帮助，将不胜感激

Answer 1

去到Excel中，我选择图表我想编辑，然后转到图表工具选择的所有标签>添加图表元素>数据标签>更多数据标签选项

接下来，我取消我不希望在我的标签任何选项，并检查这些我确实想，在我刚打开的对话框中的“标签选项”。

这对我来说工作正常，但如果它不适合你，或者你的一些其他原因想要编辑通过VBA标签，这个脚本片段设置一个给定的图表的标签系列名称：

Option Explicit 

Sub Macro1() 
    With ThisWorkbook.Worksheets("Grafar, utvikling").ChartObjects("Graf3").Chart.FullSeriesCollection(2) 
    If Not .HasDataLabels Then 
     .ApplyDataLabels 
    End If 
    If Not .DataLabels.ShowSeriesName Then 
     .DataLabels.ShowSeriesName = True 
    End If 
    End With 
End Sub 

显然你需要切换worksheetnames，图名等任何你有你的图表中 - 它不应该是很难搞清楚，但是，如果您有任何麻烦感觉如果您有任何问题，请自由评论这个问题。

我通过使用宏录制，然后编辑结果创建的宏，它往往可以给你试图做什么任务一个很好的起点。根据我的经验，通过这种方式可以更容易地找出Excel-VBA中的对象名称/结构，而不是试图从头开始。

考虑到上述情况，你想要的东西没有做，我怀疑你的图表中的每个列是一个系列。要快速显示SeriesName图表中的每个dataseries，尝试在图表中遍历所有系列：

Sub Macro1() 
    Dim se As Series 

    For Each se In ThisWorkbook.Worksheets("Grafar, utvikling").ChartObjects("Graf3").Chart.SeriesCollection 
    If Not se.HasDataLabels Then 
     se.ApplyDataLabels 
    End If 
    If Not se.DataLabels.ShowSeriesName Then 
     se.DataLabels.ShowSeriesName = True 
    End If 
    If se.DataLabels.ShowValue Then 
     se.DataLabels.ShowValue = False 
    End If 
    Next se 

End Sub