Hello swoop99,

This macro will position and size the last added shape on the active worksheet into cells "A1:A2".
Sub PositionPicture()
  
  With ActiveSheet.Shapes
    With .Item(.Count)
      .Left = .Parent.Range("A1").Left
      .Top = .Parent.Range("A1").Top
      .ScaleHeight .Parent.Range("A1:A2").Height / .Height, False
      .ScaleWidth .Parent.Range("A1:A2").Width / .Width, False
    End With
  End With
  
End Sub