Measuring distances with vba

[dpaton05]

Can you use vba to measure distances in excel, such as between any given row at the bottom of the current page?

 

[Michael M]

Ok, maybe try it this way.
Put a page break at the end of Col "H" in the table thereby forcing the TextBox4 AND the signaure onto a new page !!
This will force the page break, you can adapt the picture size to suit

Sub MM1()
Dim fNameAndPath As Variant
Dim img As Picture, shp As Shape
Set shp = ThisWorkbook.Worksheets("quote_sheet").Shapes("textbox4")
fNameAndPath = Application.GetOpenFilename(Title:="Select Picture To Be Imported")
If fNameAndPath = False Then Exit Sub
    Set img = Worksheets("quote_sheet").Pictures.Insert(fNameAndPath)
If Cells(Rows.Count, "H").End(xlUp).Row > 1 Then
    Rows(Cells(Rows.Count, "H").End(xlUp).Row + 2).PageBreak = xlPageBreakManual
End If
End Sub

 

[Michael M]

An extension of Alphafrogs post in THE OTHER THREAD at https://www.mrexcel.com/forum/excel-questions/1111050-uses-range-find-method.html

could be

Sub cmdCustomSig3()
Dim fNameAndPath As Variant
Dim img As Picture, shp As Shape
Set shp = ThisWorkbook.Worksheets("quote_sheet").Shapes("textbox4")
fNameAndPath = Application.GetOpenFilename(Title:="Select Picture To Be Imported")
If fNameAndPath = False Then Exit Sub
Set img = Worksheets("quote_sheet").Pictures.Insert(fNameAndPath)
lr = Sheets("quote_sheet").TextBoxes("TextBox4").BottomRightCell.Row
Rows(lr + 2).PageBreak = xlPageBreakManual
End Sub