Row_PixelLocation

Gets the cell row where a certain shape is located by passing shape.Top number
In fact, gets what row certain pixel is located

CodeFunctionName

What is this?

Public

Tested

Original Work

Function Row_PixelLocation(dTop)
    ' Gets the cell row where a shape is located
    ' In fact, gets what row certain pixel is located
    Row_PixelLocation = 1
    For I = 1 To 50000
        If Range("A" & I).Top > dTop Then
            Row_PixelLocation = I - 1
            Exit For
        End If
    Next
End Function

dTop