Excel VBA Shapes 48 Evento MoveMouse comentário shapes

Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções

Excel VBA Shapes 48 Evento MoveMouse comentário shapes

EVENTO MOVEMOUSE SHAPES – MOSTRAR/OCULTAR COMENTÁRIOS
Com esses eventos e macros do Aplicativo Microsoft Excel VBA(Visual Basic Application),
Para iniciar a execução do procedimento MOVEMOUSE sobre as imagens, ligamos no evento Activate da folha de Planilha, então deve-se desativar a folha de planiha, isto é ir para outra folha de planilha e voltar para ativar os macros e procedimentos.
‘//======’
Public Declare Function GetCursorPos Lib “user32” (lpPoint As POINT) As Long
Public Type POINT
x As Long
y As Long
End Type
Public p As POINT
Public vLoop
Public sbESQUERDA, sbTOPO, SaberX, SaberY ‘//==’

Sub PassarMouseSobre(ShapeSB)
ShapeCOMENTARIO = ShapeSB & “comentario”
GetCursorPos p
If (p.y – sbTOPO) / SaberY > ActiveSheet.Shapes(ShapeSB).Top And _
(p.y – sbTOPO) / SaberY < ActiveSheet.Shapes(ShapeSB).Top + ActiveSheet.Shapes(ShapeSB).Height And _
(p.x – sbESQUERDA) / SaberX > ActiveSheet.Shapes(ShapeSB).Left And _
(p.x – sbESQUERDA) * SaberX < ActiveSheet.Shapes(ShapeSB).Left + ActiveSheet.Shapes(ShapeSB).Width Then
ActiveSheet.Shapes(ShapeCOMENTARIO).Visible = True
ActiveSheet.Shapes(ShapeCOMENTARIO).Left = ActiveSheet.Shapes(ShapeSB).Left
ActiveSheet.Shapes(ShapeCOMENTARIO).Width = ActiveSheet.Shapes(ShapeSB).Width
ActiveSheet.Shapes(ShapeCOMENTARIO).Top = _
ActiveSheet.Shapes(ShapeSB).Top + ActiveSheet.Shapes(ShapeSB).Height + 2
Else
ActiveSheet.Shapes(ShapeCOMENTARIO).Visible = False
End If
End Sub
 ‘//=====’
Sub sbx_fim_execucao()
vLoop = False
For Each s In ActiveSheet.Shapes
s.Visible = True
Next s
End Sub
‘//=====’ NOS EVENTOS ATIVAR E DESATIVAR FOLHA DE PLANILHA
Private Sub Worksheet_Activate()
vLoop = True
SaberY = 1.3
SaberX = 0.8
Do While vLoop
sbTOPO = 140 – Cells(ActiveWindow.ScrollRow, 1).Top * SaberY
sbESQUERDA = 50 – Cells(ActiveWindow.ScrollColumn, 1).Left * SaberX
ShapeSB = “Image1”
PassarMouseSobre ShapeSB
ShapeSB = “Image2”
PassarMouseSobre ShapeSB
DoEvents
Loop
End Sub
‘//===’
Private Sub Worksheet_Deactivate()
vLoop = False
End Sub
‘//===’

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.

Compre pelo PagSeguro		Compre pelo PayPal

Material Didático: Curso Excel VBA Expert

 Excel VBA Shapes 48 MoveMouse comentário shapes