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

Вход

Регистрация

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

 

= Мир MS Excel/Анимация Excel - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Анимация Excel (Макросы/Sub)
Анимация Excel
LionKing2 Дата: Вторник, 04.11.2014, 15:14 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте. Необходимо сделать анимацию в MS Excel. Подскажите, как делается эффект кружения диаграммы или перестроение её по заданному интервалу?
Большое спасибо за помощь!
 
Ответить
СообщениеЗдравствуйте. Необходимо сделать анимацию в MS Excel. Подскажите, как делается эффект кружения диаграммы или перестроение её по заданному интервалу?
Большое спасибо за помощь!
Автор - LionKing2
Дата добавления - 04.11.2014 в 15:14
Nic70y Дата: Вторник, 04.11.2014, 18:59 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8769
Репутация: 2276 ±
Замечаний: 0% ±

Excel 2010
Цитата LionKing2, 04.11.2014 в 15:14, в сообщении № 1
интервалу
[vba]
Код
Application.Wait Now + TimeSerial(0, 0, 0)
[/vba]это нужно?

ЮMoney 41001841029809
 
Ответить
Сообщение
Цитата LionKing2, 04.11.2014 в 15:14, в сообщении № 1
интервалу
[vba]
Код
Application.Wait Now + TimeSerial(0, 0, 0)
[/vba]это нужно?
Автор - Nic70y
Дата добавления - 04.11.2014 в 18:59
LionKing2 Дата: Вторник, 04.11.2014, 19:56 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Суть задачи такая, есть диаграмма с осью XYZ, нужно, чтобы она поднялась, покружилась по своей оси и опустилась в первоначальное положение.
Вот смотрю документацию по VBA и пока не понял, как менять положение диаграммы
 
Ответить
СообщениеСуть задачи такая, есть диаграмма с осью XYZ, нужно, чтобы она поднялась, покружилась по своей оси и опустилась в первоначальное положение.
Вот смотрю документацию по VBA и пока не понял, как менять положение диаграммы
Автор - LionKing2
Дата добавления - 04.11.2014 в 19:56
Nic70y Дата: Вторник, 04.11.2014, 20:59 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8769
Репутация: 2276 ±
Замечаний: 0% ±

Excel 2010
Нужен файл (это и в правилах) с примером диаграммы (пару положений)
Вдруг кто-то умеет кружить (я не умею)
Остальные действия думаю и рекордером записать можно.

ЮMoney 41001841029809
 
Ответить
СообщениеНужен файл (это и в правилах) с примером диаграммы (пару положений)
Вдруг кто-то умеет кружить (я не умею)
Остальные действия думаю и рекордером записать можно.
Автор - Nic70y
Дата добавления - 04.11.2014 в 20:59
gling Дата: Вторник, 04.11.2014, 22:54 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2525
Репутация: 678 ±
Замечаний: 0% ±

2010
Есть такой файл давно скачал уже и не помню где, посмотрите, разберитесь и все получится.
К сообщению приложен файл: planeta2.xls (46.5 Kb)

ЯД-41001506838083
 
Ответить
СообщениеЕсть такой файл давно скачал уже и не помню где, посмотрите, разберитесь и все получится.
Автор - gling
Дата добавления - 04.11.2014 в 22:54
krosav4ig Дата: Среда, 05.11.2014, 01:53 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
у объекта chart есть свойство rotation угол поворота относительно начального положения. центр вращения находится в центре диаграммы.

upd.
Слепил небольшой примеричк
К сообщению приложен файл: 0749864.xlsm (16.4 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Среда, 05.11.2014, 12:08
 
Ответить
Сообщениеу объекта chart есть свойство rotation угол поворота относительно начального положения. центр вращения находится в центре диаграммы.

upd.
Слепил небольшой примеричк
Автор - krosav4ig
Дата добавления - 05.11.2014 в 01:53
Rioran Дата: Пятница, 07.11.2014, 09:29 | Сообщение № 7
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
krosav4ig, привет.

При нажатии на кнопу "Старт" получаю аварийный месседж бокс:

System Error &H80070057 (-2147024809). Параметр задан неверно.

UPD: пока писал пост - разобрался. У тебя в оригинале стоит Shapes(0).Chart который надо заменить на Shapes(1).Chart

Классная штука, сижу и наслаждаюсь гипнозом =)

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
Сообщениеkrosav4ig, привет.

При нажатии на кнопу "Старт" получаю аварийный месседж бокс:

System Error &H80070057 (-2147024809). Параметр задан неверно.

UPD: пока писал пост - разобрался. У тебя в оригинале стоит Shapes(0).Chart который надо заменить на Shapes(1).Chart

