VBA to insert a custom image

[dpaton05]

I have code to insert a set image. Could someone tell me how to alter it so it can insert a custom image please?

Sub cmdJakeSig()
    Dim shp As Shape
    Set shp = ThisWorkbook.Worksheets("sheet1").Shapes("textbox4")
        Sheets("Sheet2").Shapes("ImgJ").Copy
        Sheets("sheet1").Paste Destination:=Sheets("sheet1").Cells(1, 1)
        Selection.Top = shp.Top + shp.Height + "50"
    'ActiveSheet.Protect Password:=""
End Sub

 

[dpaton05]

Even if I do that, the image is still split between both pages if nearing the bottom.

 

[Michael M]

In that case, I'm afraid I can't help you....and I note that there has been no input from anyone else, so I'm guessing it's a little tougher than you think !!!

 

[dpaton05]

Thank you for trying Michael

 

[dpaton05]

Could anyone else help me please?

To summarise, I have a spreadsheet with a button that inserts a custom signature image several lines below a notes box. The notes box is below a table that can have lines added to it for additional information to be entered. If enough lines have been added to the table or enough text written in the notes box to place the bottom of the notes box close to the bottom of the page, the custom signature image is placed half on one page and half on the next. If this happens, I need the code to push it to the second page so it is not split between pages.

 

[Michael M]

A couple of things to consider
1. Make the macro "fit to page" so everything is reduced slightly to fit one page
2. As mentioned before, force a page break at the end of the data in Col "H", which will force the notes box AND the sgnature onto the second page

 

[dpaton05]

But if I make it fit to one page, it might be very small as the quote could be up to 8 pages long. If this is squeezed into one page, the text will be very small.

 

[Michael M]

You did ask for ideas !
There is still option 2.