“Excel VBA Cómo hacer que la forma sea visible mientras se desplaza” Código de respuesta

Excel VBA Cómo hacer que la forma sea visible mientras se desplaza

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    With ActiveSheet.Shapes(1)

        .Left = ActiveWindow.VisibleRange(2, 2).Left
        .Top = ActiveWindow.VisibleRange(2, 2).Top

    End With

End Sub
Nutty Narwhal

Excel VBA Cómo hacer que la forma sea visible mientras se desplaza

Private Sub Worksheet_Activate()
    Call StartTimedRefresh
End Sub

Private Sub Worksheet_Deactivate()
    Call StopTimer
End Sub
Nutty Narwhal

Excel VBA Cómo hacer que la forma sea visible mientras se desplaza

Private eTime
Sub ScreenRefresh()
    With ThisWorkbook.Worksheets("Sheet1").Shapes(1)
        .Left = ThisWorkbook.Windows(1).VisibleRange(2, 2).Left
        .Top = ThisWorkbook.Windows(1).VisibleRange(2, 2).Top
    End With
End Sub

Sub StartTimedRefresh()
    Call ScreenRefresh
    eTime = Now + TimeValue("00:00:01")
    Application.OnTime eTime, "StartTimedRefresh"
End Sub

Sub StopTimer()
    Application.OnTime eTime, "StartTimedRefresh", , False
End Sub
Nutty Narwhal

Respuestas similares a “Excel VBA Cómo hacer que la forma sea visible mientras se desplaza”

Preguntas similares a “Excel VBA Cómo hacer que la forma sea visible mientras se desplaza”

Más respuestas relacionadas con “Excel VBA Cómo hacer que la forma sea visible mientras se desplaza” en VBA

Explore las respuestas de código populares por idioma

Explorar otros lenguajes de código