Мобильная версия форумов
Открыть
 −8°C
завтра: −4°C
Погода в Перми
−8°C
утром−14°C
днем−9°C
завтра−4°C
Подробно
 66,70
+0.1615
Курс USD ЦБ РФна 16 февраля
66,7044
+0.1615
 75,25
+0.2021
Курс EUR ЦБ РФна 16 февраля
75,2492
+0.2021
  • Анонимный пользователь
    Вопрос про Visual Basic. Есть задача.
    Нужно сделать так чтобы на обыкновенной вордовской или экселевской таблице со столбцами на столбцах где содержаться цифры были построены линии с точечками по краям - например от 2 в первой стороке к 1 во воторой 0 в третьей 1в четверной и так далее. Короче получился график. Значения по которым должны проходить линии известны и находятся в файле екселя.
    Вопрос - Целесообразно и как можно написать макрос для автоматического построения этого графика в виде макроса на VB.
    Если у кого есть другие варианты решения задачи с удовольствием выслушаю

  • v.i.p.

    Сообщений: 13508

    Запускаем запись макроса в Экселе. Вставляем диаграмму, смотрим код:

    Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("B2:M2"), PlotBy:= _
    xlRows
    ActiveChart.SeriesCollection(1).XValues = "=Лист1!R1C2:R1C13"
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"
    With ActiveChart
    .HasTitle = False
    .Axes(xlCategory, xlPrimary).HasTitle = False
    .Axes(xlValue, xlPrimary).HasTitle = False
    End With

    Вроде всё просто и всё понятно. По аналогии можно написать код, делающий это автоматически для произвольного источника данных :спок:

Записей на странице:

Перейти в форум

Модератор: