Auto size picture to cell size

[redd]

Hello,
Is there a way to insert a picture to cell,and the picture will automatically fit into the size of the cell

 

[btadams]

Assign this macro to a custom toolbar button:

Sub PutPicInCell()
'
Dim MyCell As Range
Dim vFile As Variant

    Set MyCell = ActiveCell
    vFile = Application.GetOpenFilename("All Files (*.*),*.*")
    If vFile = "False" Then Exit Sub
    
    ActiveSheet.Pictures.Insert(vFile).Select
    Selection.Top = MyCell.Top
    Selection.Left = MyCell.Left
    Selection.Width = MyCell.Width
    Selection.Height = MyCell.Height
    
    
End Sub