Подсветка автофигуры Excel с помощью WinAPI

[Mishel825]

Всем доброе время суток !

Для подсветки елемента управления "кнопка" в Excel используется такой, например, код:

 Private Sub CommandButton1_MouseMove(ByVal Button As Integer, _
               ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
               With CommandButton1
                   .BackColor = Abs(X * 100)
                   .ForeColor = Abs(Y * 100)
                   .Caption = "X= " & X & vbLf & "Y=" & Y
               End With
               End Sub

Вопрос: есть ли код средствами WinAPI для подсветки рисованной кнопки Excel (автофигуры), так чтобы при наведении указателя мыши на автофигуру менялся бы цвет автофигуры, а после отвода указателя мыши за пределы автофигуры восстанавливалась бы преждняя заливка ?

[Mishel825]

Запасной вопрос :

подсветку автофигуры в Excel можно осуществить только с помощью Win API, или есть и другие средства для подсветки автофигуры в Excel ?

[EducatedFool]

подсветку автофигуры в Excel можно осуществить только с помощью Win API, или есть и другие средства для подсветки автофигуры в Excel ?

Встроенных средств, как уже говорилось, нет.

Но, если очень хочется, то можно извратиться, и реализовать это без использования WinAPI (используя прозрачный Label):

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Label1.Caption = "X= " & X & vbLf & "Y=" & Y
    Call ОкраскаКнопок(X, Y)
End Sub

Sub test()
    MsgBox "макрос запущен", vbInformation
End Sub

Sub ОкраскаКнопок(ByVal X As Single, ByVal Y As Single)
    d = 5: Dim sha As Shape
    For Each sha In Me.Shapes
        With sha
            If .Name Like "MyButton*" Then
                НадКнопкой_поX = ((Abs(.Left - X) < d) Or (Abs(X - .Left - .Width) < d) Or (X - .Left - .Width) * (.Left - X) > 0)
                НадКнопкой_поY = ((Abs(.Top - Y) < d) Or (Abs(Y - .Top - .Height) < d) Or (Y - .Top - .Height) * (.Top - Y) > 0)
                КурсорРядом = НадКнопкой_поX And НадКнопкой_поY
                НоваяПрозрачность = IIf(КурсорРядом, 0.7, 0.1)
                If НоваяПрозрачность <> .Fill.Transparency Then
                    .Fill.Transparency = НоваяПрозрачность
                    '.TextFrame.Characters.Font.Bold = КурсорРядом
                End If
            End If
        End With
    Next
End Sub

См. пример файла:

[Mishel825]

EducatedFool, большое спасибо !

В принципе это решение. Если автофигура тёмная, то при наведении указателя мыши превращается в светлую. Здесь контраст достаточный.
Однако если автофигура светлая, то при наведении указателя мыши превращается в ещё светлее. Здесь контраст слабый. Необходимы переходы - тёмный в светлый, светлый в тёмный.
Кнопка выбрана светлая.
Главный недостаток - при выделении ячейки рядом с кнопкой появляется очень заметный диапазон (5*6). Также лучше без надписей в левом верхнем углу.

[EducatedFool]

Здесь контраст слабый. Необходимы переходы - тёмный в светлый, светлый в тёмный.

Ну так а что мешает Вам красить фигуру в другие цвета?
Я для примера привёл вариант и изменением прозрачности кнопок.

Главное тут - отловить события приближения\удаления курсора от кнопок, а как именно выделить кнопки - это уже мелочи.

Главный недостаток - при выделении ячейки рядом с кнопкой появляется очень заметный диапазон (5*6).

При желании можно от этого избавиться.
А лишь продемонстрировал Вам возможность решить задачу без использования WinAPI.

Также лучше без надписей в левом верхнем углу.

Ну а что, Вы не можете самостоятельно стереть в коде одну строку?
Label1.Caption = "X= " & X & vbLf & "Y=" & Y