![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин Подтвердите свой е-майл
Регистрация: 28.04.2008
Сообщений: 116
|
![]()
Всем, привет!
Пытаюсь написать макрос построения красивой диаграммы вот такой: ![]() делаю это следующим образом: формат рядов данных->формат объемной фигуры->выбираем рельеф, устанавливаем ширину и высоту сверху. ![]() Пробовал с помощью макроредактора определить нужные параметры - Не получилось. ВОЗМОЖНО РЕШИТЬ ПОСТАВЛЕННУЮ ЗАДАЧУ С ПОМОЩЬЮ МАКРОСА? |
![]() |
![]() |
![]() |
#2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
![]()
рисуете на странице два графика, со всеми одинаковими данными, только с разными рельефами, запускаете любую отладку, берете на просмотр оба графика ищете свойство, которым они отличаются. все. в зависимости от удачи, через 5 минут или 5 часов поиска находите результат.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 24.06.2008
Сообщений: 516
|
![]()
Как вариант :
ActiveSheet.ChartObjects(1).Chart.C hartStyle = 30 Если нужно подробнее пиши...
Можно сделать все! Было бы время, да деньги...
|
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 24.06.2008
Сообщений: 516
|
![]()
Или так:
ActiveChart.SeriesCollection(1).Poi nts(2).Format.ThreeD.BevelTopType = msoBevelCircle
Можно сделать все! Было бы время, да деньги...
|
![]() |
![]() |
![]() |
#5 | |
Форумчанин Подтвердите свой е-майл
Регистрация: 28.04.2008
Сообщений: 116
|
![]()
To mchip
.ChartStyle = 30 Уже ближе, добавился объем. Теперь как изменить рельеф? To IgorGO Цитата:
|
|
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 21.10.2008
Сообщений: 39
|
![]()
Если оно есть, то должно быть упомянуто тут -
msdn: Chart Object Members |
![]() |
![]() |
![]() |
#7 |
Форумчанин
Регистрация: 24.06.2008
Сообщений: 516
|
![]()
ActiveChart.SeriesCollection(1).Poi nts(2).Format.ThreeD.BevelTopType = index()
Где index(): 1 - рельеф круг 2 - рельеф крутой склон ... 5 - рельеф крест ну и т.д. Там почему то пробел лишний отображается, при копировании исправь.
Можно сделать все! Было бы время, да деньги...
|
![]() |
![]() |
![]() |
#8 |
Форумчанин Подтвердите свой е-майл
Регистрация: 28.04.2008
Сообщений: 116
|
![]()
Вот код , как получить диаграмму на первом посте!
Код:
Этой строкой Код:
|
![]() |
![]() |
![]() |
#9 |
Форумчанин
Регистрация: 24.06.2008
Сообщений: 516
|
![]()
Что есть ярлычок?
Можно сделать все! Было бы время, да деньги...
|
![]() |
![]() |
![]() |
#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 |