Question

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

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

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

Answer 1

这是您要尝试的吗？

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

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

1 个答案: