VBA 给散点图中的图标增加标签， 标签来源于可变区域

isdowen

大神求助：


代码一直报错


Sub Macro2()
   Dim rng As Range
   Dim myChart As ChartObject
   Dim mySeries As Series

   Set rng = Sheets("Project Info.").Range("E5:E6")
   ActiveSheet.ChartObjects("Format").Activate
   ActiveChart.FullSeriesCollection(1).HasDataLabels = True
   With ActiveChart.FullSeriesCollection(1).DataLabels
       .ShowValue = True
       .Text = rng.value
   
   End With
End Sub



此程序在.text=rng.value 报错为： object doesn`t support this property or method
这里面range("E5：E6")只是个示例，其区域会因为其他代码计算变化。

Datous

1. .DataLabels.Format.TextFrame2.TextRange.InsertChartField msoChartFieldRange, "=Project Info.!$E$5:$E$6", 0

复制代码

Datous

datalabels 没有 text 或者 value
录一下，使用单元格链接。

493861364

录制宏代码发现，红色的地址部分引用单元格，使用字符串即可



    ActiveChart.SeriesCollection(1).DataLabels.Format.TextFrame2.TextRange. _
        InsertChartField msoChartFieldRange, "=Sheet1!$A$2:$A$10", 0
    Selection.ShowRange = True