excel - excel图表上缺少一些但不是所有数据标签
问题描述
我正在创建一个包含以下代码的气泡图。它使用所有预期数据正确创建图表......除了在某些情况下,标签只是没有显示。我已经对值进行了排序和添加,并检查了数据范围等等,但似乎没有任何理由可以显示某些标签而有些标签不显示。
我有一些屏幕截图,其中一个显示值是在范围内选择的,但没有显示,并且该数据点在范围内。很难获得所有屏幕截图,但第三个屏幕截图显示 Co4 缺失,即使这些值在数据标签属性中指向。
有解决此类问题的经验吗?
.DataLabels.Format.TextFrame2.TextRange.InsertChartField msoChartFieldRange, "='活动图表'!$P$18:$P$" & rgMap.Offset(-1, 0).Row, 0
解决方案
最后在我的电脑上用了几分钟。
这是我为 Excel 2013+ 调整的一段非常古老的代码。
按此顺序将数据放入四列:名称、X、Y 和 Z(气泡大小)。
以下代码使用此数据创建气泡图,忽略任何非数据行(标题行或 X、Y 或 Z 为空白的行)。它为每一行创建一个单独的系列,使用第一列作为单点系列的名称,然后应用带有系列名称和气泡大小的标签。
Sub OneRowPerBubbleSeries()
'' Takes 4-column range and constructs Bubble chart
'' Uses one series per row: Columns in order: Name, X, Y, Z
Dim wks As Worksheet
Dim cht As Chart
Dim srs As Series
Dim rng As Range
Dim rng1 As Range
Dim rownum As Integer
Dim bFirstRow As Boolean
Set wks = ActiveSheet
Set rng = Selection
Set cht = wks.Shapes.AddChart2(269, xlBubble3DEffect).Chart
bFirstRow = True
For rownum = 2 To rng.Rows.Count
Set rng1 = rng.Cells(rownum, 2).Resize(1, 3)
If IsNumeric(rng1.Cells(1, 1).Value) And _
IsNumeric(rng1.Cells(1, 2).Value) And _
IsNumeric(rng1.Cells(1, 3).Value) Then
'' First time: need to do it differently
If bFirstRow Then
cht.SetSourceData Source:=rng1, PlotBy:=xlColumns
bFirstRow = False
Else
Set srs = cht.SeriesCollection.NewSeries
End If
With cht.SeriesCollection(cht.SeriesCollection.Count)
.Values = rng1.Cells(1, 2)
.XValues = rng1.Cells(1, 1)
.BubbleSizes = "=" & rng1.Cells(1, 3).Address _
(ReferenceStyle:=xlR1C1, External:=True)
.Name = rng.Cells(rownum, 1)
.HasDataLabels = True
With .DataLabels
.Position = xlLabelPositionRight
.ShowSeriesName = True
.ShowValue = False
.ShowBubbleSize = True
.NumberFormat = "$#,##0"
End With
End With
End If
Next
End Sub
推荐阅读
- c# - 非静态字段、方法或属性“Transform.position”需要对象引用
- ios - 在 iOS 13 中获取 UIScrollView 的完整屏幕截图
- http - httpClient.get 调用返回 404 Not Found 错误
- forms - 如何避免计算属性中的意外副作用 - VueJS
- ggplot2 - 在 geom_text 中使用 bquote 后跟文本时的下标
- typescript - 按值从打字稿联合中选择元素
- html - 转换的 div 显示在另一个 div 的上方,而它应该始终位于下方(在 Safari 上)
- html - 如何强制 SVG 受容器元素的限制?
- ruby-on-rails - docker compose rails 6 example with mailcatcher 不起作用
- c# - 如何通过 COM 互操作将 VBA 变体数组数据类型传递给 C# 方法