Создание линейной диаграммы для каждой строки с использованием VBA excel (динамическая строка, столбец)
Буду признателен, если кто-то может помочь мне с этим кодом
- У меня есть динамические строки и столбцы, код находит количество строк и столбцов, используя LastRow и LastColumn. Я должен построить линейную диаграмму для каждой строки (сохраняя фиксированный номер для найденного номера) и поместить его на лист 2. Я создал гибридный код с записью и циклом (так как я новичок в кодировании). Таблица листов Excel, которую я должен построить, приведена ниже (и она может быть динамической как в строках, так и в столбцах. Ячейка, Счетчик и т. Д. Являются заголовками, Первая строка - это A, Nbr и т. Д.). Пожалуйста помоги
Счетчик ячеек 0:45 1:00 1:15 1:30 1:45 2:00 2:15 2:30
A Nbr 10 54 45 0 0 0 0 0
Dim i As Long
Dim LastRow As Long
Dim LastColumn As Long
Dim cht As Chart
LastRow = Range("A65536").End(xlUp).row
LastColumn = Range("A1").End(xlToRight).Column
For i = 2 To LastRow
Dim location As String
Range("$A$i:$LastColumn").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Range("Sheet1!$A$i:$LastColumn")
With ActiveChart.Parent
.Height = 225 ' resize
.Width = 500 ' resize
ActiveChart.ChartArea.Copy
Sheets("Sheet2").Select
ActiveSheet.Pictures.Paste.Select
Sheets("Sheet1").Select
Application.Run ("DeleteEmbeddedCharts")
End With
Next i
End Sub