行番号を変数として保存してチャート内で参照する

Question

ユーザーが列上のセルを選択してグラフを生成し、その行のセル範囲内にグラフを生成するスプレッドシートを作成しています別のワークシートで。それはレポートを生成する前に

私はそれを後で参照できるように、私は、変数として行番号を保存します。

activerow = ActiveCell.Row 

私は、グラフのタイトルは、元のスプレッドシート上のセルを参照したいです。

ActiveChart.HasTitle = True 
Dim activecharttitle As String 
activecharttitle = INDIRECT(activerow&"7") 
ActiveChart.ChartTitle.Text = "='Sheet1'!activecharttitle" 

私は間違いを続けており、私は何が間違っているのか分かりません。誰かが私を喜ばせることができれば、それは大変に感謝しています。

はEDIT：私のコードの多くを追加：あなたはactiverowと列の「G」の範囲内のテキストを取得しようとしている

Dim activerow As String 
     activerow = ActiveCell.Row 
    Range(Cells(Selection.Row, 8), Cells(Selection.Row, 27)).Select 
    ActiveWorkbook.Charts.Add after:=Worksheets(Worksheets.Count) 
    ActiveChart.ChartType = xlLine 
    ActiveChart.SetSourceData Source:=Range(_ 
     "'Sheet1'!$H$7:$AA$7") 
    ActiveChart.SeriesCollection(1).XValues = _ 
     "='Sheet1'!$H$6:$AA$6" 
    ActiveChart.SeriesCollection(1).Values = _ 
     "='Sheet1'!$H$7:$AA$7" 

    ActiveChart.HasTitle = True 
    Dim activecharttitle As String 
    activecharttitle = INDIRECT("B"&activerow) 
    ActiveChart.ChartTitle.Text = "='Sheet1'!activecharttitle" 

Answer 1

activecharttitle = INDIRECT(activerow&"7")とした場合は、activecharttitle = Range("G" & activerow).Value2を使用する必要があります。

私はあなたが以下のようなコードの後に​​あると思う： `

ActiveChart.HasTitle = True 
Dim activecharttitle As String 

activecharttitle = Sheets("Sheet1").Range("G" & activerow).Value2 
ActiveChart.ChartTitle.Text = "=" & Sheets("Sheet1").Range("G" & activerow).Address(False, False, xlA1, xlExternal)