|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.04.2009, 17:56 | #1 |
Форумчанин Подтвердите свой е-майл
Регистрация: 28.04.2008
Сообщений: 116
|
Excel 2007. Диаграммы...
Всем, привет!
Пытаюсь написать макрос построения красивой диаграммы вот такой: делаю это следующим образом: формат рядов данных->формат объемной фигуры->выбираем рельеф, устанавливаем ширину и высоту сверху. Пробовал с помощью макроредактора определить нужные параметры - Не получилось. ВОЗМОЖНО РЕШИТЬ ПОСТАВЛЕННУЮ ЗАДАЧУ С ПОМОЩЬЮ МАКРОСА? |
13.04.2009, 19:41 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
рисуете на странице два графика, со всеми одинаковими данными, только с разными рельефами, запускаете любую отладку, берете на просмотр оба графика ищете свойство, которым они отличаются. все. в зависимости от удачи, через 5 минут или 5 часов поиска находите результат.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
14.04.2009, 09:53 | #3 |
Форумчанин
Регистрация: 24.06.2008
Сообщений: 516
|
Как вариант :
ActiveSheet.ChartObjects(1).Chart.C hartStyle = 30 Если нужно подробнее пиши...
Можно сделать все! Было бы время, да деньги...
|
14.04.2009, 11:57 | #4 |
Форумчанин
Регистрация: 24.06.2008
Сообщений: 516
|
Или так:
ActiveChart.SeriesCollection(1).Poi nts(2).Format.ThreeD.BevelTopType = msoBevelCircle
Можно сделать все! Было бы время, да деньги...
|
14.04.2009, 12:14 | #5 | |
Форумчанин Подтвердите свой е-майл
Регистрация: 28.04.2008
Сообщений: 116
|
Теплее...
To mchip
.ChartStyle = 30 Уже ближе, добавился объем. Теперь как изменить рельеф? To IgorGO Цитата:
|
|
14.04.2009, 12:23 | #6 |
Пользователь
Регистрация: 21.10.2008
Сообщений: 39
|
Если оно есть, то должно быть упомянуто тут -
msdn: Chart Object Members |
14.04.2009, 13:12 | #7 |
Форумчанин
Регистрация: 24.06.2008
Сообщений: 516
|
ActiveChart.SeriesCollection(1).Poi nts(2).Format.ThreeD.BevelTopType = index()
Где index(): 1 - рельеф круг 2 - рельеф крутой склон ... 5 - рельеф крест ну и т.д. Там почему то пробел лишний отображается, при копировании исправь.
Можно сделать все! Было бы время, да деньги...
|
16.04.2009, 10:54 | #8 |
Форумчанин Подтвердите свой е-майл
Регистрация: 28.04.2008
Сообщений: 116
|
Разобрался) Не получилось только вставить картинку!!!
Вот код , как получить диаграмму на первом посте!
Код:
Этой строкой Код:
|
16.04.2009, 11:19 | #9 |
Форумчанин
Регистрация: 24.06.2008
Сообщений: 516
|
Что есть ярлычок?
Можно сделать все! Было бы время, да деньги...
|
16.04.2009, 15:57 | #10 |
Форумчанин Подтвердите свой е-майл
Регистрация: 28.04.2008
Сообщений: 116
|
Это *.gif картинка!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создание диаграммы Excel по значениям переменной | Shinoby | Microsoft Office Excel | 1 | 08.03.2009 14:23 |
пример построения диаграммы в Excel(e) | FVGK-2009 | Общие вопросы C/C++ | 6 | 22.01.2009 20:15 |
Диаграммы в excel | gusluk | Microsoft Office Excel | 17 | 07.11.2008 07:02 |
Excel 2007 | WIC | Microsoft Office Excel | 2 | 24.11.2007 00:00 |