Команда для изменения цвета фигур

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Команда для изменения цвета фигур (Макросы/Sub)

xsens

Дата: Воскресенье, 13.03.2016, 16:24 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте.
Есть несколько овалов и нужно написать команду(С помощью KeyDown) чтобы при нажатии на кнопку находящейся на форме эти овалы перекрашивались например из синих в красный цвет ,потом еще раз при нажатии из красных в зеленых.
Заранее спасибо..

Файл прекрепил.
Изменить допустим те овалы что розовые.

К сообщению приложен файл: Konkurs.xlsm (28.8 Kb)

Сообщение отредактировал xsens - Воскресенье, 13.03.2016, 16:25

Ответить

Karataev

Дата: Воскресенье, 13.03.2016, 21:05 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

Тестируйте на листе Тест. Макрос перекрашивает желтые овалы в красный цвет.

К сообщению приложен файл: Konkurs_v2.xlsm (17.8 Kb)

Сообщение отредактировал Karataev - Воскресенье, 13.03.2016, 21:35

Ответить

xsens

Дата: Воскресенье, 13.03.2016, 22:04 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Там есть ,просто нужно открыть изменение макросов и там будет форма (UserForm1) где есть кнопка "Играть" и при нажатии запускается игра -змейка- и тамже появляются овалы в том числе и розовые ,вот я и говорил про то что создать новую кнопку и чтобы при нажатии на нее перекрашивались эти овалы.

Ответить

xsens

Дата: Воскресенье, 13.03.2016, 22:06 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Вот получилось ,только не те овалы
[vba]

Код

Private Sub CommandButton2_Click()
Dim sha As Shape
For Each sha In Sheets("Лист1").Shapes
Select Case sha.Fill.ForeColor.RGB
Case vbBlue
sha.Fill.ForeColor.RGB = vbWhite
Case vbRed
sha.Fill.ForeColor.RGB = vbGreen
Case vbGreen
sha.Fill.ForeColor.RGB = vbYellow
Case vbYellow
sha.Fill.ForeColor.RGB = vbBlue
Case vbWhite
sha.Fill.ForeColor.RGB = vbRed
End Select
Next
End Sub

[/vba]
[moder]Оформляйте коды тегами (кнопка #)
На первый раз поправила за Вас[/moder]

Сообщение отредактировал Manyasha - Воскресенье, 13.03.2016, 22:20

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Команда для изменения цвета фигур (Макросы/Sub)

Страница 1 из 1
1