VBA로 마우스 오버 할 때 어떻게 강조 표시 할 수 있습니까?

Question

VBA로 마우스 오버 할 때 어떻게 강조 표시 할 수 있습니까? 나는 VBA에 마르코 (Marco)를 쓴다. 새로운 모양을 만든 후에 마우스를 올려 놓을 때 모양이 강조 표시되어야한다. 어쩌면 색이 있겠 니?

는 argonist

Answer 1

나는이 방법을 발견했다.

myshape.ActionSettings(ppMouseOver).AnimateAction = msoTrue 

그러나 색상과 라인 크기를 변경할 수 없습니다. 그것은 나를 위해 충분하다. 고맙습니다.

Answer 2

매크로 특정 이벤트에서 실행해야합니다 감사합니다. 그래서 파워 포인트에서 사용하면 다음과 같은 옵션이 있습니다

• MouseDown
• MouseMove 이벤트를
• 이는 MouseUp

당신은 무엇을 수행하는 이벤트 정확하게 당신에게 F1 키를 칠 수있다.
VBA에는 'MouseOver'라는 이벤트가 없으므로 마우스를 가져갈 때 'MouseMove'이벤트를 사용하여 색상을 변경 한 다음 'MouseMove'이벤트를 사용하여 다시 변경해야하는 등 즉석에서 작업해야합니다. 마우스를 다른 것으로 옮길 때 기본 색상.
당신은 Visual Basic의 창

오히려 당신에게 동일을받을 수 있습니다 파워 포인트 애니메이션 효과와 함께 놀러 VBA가 사용하는 것보다 다른 옵션에서 개체에 대한 드롭 다운 목록에서이 모든 이벤트를 찾을 수 있어야합니다 결과.

Answer 3

예를 들어, 많은 것들을 추가하는 좋은 방법입니다 (쇼 모드에서 코드 실행)

'zmien_w_trybie_prezentacji - VBATools.pl 
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
Call kolor2(Image1) 
End Sub 

Sub kolor2(osh As Image) 
    If osh.BackColor = 255 Then _ 
     osh.BackColor = 13998939 Else _ 
     osh.BackColor = 255 
End Sub