Hücreye Resim Ekleme

[banseker]

Excel'de seçilen bir hücreye butona tıklayınca bir ikon atmak istiyorum.Yardımcı olursanız sevinirim...

 

[Orion1]

Merhaba.
Aşağıdaki kodları Kendi resim dosyanızın yolunu yazarak denermisiniz?

Sub Resim_Ekle()
    Range("A1").Select
    ActiveSheet.Pictures.Insert("C:\Evren\Resimler\Evren.jpg").Select
    'En Boy Oranı Sabit Değil.İstediğimiz Boyut Veriliyor.
    'Dikkat Boyut cm Değil İnç
    'EnBoy oranı sabit olmasını istiyorsak msoFalse Yerine msoTrue yazılacak
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Height = 70.5
    Selection.ShapeRange.Width = 57
    Range("A5").Select
End Sub

 

[banseker]

Kodları denedim.Ama seçtiğim hücreye değilde rastgele bir hücreye atıyor ayrıca resmi hücreye gömmüyor.

 

[banseker]

dosya ekte incelerseniz....

 

[Orion1]

Merhaba.
Aşağıdaki kodları denermisiniz?
Sorduğunuzdan anladığım kadarı ile yaptım.

Sub Resim_Ekle()
    ActiveSheet.Pictures.Insert("C:\Evren\Resimler\Evren.jpg").Select
    'En Boy Oranı Sabit Değil.İstediğimiz Boyut Veriliyor.
    'Dikkat Boyut cm Değil İnç
    'EnBoy oranı sabit olmasını istiyorsak msoFalse Yerine msoTrue yazılacak
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Height = ActiveCell.Height
    Selection.ShapeRange.Width = ActiveCell.Width
    Range("A5").Select
End Sub

 

[banseker]

teşekkür ederim bu sefer istediğim gibi oldu.

 

[Orion1]

Rica ederim.
İyi çalışmalar.