Помогите плиз
1110
1
Вопрос про Visual Basic. Есть задача.
Нужно сделать так чтобы на обыкновенной вордовской или экселевской таблице со столбцами на столбцах где содержаться цифры были построены линии с точечками по краям - например от 2 в первой стороке к 1 во воторой 0 в третьей 1в четверной и так далее. Короче получился график. Значения по которым должны проходить линии известны и находятся в файле екселя.
Вопрос - Целесообразно и как можно написать макрос для автоматического построения этого графика в виде макроса на VB.
Если у кого есть другие варианты решения задачи с удовольствием выслушаю
Нужно сделать так чтобы на обыкновенной вордовской или экселевской таблице со столбцами на столбцах где содержаться цифры были построены линии с точечками по краям - например от 2 в первой стороке к 1 во воторой 0 в третьей 1в четверной и так далее. Короче получился график. Значения по которым должны проходить линии известны и находятся в файле екселя.
Вопрос - Целесообразно и как можно написать макрос для автоматического построения этого графика в виде макроса на VB.
Если у кого есть другие варианты решения задачи с удовольствием выслушаю
Сибиряк
old hamster
Запускаем запись макроса в Экселе. Вставляем диаграмму, смотрим код:
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
Вроде всё просто и всё понятно. По аналогии можно написать код, делающий это автоматически для произвольного источника данных
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
Вроде всё просто и всё понятно. По аналогии можно написать код, делающий это автоматически для произвольного источника данных
ТОП 5
1
2
3
4