Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.06.2011, 13:13   #1
Андрей 93
Люблю жизнь
Форумчанин
 
Аватар для Андрей 93
 
Регистрация: 01.12.2009
Сообщений: 193
По умолчанию Диаграмма VBA

Существуют 10 предметов, для каждого из них есть процент сдавших. Необходимо построить диаграмму. Не подскажите, как это сделать? (Microsoft VB 6.5 в excel). Строить диаграмму надо на листе.
Не стыдно не уметь, стыдно не учиться.
Андрей 93 вне форума Ответить с цитированием
Старый 12.06.2011, 13:45   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Включите запись макросов, и создайте диаграмму вручную.
Получите нужный вам код макроса. Потом, если посчитаете, что код работает не совсем корректно (или в нем много лишнего), - выкладываете файл с кодом сюда, и мы помогаем решить проблему.
EducatedFool вне форума Ответить с цитированием
Старый 12.06.2011, 13:59   #3
Андрей 93
Люблю жизнь
Форумчанин
 
Аватар для Андрей 93
 
Регистрация: 01.12.2009
Сообщений: 193
По умолчанию

Попробовал сделать так:
Код:
Sub Макрос2()
'
' Макрос2 Макрос
'

'
    Range("B1:K1,B27:K27").Select
    Range("B27").Activate
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("Лист1!$B$1:$K$1;Лист1!$B$27:$K$27")
    ActiveChart.ChartType = xlColumnClustered
End Sub
Выдаёт ошибку
Код:
runtime error "1004": application-defined or object-defined error
Вложения
Тип файла: rar Книга1.rar (21.8 Кб, 10 просмотров)
Не стыдно не уметь, стыдно не учиться.
Андрей 93 вне форума Ответить с цитированием
Старый 12.06.2011, 16:51   #4
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Попробуйте так:
Код:
Sub Макрос2()
    ActiveWorkbook.Charts.Add.SetSourceData [Лист1!$B$1:$K$1,Лист1!$B$27:$K$27]
End Sub
Пример в файле: http://excelvba.ru/XL_Files/Sample__...__18-51-58.zip
EducatedFool вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
диаграмма Артл Microsoft Office Excel 5 26.03.2011 19:43
Диаграмма guckaboss Microsoft Office Access 1 24.02.2011 19:11
диаграмма rogvald Общие вопросы C/C++ 1 19.05.2010 17:12
Диаграмма Викдон Паскаль, Turbo Pascal, PascalABC.NET 1 06.12.2008 16:26