Цвет ярлычка листа

Автор Ra, 24.07.2012, 23:32

« назад - далее »

Ra

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

nilem

Например. В модуль листа
Option Explicit
Dim bu As Boolean

Private Sub CommandButton1_Click()
Me.CommandButton1.BackColor = Choose(bu + 2, vbRed, vbGreen)
Me.Tab.Color = Choose(bu + 2, vbRed, vbGreen)
bu = Not bu
End Sub


Ra

Спасибо. а не могли бы на примере показать?)