Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вращение 3D диаграм - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вращение 3D диаграм (Макросы/Sub)
Вращение 3D диаграм
bokr Дата: Воскресенье, 20.01.2019, 15:18 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Хотел сделать вращение 3D диаграммы от scrollbatton'а, но что-то не работает.
Адресацию shape-объекта проверяю через watch window.
sh1.name совпадает, а присвоение sh1.ThreeD.RotationX не проходит, хотя мануал вроде допускает запись.

В чем ошибка? Можно ли как-то "в объезд" решить проблему.
К сообщению приложен файл: ex.xlsb(40.5 Kb)
 
Ответить
СообщениеХотел сделать вращение 3D диаграммы от scrollbatton'а, но что-то не работает.
Адресацию shape-объекта проверяю через watch window.
sh1.name совпадает, а присвоение sh1.ThreeD.RotationX не проходит, хотя мануал вроде допускает запись.

В чем ошибка? Можно ли как-то "в объезд" решить проблему.

Автор - bokr
Дата добавления - 20.01.2019 в 15:18
bmv98rus Дата: Воскресенье, 20.01.2019, 20:15 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1581
Репутация: 259 ±
Замечаний: 0% ±

Excel 2013/2016
[vba]
Код
        cho1.Chart.ChartArea.Format.ThreeD.RotationX = sb_Hor
[/vba]
 
Ответить
Сообщение[vba]
Код
        cho1.Chart.ChartArea.Format.ThreeD.RotationX = sb_Hor
[/vba]

Автор - bmv98rus
Дата добавления - 20.01.2019 в 20:15
bokr Дата: Понедельник, 21.01.2019, 19:03 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
bmv98rus, близко, но не совсем то, что хотел.
Не работает вращение на 360 вокруг вертикальной оси, есть какое-то маятникообразное движение градусов на 90.
Может как-то через rotation, evaluation сделать?
Пока не разобрался до конца.
 
Ответить
Сообщениеbmv98rus, близко, но не совсем то, что хотел.
Не работает вращение на 360 вокруг вертикальной оси, есть какое-то маятникообразное движение градусов на 90.
Может как-то через rotation, evaluation сделать?
Пока не разобрался до конца.

Автор - bokr
Дата добавления - 21.01.2019 в 19:03
krosav4ig Дата: Понедельник, 21.01.2019, 19:22 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1871
Репутация: 801 ±
Замечаний: 0% ±

Excel 2007,2010,2013
может [vba]
Код
sh1.Chart.ChartArea.Format.ThreeD.RotationX = (360 + sb_Hor) Mod 360
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеможет [vba]
Код
sh1.Chart.ChartArea.Format.ThreeD.RotationX = (360 + sb_Hor) Mod 360
[/vba]

Автор - krosav4ig
Дата добавления - 21.01.2019 в 19:22
bmv98rus Дата: Понедельник, 21.01.2019, 20:15 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 1581
Репутация: 259 ±
Замечаний: 0% ±

Excel 2013/2016
bokr, странно, что мой, что вариант krosav4ig, крутит нормально. Может просто у вас комп не успевает?
 
Ответить
Сообщениеbokr, странно, что мой, что вариант krosav4ig, крутит нормально. Может просто у вас комп не успевает?

Автор - bmv98rus
Дата добавления - 21.01.2019 в 20:15
krosav4ig Дата: Вторник, 22.01.2019, 08:58 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1871
Репутация: 801 ±
Замечаний: 0% ±

Excel 2007,2010,2013
bmv98rus, там у bokr напихано 9 диаграмм, оно, конечно, не должно сильно тормозить, но все может быть


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеbmv98rus, там у bokr напихано 9 диаграмм, оно, конечно, не должно сильно тормозить, но все может быть

Автор - krosav4ig
Дата добавления - 22.01.2019 в 08:58
bmv98rus Дата: Вторник, 22.01.2019, 20:17 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 1581
Репутация: 259 ±
Замечаний: 0% ±

Excel 2013/2016
krosav4ig, ну да, лишни раз по кнопке жмакать не стоит :-)
К сообщению приложен файл: Copy_of_590.xlsb(25.9 Kb)
 
Ответить
Сообщениеkrosav4ig, ну да, лишни раз по кнопке жмакать не стоит :-)

Автор - bmv98rus
Дата добавления - 22.01.2019 в 20:17
bokr Дата: Пятница, 25.01.2019, 03:15 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
krosav4ig, bmv98rus, самый первый ответ был правильным. Но...

Начну с мелочи, все диаграммы на листе в рабочей программе удаляются и пересоздаются заново, так что лишних нет.

Косяк, как я понял, в том что при создании диаграммы посредством choCommon.Chart.ChartWizard непонятно зачем возникает галка в меню "Формат области диаграммы", "Поворот объемной фигуры" пункт "оси под прямым углом".
Тогда и возникает "не то" вращение. Более того у меня создаются две диаграммы с одинаковыми параметрами, единственно различаются исходные данные. Сделано для сравнения результатов. Так вот в одном случае галка выставляется автоматически, в другом нет. Такой вот богатый внутренний мир у нашего VBA.

При попытке эмулировать ситуацию в примере ошибка не обнаружилась, все ОК, рисует, крутит как и ожидалось.
Далее и в основной программе, после очередных манипуляций, галка исчезла, и все наладилось.
Хотя напрямую я эту галку не снимал, не ставил.

И как убрать эту галку галку программно не могу понять. Макрописец на это действие вообще ничего не пишет.
Если подскажете ссылку, где все детально описано, буду благодарен.


Сообщение отредактировал bokr - Пятница, 25.01.2019, 18:13
 
Ответить
Сообщениеkrosav4ig, bmv98rus, самый первый ответ был правильным. Но...

Начну с мелочи, все диаграммы на листе в рабочей программе удаляются и пересоздаются заново, так что лишних нет.

Косяк, как я понял, в том что при создании диаграммы посредством choCommon.Chart.ChartWizard непонятно зачем возникает галка в меню "Формат области диаграммы", "Поворот объемной фигуры" пункт "оси под прямым углом".
Тогда и возникает "не то" вращение. Более того у меня создаются две диаграммы с одинаковыми параметрами, единственно различаются исходные данные. Сделано для сравнения результатов. Так вот в одном случае галка выставляется автоматически, в другом нет. Такой вот богатый внутренний мир у нашего VBA.

При попытке эмулировать ситуацию в примере ошибка не обнаружилась, все ОК, рисует, крутит как и ожидалось.
Далее и в основной программе, после очередных манипуляций, галка исчезла, и все наладилось.
Хотя напрямую я эту галку не снимал, не ставил.

И как убрать эту галку галку программно не могу понять. Макрописец на это действие вообще ничего не пишет.
Если подскажете ссылку, где все детально описано, буду благодарен.

Автор - bokr
Дата добавления - 25.01.2019 в 03:15
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вращение 3D диаграм (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!