dpaton05
Well-known Member
- Joined
- Aug 14, 2018
- Messages
- 2,352
- Office Version
- 365
- 2016
- Platform
- Windows
I have some code that used to work. It would put an image a set distance below textbox4 but I no longer have that text box. I just want it entered the same distance below the last entered item. Can someone help me with the vba please?
This is the code I had that worked before I got rid of the text box.
This is the code I had that worked before I got rid of the text box.
VBA Code:
Sub cmdGSig()
Dim shp As Shape
Set shp = ActiveSheet.Shapes("textbox4")
Sheets("Sheet2").Shapes("ImgG").Copy
ActiveSheet.Paste Destination:=ActiveSheet.Cells(1, 1)
Selection.Top = shp.Top + shp.Height + "50"
End Sub