Прозрачность BackColor при нажатии на label

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

Прозрачность BackColor при нажатии на label (Макросы/Sub)

MAK93

Дата: Среда, 03.05.2017, 11:24 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 18

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

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

2016

Добрый день, дорогие форумчане!
Возникла проблема, нужно чтобы по нажатии на label происходило событие mousedown и он не перекрывал стоящие за ним графические объекты( был прозрачным).
Я ставлю BackStyle = Transparent, но при нажатии на label появляется его backcolor и перекрывает все((

К сообщению приложен файл: 9863185.xlsx (11.9 Kb)

Ответить

nilem

Дата: Среда, 03.05.2017, 16:18 | Сообщение № 2

Группа: Авторы

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

Сообщений: 1613

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

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

Excel 2013, 2016

MAK93, привет
не вот эдак вот ли?:
[vba]

Код

Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With Me.Label1
    If .BackStyle = fmBackStyleOpaque Then
        .BackStyle = fmBackStyleTransparent
    Else
        .BackStyle = fmBackStyleOpaque
    End If
End With
End Sub

[/vba]