В Excel 2016 я пытаюсь написать подпрограмму vba, которая берет лист, содержащий некоторые данные, и создает новый лист, который будет заполнен диаграммами, использующими данные в исходном листе.
Я записал несколько макросов и попытался использовать это для написания своего кода. До сих пор мне удавалось создавать диаграммы на одном листе с данными, расположенными друг над другом.
Я хотел бы, чтобы диаграммы заполняли отдельную страницу и чтобы они были каким-то образом разнесены, чтобы они не блокировали друг друга. Я считаю, что это будет включать в себя не использовать ActiveSheet, который обычно использует макро-рекордер.
Я разместил свой код ниже и был бы признателен за любую помощь.
Private Sub CommandButton2_Click()
'Measure A pair for A signal
Range("A:A,B:B,C:C,D:D,E:E").Select
Range("E1").Activate
ActiveSheet.Shapes.AddChart2(227, xlLine).Select
ActiveChart.SetSourceData Source:=Range( _
"TEST!$B:$B,TEST!$C:$C,TEST!$D:$D,TEST!$E:$E")
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveChart.FullSeriesCollection(1).XValues = "=TEST!$A2:$A1179"
'Measure B pair for A signal
Range("A:A,B:B,C:C,D:D,E:E").Select
Range("E1").Activate
ActiveSheet.Shapes.AddChart2(227, xlLine).Select
ActiveChart.SetSourceData Source:=Range( _
"TEST!$F:$F,TEST!$G:$G,TEST!$H:$H,TEST!$I:$I")
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveChart.FullSeriesCollection(1).XValues = "=TEST!$A2:$A1179"
End Sub
Лист с данными называется «ТЕСТ»
microsoft-excel
vba
charts
microsoft-excel-2016
Kyle Jones
источник
источник
Active
а такжеSelect
, Эта ссылка должен начать вас.Ответы:
Не уверен, будет ли это кому-нибудь полезно, но вот мой последний код, с которым я закончил:
Очевидно, что это, вероятно, не будет напрямую применимо к проектам других людей, но, надеюсь, его части могут быть полезны, поскольку код включает в себя открытие файлов и создание объектов для рабочих листов в этих файлах
источник