使用 vba 在堆积柱形图上显示数据值

Question

我有一个数据表，其中图表的第 15 行有月份，“B17:B25”的“B”列中有各种公司名称。示例表如下图所示

现在我编写了一个代码，它将捕获这些值并输出一个堆积柱形图，如下所示：

这是我写的代码：

Sub getchart()
y = Format(Now, "ww")

    Dim ws As Worksheet
    Dim aCell As Range, Rng As Range, bCell As Range, sRng As Range, fRng As Range
    Dim col As Long, lRow As Long, srow As Long
    Dim colName As String
    Dim wsTemp As Worksheet
    Dim oChrt As ChartObject
    Dim sheetname As String

    '~~> Change this to the relevant sheet
    Set ws = ThisWorkbook.Sheets("Calculation")
    With ws
        Set aCell = .Range("D16:BC16").Find(What:=y, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
        Set bCell = .Range("B:B").Find(What:="Total no of Consultants", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
        '~~> If Found
        If Not aCell Is Nothing Then
            col = aCell.Column
            colName = Split(.Cells(, col).Address, "$")(1)
        Else
            MsgBox "Nov Not Found"
        End If
        If Not bCell Is Nothing Then
            srow = bCell.Row
            x = srow - 1
        Else
            MsgBox "Nov Not Found"
        End If
     Set sRng = .Range(colName & "17:" & colName & x)
     Debug.Print sRng.Address
     Set fRng = .Range("B" & "17:" & "B" & x)
     Debug.Print fRng.Address
    End With
    '~~> Set the sheet where you have the charts data
     ActiveWorkbook.Worksheets("Calculation").Activate
    '~~> This is your charts range
    Set Rng = Range("D17:G25")

    '~~> Delete the temp sheeet if it is there
    Application.DisplayAlerts = False
    On Error Resume Next
    ThisWorkbook.Sheets("TempOutput").Delete
    On Error GoTo 0
    Application.DisplayAlerts = True

    '~~> Add a new temp sheet
    Set wsTemp = ThisWorkbook.Sheets.Add

    With wsTemp
        '~~> Give it a name so that we can delete it as shown above
        '~~> This is just a precaution in case `wsTemp.Delete` fails below
        .Name = "TempOutput"

        '~~~> Add the chart
        Set oChrt = .ChartObjects.Add _
            (Left:=5, Width:=650, Top:=20, Height:=350)

        '~~> Set the chart's source data and type
        '~~> Change as applicable
        With oChrt.Chart
            .SetSourceData Source:=Rng
            .ChartType = xlColumnStacked
            .HasTitle = True
            '.Legend.LegendEntries (fRng)
            .HasLegend = True
            .ChartTitle.Text = "Total # Consultants and Spread"
           ' .SeriesCollection(1).DataLabels.ShowValues = True

       For intSeries = 1 To .SeriesCollection.Count
        .SeriesCollection(intSeries).Name = fRng.Cells(intSeries, 1)
        Next

        End With
    End With



End Sub

现在我想要的是在堆积柱形图的列中显示每个条形的数据值。那么如何编写一个 vba 代码来显示数据值。

请帮帮我

Answer 1

您可以轻松录制宏、选择系列并向系列添加数据标签。这将为您提供所需的代码，您可以根据需要对其进行调整。

当堆积的列数据点太小而无法实际显示数据标签时，就会出现真正的问题。在堆积柱形图中，数据标签只能显示在数据点内部（即表示数据的彩色矩形）。

在您开始自动创建数据标签之前，请复制您的文件并手动添加数据标签。然后仔细看看用户体验：在非常狭窄的数据点上带有数据标签的图表是什么样的？查看您的屏幕截图，如果您在 X 位置 1、5 和 6 的列中添加数据标签 - 看起来如何？

你会发现答案是：不漂亮。 - 根据您的屏幕截图，您甚至没有绘制表格中的所有数据。

因此，您真的很想回到绘图板并计划更好的数据可视化。因为你现在的图表不能很好地沟通。

如果您想了解一流的数据可视化，请阅读任何Stephen Few 书籍。如果您想在 Excel 中应用好数据的原则，请查看Jon Peltier's site，其中详细解释了可以使用 Excel 图表完成的任何事情。

这不是您想听到的答案，但坦率地说，我不知道如何将数据标签添加到列中的这些微小数据点，并使图表的读者易于理解。