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

 

[Michael M]

Shapes("ImgJ").Copy

What is this Dave ??
Are you copying and pasting Textbox4 or the picture "ImgJ" ??

 

[Michael M]

I think this is what you are trying to do ??
At least it should get you started

Sub MM1()
Dim fNameAndPath As Variant
Dim img As Picture
fNameAndPath = Application.GetOpenFilename(Title:="Select Picture To Be Imported")
If fNameAndPath = False Then Exit Sub
    Set img = ActiveSheet.Pictures.Insert(fNameAndPath)
    With img
       .Left = Sheets("sheet1").Cells(1, 1)
       .Top = Sheets("sheet1").Cells(1, 1)
    End With
End Sub

 

[dpaton05]

What is this Dave ??
Are you copying and pasting Textbox4 or the picture "ImgJ" ??

ImgJ is the image I am pasting. It is stored on another sheet. I am putting it below textbox4 on sheet1.

 

[dpaton05]

Textbox 4 could have x number of lines in it.

 

[dpaton05]

Thanks Michael,

That worked, just put the image in the centre over 2 pages. I need it left aligned on the first page.

Here is my code.

Dim fNameAndPath As Variant
Dim img As Picture, shp As Shape
Set shp = ThisWorkbook.Worksheets("sheet1").Shapes("textbox4")

fNameAndPath = Application.GetOpenFilename(Title:="Select Picture To Be Imported")
If fNameAndPath = False Then Exit Sub
    Set img = Worksheets("sheet1").Pictures.Insert(fNameAndPath)
    With img
       .Top = shp.Top + shp.Height + "50"
    End With

Thanks.

 

[dpaton05]

I worked it out Michael, just added .left = "0" to the end of the with block.

Thanks

 

[dpaton05]

How could I change the code so if the image was split between 2 pages, it would move the image to the second page?

 

[Michael M]

What is the relationship between txtbox 4 and the inserted shape ??
Why not simply place the new image

Sub MM1()
Dim fNameAndPath As Variant
Dim img As Picture, shp As Shape
Set shp = Worksheets("sheet1").Shapes("textbox 4")
fNameAndPath = Application.GetOpenFilename(Title:="Select Picture To Be Imported")
If fNameAndPath = False Then Exit Sub
    Set img = Worksheets("sheet1").Pictures.Insert(fNameAndPath)
    With img
       .Left = 0
       .Top = shp.Top + shp.Height + 50
    End With
End Sub

 

[dpaton05]

What is the relationship between txtbox 4 and the inserted shape ??

Textbox4 is a notes text box and the inserted image is a signature that must be a set distance from the bottom of the notes.