Hi there, just to add, here's an example of the Macro I recorded to achieve this:
Sub Move_images()'
' Move_images Macro
'
'
ActiveSheet.Shapes.Range(Array("image18.png")).Select
Selection.Copy
Sheets("Sheet1").Select
Range("D8").Select
ActiveSheet.Paste
Selection.ShapeRange.ScaleWidth 0.63, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.48, msoFalse, msoScaleFromTopLeft
Sheets("DATABASE").Select
ActiveSheet.Shapes.Range(Array("image25.png")).Select
Selection.Copy
Sheets("Sheet1").Select
Range("L8").Select
ActiveSheet.Paste
Selection.ShapeRange.ScaleWidth 0.63, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.47, msoFalse, msoScaleFromTopLeft
Sheets("DATABASE").Select
ActiveSheet.Shapes.Range(Array("image8.jpg")).Select
Selection.Copy
Sheets("Sheet1").Select
Range("T8").Select
ActiveSheet.Paste
Selection.ShapeRange.ScaleWidth 0.645, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.48, msoFalse, msoScaleFromTopLeft
Sheets("DATABASE").Select
ActiveWindow.SmallScroll Down:=1
ActiveSheet.Shapes.Range(Array("image21.png")).Select
Selection.Copy
Sheets("Sheet1").Select
Range("AB8").Select
ActiveSheet.Paste
Selection.ShapeRange.ScaleWidth 0.64, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.475, msoFalse, msoScaleFromTopLeft
Sheets("DATABASE").Select
ActiveWindow.SmallScroll Down:=1
ActiveSheet.Shapes.Range(Array("image22.png")).Select
Selection.Copy
Sheets("Sheet1").Select
Range("D30").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=11
Selection.ShapeRange.ScaleWidth 0.635, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.475, msoFalse, msoScaleFromTopLeft
Sheets("DATABASE").Select
ActiveWindow.SmallScroll Down:=2
ActiveSheet.Shapes.Range(Array("image23.png")).Select
Selection.Copy
Sheets("Sheet1").Select
Range("L30").Select
ActiveSheet.Paste
Selection.ShapeRange.ScaleWidth 0.6331658291, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.4773869347, msoFalse, msoScaleFromTopLeft
Sheets("DATABASE").Select
ActiveSheet.Shapes.Range(Array("image16.jpg")).Select
Selection.Copy
Sheets("Sheet1").Select
Range("T30").Select
ActiveSheet.Paste
Selection.ShapeRange.ScaleWidth 0.63, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.495, msoFalse, msoScaleFromTopLeft
Sheets("DATABASE").Select
ActiveWindow.SmallScroll Down:=1
ActiveSheet.Shapes.Range(Array("image19.png")).Select
Selection.Copy
Sheets("Sheet1").Select
Range("AB30").Select
ActiveSheet.Paste
Selection.ShapeRange.ScaleWidth 0.62, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.485, msoFalse, msoScaleFromTopLeft
ActiveWindow.SmallScroll Down:=-11
End Sub
Hope it helps specify what I'm struggling to understand and build upon.