fit pictures in cell

[awais]

is there a way to fit inserted pictures in cell i insert about 100 pictures which are not fit in cell is there a way to fit them i cells (pictures are of different in sizes)

thanks.

 

[VoG]

Try like this

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