Анимация Excel
|
|
buchlotnik |
Дата: Среда, 03.12.2014, 17:23 |
Сообщение № 21 |
|
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация:
929
±
Замечаний:
20% ±
 2010, 2013, 2016 RUS / ENG | |
LionKing2, одна тема - один вопрос. Плюс нужен файл - выкатываться - это переместиться или ещё вращать хотите?
LionKing2, одна тема - один вопрос. Плюс нужен файл - выкатываться - это переместиться или ещё вращать хотите?buchlotnik
|
|
| Ответить
|
LionKing2 |
Дата: Среда, 03.12.2014, 19:08 |
Сообщение № 22 |
|
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
0% ±
 Excel 2010 | |
Так тема же про анимацию, какой смысл плодить? Именно вращение
Так тема же про анимацию, какой смысл плодить? Именно вращениеLionKing2
|
|
| Ответить
|
buchlotnik |
Дата: Среда, 03.12.2014, 19:14 |
Сообщение № 23 |
|
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация:
929
±
Замечаний:
20% ±
 2010, 2013, 2016 RUS / ENG | |
LionKing2, да просто вообще не понятно куда его вертеть - как пример: [vba]Код Sub rot() ActiveSheet.Shapes.Range(Array("Oval 10")).Select For i = 0 To 90 Step 1 Selection.ShapeRange.IncrementRotation i DoEvents Next i End Sub [/vba] это просто ротация, ну дополнительно можно передавать координаты местоположения. Остальное с файлом. 
LionKing2, да просто вообще не понятно куда его вертеть - как пример: [vba]Код Sub rot() ActiveSheet.Shapes.Range(Array("Oval 10")).Select For i = 0 To 90 Step 1 Selection.ShapeRange.IncrementRotation i DoEvents Next i End Sub [/vba] это просто ротация, ну дополнительно можно передавать координаты местоположения. Остальное с файлом. buchlotnik
Сообщение отредактировал buchlotnik - Среда, 03.12.2014, 19:28 |
|
| Ответить
|
LionKing2 |
Дата: Среда, 03.12.2014, 19:32 |
Сообщение № 24 |
|
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
0% ±
 Excel 2010 | |
Воооо.... как раз то, что мне необходимо, единственно, осталось понять, как координаты передать 
Воооо.... как раз то, что мне необходимо, единственно, осталось понять, как координаты передать LionKing2
|
|
| Ответить
|
buchlotnik |
Дата: Среда, 03.12.2014, 19:47 |
Сообщение № 25 |
|
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация:
929
±
Замечаний:
20% ±
 2010, 2013, 2016 RUS / ENG | |
Цитата как координаты передать [vba]Код Selection.ShapeRange.IncrementLeft Selection.ShapeRange.IncrementTop [/vba] 
Цитата как координаты передать [vba]Код Selection.ShapeRange.IncrementLeft Selection.ShapeRange.IncrementTop [/vba] buchlotnik
|
|
| Ответить
|
nerv |
Дата: Среда, 03.12.2014, 23:28 |
Сообщение № 26 |
|
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
| |
Чебурашка стал символом олимпийских игр. А чего достиг ты? Тишина - самый громкий звук
YM 41001156540584 / WM WMR R21924176233
https://github.com/nervgh/vba
Сообщение отредактировал nerv - Среда, 03.12.2014, 23:40 |
|
| Ответить
|