如何在图表标题/标题中进行引用?

时间:2019-08-08 09:15:17

标签: excel vba charts header title

我正在创建一个模板,该模板应从指定的单元格获取用户输入。用户将在脚本运行后指定此名称,因此应作为参考。但是,我似乎不起作用,如果我输入地址,它只会复制地址名称,而不会进行引用。

我试图建立直接连接,并在地址前加上“ =”和“ ='”。还尝试填写地址,但没有结果。

Dim Np As Integer 
Dim Nj As Integer 
Dim chtname As Variant

Nj = Range("C5").Value 
Np = Range("C6").Value

chtname = "Data!" & ActiveCell.Offset(-Np - 3, 1).Address

With ActiveSheet.ChartObjects.Add _ 
(Left:=500, Width:=400, Top:=75, Height:=150) 
.Chart.SetSourceData Source:=Sheets("Data").Range(ActiveCell.Offset(-Np - 3, 8 + Nj), ActiveCell.Offset(-2, 8 + Nj)) 
.Chart.ChartType = xlXYScatterLines 
.Chart.FullSeriesCollection(1).XValues = Sheets("Data").Range(ActiveCell.Offset(-1 - Np, 7), ActiveCell.Offset(-2, 7)) 
.Chart.FullSeriesCollection(1).Name = chtname 
.Chart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)

   End With

1 个答案:

答案 0 :(得分:0)

这是您要尝试的吗?

.Chart.HasTitle = True
.Chart.ChartTitle.Formula = "=" & chtname