Excel Resim Ekleme hak.

[mydestek]

- Bu kod Excel hücre büyüklüğüne göre resimi kendi sıkıştırıyor.
- Kucuk adında resimleri küçültülmüş hallerini tutuyorum,
- Excel Kucuk klasöründe ki,
- Köprü ise Kucuk bir üst klasöründeki aynı isimli resme gidiyor.
Şeklinde.
Faydalı olması dileği ile.

Sub xresimyukle()
Dim xresimsec As String
Dim resimyol As String
Dim Adres As Range
Set Adres = Selection
xresimsec = Application.GetOpenFilename()
On Error Resume Next
Set pic = ActiveSheet.Pictures.Insert(xresimsec)
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Height = (Adres.Height - 8)
.Width = (Adres.Width - 8)
.Top = (Adres.Top + 4)
.Left = (Adres.Left + 4)
.Placement = (xlMoveAndSize)
End With
resimyol = Replace(xresimsec, "\Kucuk\", "\")
ActiveSheet.Hyperlinks.Add Anchor:=pic.ShapeRange.Item(1), Address:=resimyol

End Sub