sayfa içindeki resimi büyüteç ile görüntülemek

[bebar]

Merhaba;

tabloma aşağıdaki kodu kullanarak resim getiriyorum, yapmak istediğim getirilen resmin üzerine gelince büyüteç ile resmi görüntülemek.

teşekkür ederim

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Range("D61176").Select
Selection.ClearContents
Range("D2").Select


If Intersect(Target, Range("D61176")) Is Nothing Then Exit Sub
Cancel = True
Target.Font.Name = "Wingdings"
Target = IIf(Target = "ü", "", "ü")



sat1 = 6
sat2 = 45
sut1 = "S"
sut2 = "Y"

Set Adres = Range(Cells(sat1, sut1), Cells(sat2, sut2))
Set Adres2 = Cells(sat2, sut2)
Dim yer
Dim Picture As Object
For Each Picture In ActiveSheet.Shapes
If TypeName(ActiveSheet.Shapes(Picture.Name).OLEFormat.Object) = "Picture" Then
Picture.Delete
Exit For
End If

Next Picture

son = 6
ReDim uzanti(son)
uzanti(1) = ".jpg"
uzanti(2) = ".JPG"
uzanti(3) = ".bmp"
uzanti(4) = ".BMP"
uzanti(5) = ".gif"
uzanti(6) = ".GİF"

klasor = "C:\Users\marka09.IMZA\Desktop\resim yeni\"

isim = Cells(2, "E").Value

For j = 1 To son
Dosya = klasor & isim & uzanti(j)
If CreateObject("Scripting.FileSystemObject").FileExists(klasor & isim & uzanti(j)) = True Then
ActiveSheet.Shapes.AddPicture Dosya, msoFalse, msoCTrue, Adres.Left + 2, Adres.Top + 2, Adres.Width - 4, Adres.Height - 4
ActiveSheet.Cells(2, "C").Select

Exit For

End If
Next
End Sub