Анимация Excel
LionKing2
Дата: Вторник, 04.11.2014, 15:14 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Здравствуйте. Необходимо сделать анимацию в MS Excel. Подскажите, как делается эффект кружения диаграммы или перестроение её по заданному интервалу? Большое спасибо за помощь!
Здравствуйте. Необходимо сделать анимацию в MS Excel. Подскажите, как делается эффект кружения диаграммы или перестроение её по заданному интервалу? Большое спасибо за помощь! LionKing2
Ответить
Сообщение Здравствуйте. Необходимо сделать анимацию в MS Excel. Подскажите, как делается эффект кружения диаграммы или перестроение её по заданному интервалу? Большое спасибо за помощь! Автор - LionKing2 Дата добавления - 04.11.2014 в 15:14
Nic70y
Дата: Вторник, 04.11.2014, 18:59 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8791
Репутация:
2293
±
Замечаний:
0% ±
Excel 2010
[vba]Код
Application.Wait Now + TimeSerial(0, 0, 0)
[/vba]это нужно?
[vba]Код
Application.Wait Now + TimeSerial(0, 0, 0)
[/vba]это нужно? Nic70y
ЮMoney 41001841029809
Ответить
Сообщение [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
Ответить
Сообщение Суть задачи такая, есть диаграмма с осью XYZ, нужно, чтобы она поднялась, покружилась по своей оси и опустилась в первоначальное положение. Вот смотрю документацию по VBA и пока не понял, как менять положение диаграммы Автор - LionKing2 Дата добавления - 04.11.2014 в 19:56
Nic70y
Дата: Вторник, 04.11.2014, 20:59 |
Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8791
Репутация:
2293
±
Замечаний:
0% ±
Excel 2010
Нужен файл (это и в правилах) с примером диаграммы (пару положений) Вдруг кто-то умеет кружить (я не умею) Остальные действия думаю и рекордером записать можно.
Нужен файл (это и в правилах) с примером диаграммы (пару положений) Вдруг кто-то умеет кружить (я не умею) Остальные действия думаю и рекордером записать можно. Nic70y
ЮMoney 41001841029809
Ответить
Сообщение Нужен файл (это и в правилах) с примером диаграммы (пару положений) Вдруг кто-то умеет кружить (я не умею) Остальные действия думаю и рекордером записать можно. Автор - Nic70y Дата добавления - 04.11.2014 в 20:59
gling
Дата: Вторник, 04.11.2014, 22:54 |
Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2525
Репутация:
678
±
Замечаний:
0% ±
2010
Есть такой файл давно скачал уже и не помню где, посмотрите, разберитесь и все получится.
Есть такой файл давно скачал уже и не помню где, посмотрите, разберитесь и все получится. gling
ЯД-41001506838083
Ответить
Сообщение Есть такой файл давно скачал уже и не помню где, посмотрите, разберитесь и все получится. Автор - gling Дата добавления - 04.11.2014 в 22:54
krosav4ig
Дата: Среда, 05.11.2014, 01:53 |
Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
у объекта chart есть свойство rotation угол поворота относительно начального положения. центр вращения находится в центре диаграммы. upd. Слепил небольшой примеричк
у объекта chart есть свойство rotation угол поворота относительно начального положения. центр вращения находится в центре диаграммы. upd. Слепил небольшой примеричк krosav4ig
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 Классная штука, сижу и наслаждаюсь гипнозом =)
krosav4ig , привет. При нажатии на кнопу "Старт" получаю аварийный месседж бокс: System Error &H80070057 (-2147024809). Параметр задан неверно. UPD: пока писал пост - разобрался. У тебя в оригинале стоит Shapes(0).Chart который надо заменить на Shapes(1).Chart Классная штука, сижу и наслаждаюсь гипнозом =)Rioran
Роман, Москва, 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. Волшебство, однако
Rioran , привет, пасяба. А у мну в 2007 на работе работает, мало того в immediate [vba]Код
?activesheet.Shapes(0).ID=activesheet.Shapes(1).ID
[/vba] возвращает True. Волшебство, однакоkrosav4ig
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
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]и всё закрутится
Да при чём тут 2007-й? Просто нужно правильно писАть[vba]Код
With ChartObjects(1).Chart
[/vba]и всё закрутится Alex_ST
С уважением, Алексей 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
у объекта chart есть свойство rotation угол поворота относительно начального положения. центр вращения находится в центре диаграммы.
Спасибо большое!!! А может подскажите, какое свойство отвечает за поднятие по оси Y диаграммы? Нужен файл (это и в правилах) с примером диаграммы (пару положений)
Нет у меня диаграммы, сижу разбираюсь в VBA. (точнее такая же, как у krosav4ig выше)
у объекта chart есть свойство rotation угол поворота относительно начального положения. центр вращения находится в центре диаграммы.
Спасибо большое!!! А может подскажите, какое свойство отвечает за поднятие по оси Y диаграммы? Нужен файл (это и в правилах) с примером диаграммы (пару положений)
Нет у меня диаграммы, сижу разбираюсь в VBA. (точнее такая же, как у krosav4ig выше)LionKing2
Сообщение отредактировал LionKing2 - Пятница, 07.11.2014, 22:01
Ответить
Сообщение у объекта chart есть свойство rotation угол поворота относительно начального положения. центр вращения находится в центре диаграммы.
Спасибо большое!!! А может подскажите, какое свойство отвечает за поднятие по оси Y диаграммы? Нужен файл (это и в правилах) с примером диаграммы (пару положений)
Нет у меня диаграммы, сижу разбираюсь в VBA. (точнее такая же, как у krosav4ig выше)Автор - LionKing2 Дата добавления - 07.11.2014 в 21:59
buchlotnik
Дата: Пятница, 07.11.2014, 22:53 |
Сообщение № 12
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация:
929
±
Замечаний:
20% ±
2010, 2013, 2016 RUS / ENG
На дружественном ресурсе было, девушку свою так поздравлял в своё время :3D в Excel [vba]Код
With ActiveSheet.Shapes.Range(Array("имя_объекта")).ThreeD .RotationX =... .RotationY = ... .RotationZ = ... End with
[/vba] Оно?
На дружественном ресурсе было, девушку свою так поздравлял в своё время :3D в Excel [vba]Код
With ActiveSheet.Shapes.Range(Array("имя_объекта")).ThreeD .RotationX =... .RotationY = ... .RotationZ = ... End with
[/vba] Оно? buchlotnik
Сообщение отредактировал buchlotnik - Пятница, 07.11.2014, 23:51
Ответить
Сообщение На дружественном ресурсе было, девушку свою так поздравлял в своё время :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
На стороннем ресурсе было
Уместнее "на дружественном".
На стороннем ресурсе было
Уместнее "на дружественном".RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение На стороннем ресурсе было
Уместнее "на дружественном".Автор - 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
Да-да, оно, но только это к фигуре With ActiveSheet.Shapes.Range(Array("имя_объекта")).ThreeD А как обращаться к диаграмме? Попробовал через Shapes(1).Chart, пишет такой метод не найден ".RotationX" Т.к. когда я задаю имя своей диаграммы происходит простое мигание кнопки запуска макроса
Да-да, оно, но только это к фигуре With ActiveSheet.Shapes.Range(Array("имя_объекта")).ThreeD А как обращаться к диаграмме? Попробовал через Shapes(1).Chart, пишет такой метод не найден ".RotationX" Т.к. когда я задаю имя своей диаграммы происходит простое мигание кнопки запуска макроса LionKing2
Сообщение отредактировал LionKing2 - Суббота, 08.11.2014, 14:10
Ответить
Сообщение Да-да, оно, но только это к фигуре 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] А вообще спасибо за вопрос - прикольная идея по-моему
Тут две проблемы: во-первых надо экспериментировать с углами поворота (см. пример повороту от -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] А вообще спасибо за вопрос - прикольная идея по-моему buchlotnik
Ответить
Сообщение Тут две проблемы: во-первых надо экспериментировать с углами поворота (см. пример повороту от -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] А вообще спасибо за вопрос - прикольная идея по-моему Автор - buchlotnik Дата добавления - 08.11.2014 в 15:18
LionKing2
Дата: Суббота, 08.11.2014, 21:17 |
Сообщение № 17
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Ага, начал вроде въезжать. Только вот у меня крутится диаграмма вместе с осями, как-то можно ей указать, чтобы крутилась на оси, да и побыстрее бы. А так супер
Ага, начал вроде въезжать. Только вот у меня крутится диаграмма вместе с осями, как-то можно ей указать, чтобы крутилась на оси, да и побыстрее бы. А так супер LionKing2
Ответить
Сообщение Ага, начал вроде въезжать. Только вот у меня крутится диаграмма вместе с осями, как-то можно ей указать, чтобы крутилась на оси, да и побыстрее бы. А так супер Автор - 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
Ответить
Сообщение Без осей - никак - это элементы одного объекта. Побыстрее - поменяйте шаг в 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
Ответить
Сообщение Продолжаю изучение 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