Нарисуйте несколько таблиц в сюжете, используя vba в excel

Я начинающий кодер для Excel, как вы увидите. Я пытаюсь сделать линейные графики в excel, чтобы каждый график имел в себе несколько рядов.

Например, первый график должен быть помечен как «Напряжения», и он должен иметь данные под именами столбцов Напряжения во второй строке.

Количество графиков зависит от количества мониторов батарей, которые в этом случае у меня 4.

Мне очень жаль, я не знаю, как загрузить файл здесь. Но таблицы, содержащие данные, разделены 10 столбцами, поэтому они не находятся рядом друг с другом.

Sub test() Dim Chart1 As ChartObject Set Chart1 = Sheets("Sheet1").ChartObjects.Add(52, 0, 1000, 500) With Chart1.Chart .SetSourceData Source:=Sheets("Sheet1").Range("H3:H2502") .ChartWizard Title:="Voltage", HasLegend:=True, CategoryTitle:="Time (s)", ValueTitle:="Voltage", Gallery:=xlLineStacked '.Legend = "Battery 1" This does not work End With End Sub 

Как я могу управлять текстом легенды? Как добавить другой набор данных на этот график?

Большое вам спасибо за ваше время

.SeriesCollection (n) .name – это элемент легенды.

 Sub test() Dim Chart1 As ChartObject Dim Cht As Chart Dim n As Integer Set Chart1 = Sheets("Sheet1").ChartObjects.Add(52, 0, 1000, 500) Set Cht = Chart1.Chart With Cht .HasTitle = True .ChartType = xlLineStacked .Legend.Position = xlLegendPositionRight With .ChartTitle .Characters.Text = "Voltage" .Characters.Font.Size = 12 End With .SeriesCollection.NewSeries 'Add series n = n + 1 With .SeriesCollection(n) .Name = "Battery 1" .XValues = Range("a1:f1") .Values = Range("a2:f2") End With .SeriesCollection.NewSeries 'Add series n = n + 1 With .SeriesCollection(n) .Name = "Battery 2" .XValues = Range("a1:f1") .Values = Range("a3:f3") End With .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Votage" .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Time (s)" End With End Sub 
  • Вертикальная ось на экране Excel выходит за пределы, где она должна быть?
  • Файл Nodejs Excel с графиком и модулем VB
  • создать график рассеяния с несколькими значениями оси Y для каждого значения оси x
  • Как построить граф текстовых данных из файла Excel в виде оси x?
  • Как написать выход Fortran в виде файла CSV?
  • Рассеянный график даты и числового значения в vba
  • Нарисуйте фигуру пирога внутри каждого пузыря диаграммы пузыря, используя Excel?
  • Java API для графического отображения
  • Массив листа / диапазона для циклического преобразования графиков
  • Первичная и вторичная оси VBA
  • Ошибки на радаре?
  • Interesting Posts

    Поиск последней строки, когда данные пропускают пустой и не включают данные после пустых

    Как сохранить несколько итераций переменной в Excel

    MS Excel: как я могу сделать Max () более эффективным?

    excel условное форматирование для минимальных осадков

    Excel 2013 найдет функцию для чисел

    Nunit 3.0 Beta 4; Тестовые случаи не обнаруживаются с использованием TestCaseSource

    используйте кнопку на userform, чтобы получить переменную и продолжить с помощью sub

    VBA: управление 2-мерными массивами

    Тип свойств VBA

    Пропустить нижний колонтитул страницы на некоторых страницах в Excel

    SQL Query, как получить все элементы из одного списка и только похожие из другой таблицы

    MySQL рассчитывает следующий рабочий день, учитывая количество дней, включая праздники (Excel's WORKDAY)

    C # / VBS Automate Создание проекта команды в TFS 2015 Обновление 3

    Когда использовать Set в моем коде VBA?

    Отключить расширенный фильтр в Excel 2013

    Давайте будем гением компьютера.