白痴的老朽，请求修改一个宏，表示感谢！

常扬帆

经过好多天的泡坛，终于在本坛找到了一个，适合老朽的宏，我带着宏找文件夹里的图片，非常满意！也衷心地感谢作者！但是，我还有一个想法，此宏，如果能根据单元格的大小变化，充满本单元格就更好了，但是我不知道能不能也不会，能否请高手帮我修改修改？万分感谢！
宏如下：

Sub 插入图片()
Dim myfile As FileDialog
Set myfile = Application.FileDialog(msoFileDialogFilePicker)
With myfile
.InitialFileName = "C:\" '根据需要设置
If .Show = -1 Then
For Each fn In .SelectedItems
Set mypic = Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True)
mypic.Width = 80 '根据需要设置
mypic.Height = 60
Selection.MoveDown
Next fn
Else
End If
End With

End Sub

常扬帆

曲线救图，自己解决了。此帖不烦大家了。谢谢。