Я сталкиваюсь с
Ошибка времени выполнения '1004' - сбой метода 'Range' объекта'_Global '
Что я пытаюсь Совершенно sh Вот график, который будет динамическим c и может изменяться по мере ввода большего количества данных в электронную таблицу.
Sub HistoricalDemand()
Dim lRow As Integer
' Creates a line chart for the demand column
Range("E2:E" & lRow).Select
ActiveSheet.Shapes.AddChart2(332, xlLineMarkers).Select
ActiveChart.SetSourceData Source:=Range("E2:E")
ActiveChart.ChartTitle.Select
ActiveChart.ChartTitle.Text = "Historical Demand"
Selection.Format.TextFrame2.TextRange.Characters.Text = "Historical Demand"
With Selection.Format.TextFrame2.TextRange.Characters(1, 17).ParagraphFormat
.TextDirection = msoTextDirectionLeftToRight
.Alignment = msoAlignCenter
End With
ActiveChart.ChartArea.Select
lRow = wsData.Range("E" & wsData.Rows.Count).End(xlUp).Row
End Sub