Excel和Access之间的这些小VBA语言差异变得非常烦人。我正在最后一步(希望)让我的折线图看我是如何需要的,但是我无法获得仅在第一个标记上显示的数据标签。这是我到目前为止所拥有的。我已尝试在网上找到的所有内容,并且都得到相同的“错误438:对象不支持此属性或方法”
With Me.ChartSpace.Charts(0).SeriesCollection(0)
.Line.Color = sc1
.Line.Weight = 6
.marker.Size = 8
.marker.Style = 2
sName = .Name
csName = Right(sName, Len(sName) - 8)
.Caption = csName
.Points(1).DataLabel.Text = csName
End With
再次感谢您的帮助。
答案 0 :(得分:0)
你可以尝试这个..请在声明之前插入这些行
Me.ChartSpace.Charts(0).SeriesCollection(0).Points(1).DataLabel.Select
Selection.Format.TextFrame2.TextRange.Characters.Text = "Name"
如果问题仍然存在,请尝试将Me.ChartSpace.Charts(0)
更改为Sheets("SheetName").ChartObjects("ChartName")
并添加相应的SeriesCollection
号码