Сделать красивую кнопку на макрос

[Uralmaster]

Вариант такой:
создаю программой Agama Web Buttons кнопку состоящую из двух изображений:

Одно в качестве исходного вида кнопки - 1 изображение (рис)
Второе (идентичное по размерам 2 изображение) появляется на пер план при наведении на кнопку курсора мыши

обе наверное надо привязать к одному макросу ??

Исходное положение:вторую спрятать под первую на задний план
подводим курсор на 1 кнопку(1 изображение) - появляется при этом вторая спрятанная кнопка(2 изображение) + всплывающая подсказка - если нажимаем - срабатывает макрос

не нажимаем - просто уводим курсор - восстанавливается исходный вид кнопки (1 изображение)

Возможно ли такое сделать ?

Кнопки в файлике

[doober]

Если примитивно,то как во вложении

[Uralmaster]

работало на как то нестабильно - при уводе курсора мыши бывает что картинка не меняется
уменьшил копку в UserForm - вроде нормально

еще вопрос - как в UserForm рисунок кнопки вставить чето туплю ..

[doober]

Есть два варианта.1добавляете на лист ImageList1 и в него загружаете картинки.
Так проще.И потом с него берете нужную.
Лист не самое удачное решение для таких кнопок.
Слишком быстро мышку двигаете.Увеличте размеры Image1 под кнопкой


На форму в новый Image в свойствах есть Picture нажмите кнопку и выберите картинку в диалоге

[Uralmaster]

а всплывающую подсказку реально сделать при наведении на кнопку ?

[R Dmitry]

Сообщение от Uralmaster

а всплывающую подсказку реально сделать при наведении на кнопку ?

Uralmaster так может пора на VB перебираться, че excel то мучить

[doober]

подсказка.
Если хотите.как конфетку,ставите глобальный хук на мышку,и далее все без проблем решается.

PS:не каждый начинающию юзер это сможет сделать

[Uralmaster]

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

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.Font.Bold = True
CommandButton1.BackColor = &HFF00&
'With CommandButton1
'.ControlTipText = "Телефоны клиентов"
'End With
End Sub
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.Font.Bold = False
CommandButton1.BackColor = &H8000000F
End Sub

работает но
1. всплывающие подсказки сделал гиперссылками что плохо
как Поставить на событие MouseMove появление надписи ?
пробовал

'With CommandButton1
'.ControlTipText = "Телефоны клиентов"
'End With

не работает тк вроде такое только в форме можно сделать

2.бывает что цвет подсветки не меняется(не убирается), когда убираешь курсор или макрос срабатывает
как это побороть?
советовали - расширьте размер Image - но это не подходит тк при клике под кнопкой можно случайно попасть в поле Image

файл с примером во вложении