Диаграмма VBA (относительная адресация)

[Malgreze_211]

Необходимо разработать макрос для построения графика функции, используя относительную адресацию.
Sub Макрос2()
'
' Макрос2 Макрос
'

'
Range("A1:A11,D1:D11").Select
Range("D1").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("Лист1!$A$1:$A$11;Лис т1!$D$1:$D$11")
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
End Sub

В зависимости от того, нажата кнопка "Относительные ссылки" или нет, при выполнении макроса сообщается об ошибке либо в первой, либо во второй, либо в третьей (ActiveSheet.Shapes.AddChart.Select ) строке. Как должна выглядеть программа для вставки графика в любом месте на рабочем листе, используя данные, записанные в A1:D11? Заранее благодарю за помощь.

[IgorGO]

Sub Макрос2()
Dim chrt
  Set chrt = ActiveSheet.Shapes.AddChart(xlColumnClustered)
  chrt.Chart.SeriesCollection.NewSeries
  chrt.Chart.SeriesCollection(1).Values = "=Лист1!$A$1:$A$11"
  chrt.Chart.SeriesCollection.NewSeries
  chrt.Chart.SeriesCollection(2).Values = "=Лист1!$D$1:$D$11"
End Sub

[Malgreze_211]

Большое спасибо, всё работает, но почему-то вместо точечного графика вставляется столбчатая диаграмма.

[IgorGO]

)

Sub AddChart()
Dim shpCrt
  Set shpCrt = ActiveSheet.Shapes.AddChart(xlXYScatterSmoothNoMarkers)
  shpCrt.Chart.SeriesCollection.NewSeries
  shpCrt.Chart.SeriesCollection(1).XValues = "=Лист1!$A$1:$A$11"
  shpCrt.Chart.SeriesCollection(1).Values = "=Лист1!$D$1:$D$11"
End Sub

[Malgreze_211]

Большое спасибо, Вы мне очень помогли. Интересно, где можно научиться этому искусству

[IgorGO]

по-больше практикуйтесь
и читайте техническую литературу

можно, конечно, перебирать всякие варианты пока не получится рабочий, но лучше - понимать с чем имеете дело и как заставить это работать

удачи!

[Malgreze_211]

Буду стараться