Image being placed below line or text box

[dpaton05]

I have a spreadsheet that will have x number of lines added to it. When all lines have been added, I have a button that inserts a signature 5 lines below the lowest part. The lowest part is a line at the bottom. Underneath the line, there is a textbox that will have notes written in it sometimes. Therefore, if there is 3 lines in the notes box, I will need to insert the text box 8 lines below the line. This is my code from the button that inserts the signature.

Sub cmdGarrettSig()
        'ActiveSheet.Unprotect Password:="npssadmin"
    Dim sht As Worksheet
        Set sht = ActiveSheet
    Dim lr As Long
    'Find the last used row in Column A of target.  Change column as required
        lr = Sheets("NPSS_quote_sheet").Range("A" & Rows.Count).End(xlUp).Row + 4
            Sheets("sheet2").Shapes("ImgG").Copy
            Sheets("NPSS_quote_sheet").Paste _
                Destination:=Worksheets("NPSS_quote_sheet").Range("A" & lr + 6)
    'ActiveSheet.Protect Password:="npssadmin"
End Sub

Can someone help me update it so that the lowest part of the spreadsheet is the bottom part of the text box please?

Thanks

 

[Yongle]

Try this method
- image is placed relative to your textbox

Sub CopyImage()

    Dim shp As Shape
    Set shp = Sheets("NPSS_quote_sheet").Shapes("[I][COLOR=#ff0000]name of textbox[/COLOR][/I]")

    Sheets("Sheet2").Shapes("ImgG").Copy
    Sheets("NPSS_quote_sheet").Paste Destination:=Sheets("NPSS_quote_sheet").Cells(1, 1)
    Selection.Top = shp.Top + shp.Height
End Sub

 

[dpaton05]

Thanks Yongle, that's perfect!!