How do I get the scroll position from Microsoft Excel

When using Microsoft office automation I 开发者_Python百科want to insert images into a spreadsheet. How can I determine the current users scroll location?

In Excel you may use the VisibleRange property of the Window object, i.e.

Private Sub DirtyTest()
Dim MyW As Window, TopRow As Long, TopCol As Long

    Set MyW = Windows(1)                ' index 1 always refers to the window displayed
    TopRow = MyW.VisibleRange.Cells.Row
    TopCol = MyW.VisibleRange.Cells.Column

    ' any other code

End Sub

Hope that helps

Good luck MikeD