dpaton05
Well-known Member
- Joined
- Aug 14, 2018
- Messages
- 2,362
- Office Version
- 365
- 2016
- Platform
- Windows
I have code to insert a set image. Could someone tell me how to alter it so it can insert a custom image please?
Code:
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