PRM.Форум /Компьютеры Интернет Связь / Программирование /

Помогите плиз

Печать RSS Деревом

Анонимный пользователь
21.04.05 16:22
Вопрос про Visual Basic. Есть задача.
Нужно сделать так чтобы на обыкновенной вордовской или экселевской таблице со столбцами на столбцах где содержаться цифры были построены линии с точечками по краям - например от 2 в первой стороке к 1 во воторой 0 в третьей 1в четверной и так далее. Короче получился график. Значения по которым должны проходить линии известны и находятся в файле екселя.
Вопрос - Целесообразно и как можно написать макрос для автоматического построения этого графика в виде макроса на VB.
Если у кого есть другие варианты решения задачи с удовольствием выслушаю
КопироватьСсылка
Рассказать друзьям
Сибиряк
old hamster
Сообщений: 13510
22.04.05 09:29Ответ на сообщение Помогите плиз пользователя Анонимный пользователь
Запускаем запись макроса в Экселе. Вставляем диаграмму, смотрим код:

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

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

PRM.Форум /Компьютеры Интернет Связь / Программирование /

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

открыть в новом окне

Модератор:

flopic

Наверх

Мы в социальных сетях

Сетевое издание «59.ру» (18+)
Зарегистрировано Федеральной службой по надзору в сфере связи, информационных технологий и массовых коммуникаций (Роскомнадзор)
Свидетельство о регистрации СМИ ЭЛ № ФС 77–84685 от 06.02.2023 г.
Учредитель: Общество с ограниченной ответственностью «ИНТЕРНЕТ ТЕХНОЛОГИИ»
Главный редактор: Вохмянина Екатерина Владимировна
Адрес редакции: г. Пермь, 614007, ул. 25 Октября д. 101, 6 этаж, БЦ «Авангард», 8 (342) 215-01-21
Электронный адрес редакции: 59@rugion.ru
Контактные данные для Роскомнадзора и государственных органов: juristekat@iportal.ru
Техподдержка: help@sholding.ru

Связаться с отделом продаж: 8 (342) 215-01-21, e.kameneva@iportal.ru
Публикации с пометкой «На правах рекламы», «Партнёрский проект», «Открытая трибуна», «Новости телекома» и «Выборы-2020» оплачены рекламодателем. Редакция сайта не несет ответственности за достоверность информации, содержащейся в рекламных объявлениях.

Информация об ограничениях

Политика использования cookies
Политика конфиденциальности и обработки персональных данных и правила использования сайта