Makró kiegészítés hogyan?

Sziasztok.

Adott egy kis makró, amivel betallózok adott cellába képet. Azt szeretném, hogy ez a macro automatikusan beállítsa az áthelyezés és átméretezés a cellákkal együtt beállítást. Íme:

Sub insrtimg1()

Dim profile As String

On Error GoTo 0

Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogFilePicker)

With fd

.Filters.Clear

.Filters.Add "Picture Files", "*.bmp;*.jpg;*.gif;*.png"

.ButtonName = "Select"

.AllowMultiSelect = False

.Title = "Choose Photo"

.InitialView = msoFileDialogViewDetails

.Show

End With

ActiveSheet.Range("E3").Select

ActiveSheet.Shapes.AddPicture Filename:=fd.SelectedItems(1), _

LinkToFile:=msoFalse, _

SaveWithDocument:=msoCTrue, _

Left:=ActiveSheet.Range("foto2").Left + 2, _

Top:=ActiveSheet.Range("foto2").Top + 2, _

Width:=491, _

Height:=338

End Sub

Válaszokat köszönöm!!! :-)