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

Вход

Регистрация

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

 

= Мир MS Excel/Изменение размера шаров - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение размера шаров (Макросы/Sub)
Изменение размера шаров
xsens Дата: Понедельник, 18.04.2016, 21:40 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте.
Нужно чтобы у змейки при движении через один шарик, шарик увеличивался
Файл прикрепил. Заранее спасибо
К сообщению приложен файл: zmey.zip(21Kb)
 
Ответить
СообщениеЗдравствуйте.
Нужно чтобы у змейки при движении через один шарик, шарик увеличивался
Файл прикрепил. Заранее спасибо

Автор - xsens
Дата добавления - 18.04.2016 в 21:40
al-Ex Дата: Понедельник, 18.04.2016, 23:20 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 149
Репутация: 53 ±
Замечаний: 0% ±

Excel 2010
чтобы у змейки при движении через один шарик, шарик увеличивался
Вообще, не совсем ясно задачу ставите. Возможно так?[vba]
Код
di = 10
Do
For i = 1 To 10
Set Shar(i) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(i), y(i), di, di)
Next
di = di + 1 ' диаметр увеличивается на каждом шагу на 1
' ... далее по тексту
[/vba]
К сообщению приложен файл: ORIGINAL_3pr_MA.xlsm(23Kb)


Сообщение отредактировал al-Ex - Понедельник, 18.04.2016, 23:23
 
Ответить
Сообщение
чтобы у змейки при движении через один шарик, шарик увеличивался
Вообще, не совсем ясно задачу ставите. Возможно так?[vba]
Код
di = 10
Do
For i = 1 To 10
Set Shar(i) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(i), y(i), di, di)
Next
di = di + 1 ' диаметр увеличивается на каждом шагу на 1
' ... далее по тексту
[/vba]

Автор - al-Ex
Дата добавления - 18.04.2016 в 23:20
xsens Дата: Понедельник, 18.04.2016, 23:34 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Ну вот у змейки стандартный размер шаров 20 и допустим она движется и первый шар становится размером 50 ,третий шар 50 ,5 шар 50 и т.д
 
Ответить
СообщениеНу вот у змейки стандартный размер шаров 20 и допустим она движется и первый шар становится размером 50 ,третий шар 50 ,5 шар 50 и т.д

Автор - xsens
Дата добавления - 18.04.2016 в 23:34
xsens Дата: Понедельник, 18.04.2016, 23:37 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
al-Ex, при этом коде все шары увеличиваются при движении ,а можно как то чтобы по очереди они увеличивались а не все?
 
Ответить
Сообщениеal-Ex, при этом коде все шары увеличиваются при движении ,а можно как то чтобы по очереди они увеличивались а не все?

Автор - xsens
Дата добавления - 18.04.2016 в 23:37
al-Ex Дата: Понедельник, 18.04.2016, 23:55 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 149
Репутация: 53 ±
Замечаний: 0% ±

Excel 2010
а можно как то чтобы по очереди они увеличивались а не все?
[vba]
Код
di = 10
Do
'Вот  каждый шар по отдельности объявляем.
' диаметр шара задаётся переменной di
'Задавай сам как заблагорассудится, каждому шару индивидуально
'например, через 1 увеличивается.
Set Shar(1) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(1), y(1), 20, 20)
Set Shar(2) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(2), y(2), di, di)
Set Shar(3) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(3), y(3), 30, 30)
Set Shar(4) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(4), y(4), di, di)
Set Shar(5) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(5), y(5), 40, 40)
Set Shar(6) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(6), y(6), di, di)
Set Shar(7) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(7), y(7), 50, 50)
Set Shar(8) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(8), y(8), di, di)
Set Shar(9) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(9), y(9), 60, 60)
Set Shar(10) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(10), y(10), di, di)

di = di + 1 ' диаметр увеличивается на каждом шагу на 1
' ... далее по тексту
[/vba]


Сообщение отредактировал al-Ex - Понедельник, 18.04.2016, 23:57
 
Ответить
Сообщение
а можно как то чтобы по очереди они увеличивались а не все?
[vba]
Код
di = 10
Do
'Вот  каждый шар по отдельности объявляем.
' диаметр шара задаётся переменной di
'Задавай сам как заблагорассудится, каждому шару индивидуально
'например, через 1 увеличивается.
Set Shar(1) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(1), y(1), 20, 20)
Set Shar(2) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(2), y(2), di, di)
Set Shar(3) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(3), y(3), 30, 30)
Set Shar(4) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(4), y(4), di, di)
Set Shar(5) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(5), y(5), 40, 40)
Set Shar(6) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(6), y(6), di, di)
Set Shar(7) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(7), y(7), 50, 50)
Set Shar(8) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(8), y(8), di, di)
Set Shar(9) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(9), y(9), 60, 60)
Set Shar(10) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(10), y(10), di, di)

di = di + 1 ' диаметр увеличивается на каждом шагу на 1
' ... далее по тексту
[/vba]

Автор - al-Ex
Дата добавления - 18.04.2016 в 23:55
xsens Дата: Вторник, 19.04.2016, 00:35 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
al-Ex, добавляю в код и вот что происходит
 
Ответить
Сообщениеal-Ex, добавляю в код и вот что происходит

Автор - xsens
Дата добавления - 19.04.2016 в 00:35
al-Ex Дата: Вторник, 19.04.2016, 02:14 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 149
Репутация: 53 ±
Замечаний: 0% ±

Excel 2010
Ну что поставил то и получилось.


Сообщение отредактировал al-Ex - Вторник, 19.04.2016, 02:24
 
Ответить
СообщениеНу что поставил то и получилось.

Автор - al-Ex
Дата добавления - 19.04.2016 в 02:14
wild_pig Дата: Вторник, 19.04.2016, 10:26 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 458
Репутация: 85 ±
Замечаний: 0% ±

2003, 2013
[offtop]Как читаю название темы так ржать охота. "Изменение размера фигур" не лучше бы было?[/offtop]
[moder]Аналогично. Размер шаров у змейки!!! - просто супер!


Сообщение отредактировал _Boroda_ - Вторник, 19.04.2016, 12:37
 
Ответить
Сообщение[offtop]Как читаю название темы так ржать охота. "Изменение размера фигур" не лучше бы было?[/offtop]
[moder]Аналогично. Размер шаров у змейки!!! - просто супер!

Автор - wild_pig
Дата добавления - 19.04.2016 в 10:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение размера шаров (Макросы/Sub)
Страница 1 из 11
Поиск:

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