Классная штука, сижу и наслаждаюсь гипнозом =)
Автор - Rioran
Дата добавления - 07.11.2014 в 09:29
krosav4ig Дата: Пятница, 07.11.2014, 12:18 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Rioran, привет, пасяба.
А у мну в 2007 на работе работает, мало того в immediate
[vba]
Код
?activesheet.Shapes(0).ID=activesheet.Shapes(1).ID
[/vba]
возвращает True. Волшебство, однако

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеRioran, привет, пасяба.
А у мну в 2007 на работе работает, мало того в immediate
[vba]
Код
?activesheet.Shapes(0).ID=activesheet.Shapes(1).ID
[/vba]
возвращает True. Волшебство, однако
Автор - krosav4ig
Дата добавления - 07.11.2014 в 12:18
RAN Дата: Пятница, 07.11.2014, 12:54 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
2007 - он такой.

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение2007 - он такой.
Автор - RAN
Дата добавления - 07.11.2014 в 12:54
Alex_ST Дата: Пятница, 07.11.2014, 21:55 | Сообщение № 10
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3209
Репутация: 609 ±
Замечаний: 0% ±

2003
Да при чём тут 2007-й?
Просто нужно правильно писАть[vba]
Код
With ChartObjects(1).Chart
[/vba]и всё закрутится


С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеДа при чём тут 2007-й?
Просто нужно правильно писАть[vba]
Код
With ChartObjects(1).Chart
[/vba]и всё закрутится
Автор - Alex_ST
Дата добавления - 07.11.2014 в 21:55
LionKing2 Дата: Пятница, 07.11.2014, 21:59 | Сообщение № 11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата krosav4ig, 05.11.2014 в 01:53, в сообщении № 6
у объекта chart есть свойство rotation угол поворота относительно начального положения. центр вращения находится в центре диаграммы.


:o Спасибо большое!!! А может подскажите, какое свойство отвечает за поднятие по оси Y диаграммы?

Цитата Nic70y, 04.11.2014 в 20:59, в сообщении № 4
Нужен файл (это и в правилах) с примером диаграммы (пару положений)


Нет у меня диаграммы, сижу разбираюсь в VBA. (точнее такая же, как у krosav4ig выше)


Сообщение отредактировал LionKing2 - Пятница, 07.11.2014, 22:01
 
Ответить
Сообщение
Цитата krosav4ig, 05.11.2014 в 01:53, в сообщении № 6
у объекта chart есть свойство rotation угол поворота относительно начального положения. центр вращения находится в центре диаграммы.


:o Спасибо большое!!! А может подскажите, какое свойство отвечает за поднятие по оси Y диаграммы?

Цитата Nic70y, 04.11.2014 в 20:59, в сообщении № 4
Нужен файл (это и в правилах) с примером диаграммы (пару положений)


Нет у меня диаграммы, сижу разбираюсь в VBA. (точнее такая же, как у krosav4ig выше)
Автор - LionKing2
Дата добавления - 07.11.2014 в 21:59
buchlotnik Дата: Пятница, 07.11.2014, 22:53 | Сообщение № 12
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
На дружественном ресурсе было, девушку свою так поздравлял в своё время :D :3D в Excel
[vba]
Код
With ActiveSheet.Shapes.Range(Array("имя_объекта")).ThreeD
               .RotationX =...
               .RotationY = ...
               .RotationZ = ...
End with
[/vba]

Оно?


Сообщение отредактировал buchlotnik - Пятница, 07.11.2014, 23:51
 
Ответить
СообщениеНа дружественном ресурсе было, девушку свою так поздравлял в своё время :D :3D в Excel
[vba]
Код
With ActiveSheet.Shapes.Range(Array("имя_объекта")).ThreeD
               .RotationX =...
               .RotationY = ...
               .RotationZ = ...
End with
[/vba]

Оно?
Автор - buchlotnik
Дата добавления - 07.11.2014 в 22:53
RAN Дата: Пятница, 07.11.2014, 23:37 | Сообщение № 13
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата buchlotnik, 07.11.2014 в 22:53, в сообщении № 12
На стороннем ресурсе было

Уместнее "на дружественном".

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата buchlotnik, 07.11.2014 в 22:53, в сообщении № 12
На стороннем ресурсе было

Уместнее "на дружественном".
Автор - RAN
Дата добавления - 07.11.2014 в 23:37
buchlotnik Дата: Пятница, 07.11.2014, 23:53 | Сообщение № 14
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
RAN, поправил :)
 
