Can I input a picture into a cell?

[Aramin]

To make weekly reports with pictures, i'm formatting and realigning photos each time. Is there a way I can make a field on my excel sheet that would make a copy and paste function for photos simplify my work?

 

[VoG]

A code example

Sub piccy()
ActiveSheet.Pictures.Insert ("C:\example\pic.jpg")
With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
    .LockAspectRatio = False
    .Top = Range("C3").Top
    .Left = Range("C3").Left
    .Height = Range("C3").RowHeight
    .Width = Range("C3").Width
End With
End Sub