Ответить
СообщениеRAN, поправил :)
Автор - buchlotnik
Дата добавления - 07.11.2014 в 23:53
LionKing2 Дата: Суббота, 08.11.2014, 14:04 | Сообщение № 15
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата buchlotnik, 07.11.2014 в 22:53, в сообщении № 12
Оно?


Да-да, оно, но только это к фигуре

With ActiveSheet.Shapes.Range(Array("имя_объекта")).ThreeD

А как обращаться к диаграмме? Попробовал через Shapes(1).Chart, пишет такой метод не найден ".RotationX"

Т.к. когда я задаю имя своей диаграммы происходит простое мигание кнопки запуска макроса


Сообщение отредактировал LionKing2 - Суббота, 08.11.2014, 14:10
 
Ответить
Сообщение
Цитата buchlotnik, 07.11.2014 в 22:53, в сообщении № 12
Оно?


Да-да, оно, но только это к фигуре

With ActiveSheet.Shapes.Range(Array("имя_объекта")).ThreeD

А как обращаться к диаграмме? Попробовал через Shapes(1).Chart, пишет такой метод не найден ".RotationX"

Т.к. когда я задаю имя своей диаграммы происходит простое мигание кнопки запуска макроса
Автор - LionKing2
Дата добавления - 08.11.2014 в 14:04
buchlotnik Дата: Суббота, 08.11.2014, 15:18 | Сообщение № 16
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Тут две проблемы:
во-первых надо экспериментировать с углами поворота (см. пример повороту от -90 до 90 соответствует значение от 0 до 180)
во-вторых - обращаемся не к диаграмме, а к её элементу.
[vba]
Код
Sub vertelca()
      
     Dim i As Integer
      
     For i = 0 To 180
     ActiveSheet.ChartObjects("Diag").Activate
     ActiveChart.PlotArea.Select
     Selection.Format.ThreeD.RotationY = i
     DoEvents
     Application.Calculate
     Next i
      
End Sub
[/vba]
А вообще спасибо за вопрос - прикольная идея по-моему B)
К сообщению приложен файл: vertelca.xls (39.5 Kb)
 
Ответить
СообщениеТут две проблемы:
во-первых надо экспериментировать с углами поворота (см. пример повороту от -90 до 90 соответствует значение от 0 до 180)
во-вторых - обращаемся не к диаграмме, а к её элементу.
[vba]
Код
Sub vertelca()
      
     Dim i As Integer
      
     For i = 0 To 180
     ActiveSheet.ChartObjects("Diag").Activate
     ActiveChart.PlotArea.Select
     Selection.Format.ThreeD.RotationY = i
     DoEvents
     Application.Calculate
     Next i
      
End Sub
[/vba]
А вообще спасибо за вопрос - прикольная идея по-моему B)
Автор - buchlotnik
Дата добавления - 08.11.2014 в 15:18
LionKing2 Дата: Суббота, 08.11.2014, 21:17 | Сообщение № 17
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Ага, начал вроде въезжать. Только вот у меня крутится диаграмма вместе с осями, как-то можно ей указать, чтобы крутилась на оси, да и побыстрее бы. А так супер respect
 
Ответить
СообщениеАга, начал вроде въезжать. Только вот у меня крутится диаграмма вместе с осями, как-то можно ей указать, чтобы крутилась на оси, да и побыстрее бы. А так супер respect
Автор - LionKing2
Дата добавления - 08.11.2014 в 21:17
buchlotnik Дата: Суббота, 08.11.2014, 22:41 | Сообщение № 18
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Без осей - никак - это элементы одного объекта. Побыстрее - поменяйте шаг в for next
 
Ответить
СообщениеБез осей - никак - это элементы одного объекта. Побыстрее - поменяйте шаг в for next
Автор - buchlotnik
Дата добавления - 08.11.2014 в 22:41
LionKing2 Дата: Среда, 03.12.2014, 16:59 | Сообщение № 19
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Продолжаю изучение vba в связке с excel и вот столкнулся с тем, что необходимо, чтобы выкатывался овал из точки А в точку В.
Может кто помочь с данной темой :)
 
Ответить
СообщениеПродолжаю изучение vba в связке с excel и вот столкнулся с тем, что необходимо, чтобы выкатывался овал из точки А в точку В.
Может кто помочь с данной темой :)
Автор - LionKing2
Дата добавления - 03.12.2014 в 16:59
DJ_Marker_MC Дата: Среда, 03.12.2014, 17:08 | Сообщение № 20
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
del


Сообщение отредактировал DJ_Marker_MC - Среда, 03.12.2014, 17:11
 
Ответить
Сообщениеdel
Автор - DJ_Marker_MC
Дата добавления - 03.12.2014 в 17:08
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Анимация Excel (Макросы/Sub)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

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