Soru Excel Resim Çağırma

[metin_0606]

Merhaba,

Hayır yanlış anlamadınız, bunun çözülmesini istemiştim,

Kısaca, B2'den seçim yapıldığında, her seçim sonrası F2'ye, seçilen isme ait resim gelmeli, buraya kadar tamam,

Ancak her seçimde, F2'deki resim silinip yerine yenisi gelmeli,

Şu haliyle her seçim sonrası resimler üst üste biniyor,

Bunu aşmaya çalışıyorum,

Teşekkür ederim.

gönderdiğim çalışma yi denediniz mi

 

[metin_0606]

gönderdiğim çalışma yi denediniz mi

Her seçimde üst üste binmeden hangi ili seçtiyseniz onun resmi geliyor

 

[1Al2Ver]

Merhaba,

Elbette ki dosyayı denedim,

Ben hata yapıyor olabilirim, bu nedenle çözümlü dosyada kullandığınız kodu paylaşır mısınız ?

Teşekkür ederim.

 

[metin_0606]

Merhaba,

Elbette ki dosyayı denedim,

Ben hata yapıyor olabilirim, bu nedenle çözümlü dosyada kullandığınız kodu paylaşır mısınız ?

Teşekkür ederim.

Fazla bir şey yapmadım üst üste gelen resimleri sildim kaydettim. Sonra tekrar denedim hangi ili seçtiysem onun resmini getirdi.
Üst üste de açmadı

 

[1Al2Ver]

Merhaba,

Sanırım "üst üste açma" ifadesini anlatamadım,

İşleyiş ; B2'den seçim yaptım (Örn;Ankara) F2'ye Ankara'nın resmi geldi, sonra,

B2'den bir başka isim (Örn;Antalya) seçtim, F2'ye Antalya'nın resmi geldi,

Bu durumda Antalya'nın resmi altında, Ankara'nın resmi duruyor, Antalya'nın resmi öncekini (Ankara'yı) tam örttüğü için Ankara görülmüyor,

Antalya'nın resmini elle sildiğinizde, F2'de Ankara'nın resmi görülüyor,

Sürekli seçimlerde üst üste binen resimler dosyanın boyutunu yükseltiyor,

Benim arzum, her seçimde F2'deki resim silinsin (F2 boşaltılsın) , yapılan seçimin resmi gelsin,

Teşekkür ederim.

 

[metin_0606]

Merhaba,

Sanırım "üst üste açma" ifadesini anlatamadım,

İşleyiş ; B2'den seçim yaptım (Örn;Ankara) F2'ye Ankara'nın resmi geldi, sonra,

B2'den bir başka isim (Örn;Antalya) seçtim, F2'ye Antalya'nın resmi geldi,

Bu durumda Antalya'nın resmi altında, Ankara'nın resmi duruyor, Antalya'nın resmi öncekini (Ankara'yı) tam örttüğü için Ankara görülmüyor,

Antalya'nın resmini elle sildiğinizde, F2'de Ankara'nın resmi görülüyor,

Sürekli seçimlerde üst üste binen resimler dosyanın boyutunu yükseltiyor,

Benim arzum, her seçimde F2'deki resim silinsin (F2 boşaltılsın) , yapılan seçimin resmi gelsin,

Teşekkür ederim.

Deneyiniz

 

[byfika]

Merhabalar,
Private Sub Worksheet_Change(ByVal Target As Range) başlığının altına :
ActiveSheet.DrawingObjects.Delete veya
ActiveSheet.pictures.Delete
kodlarından birini yazarsanız önceki resmi siler ve seçtiğiniz resim sayfaya gelir. Resimleri üst üste bindirme yapmaz.
İyi çalışmalar

 

[usubaykan]

dosyanız ekteki gibidir.

Option Explicit
Public Resim As Object, u As Variant
Public Resimyolu As String, Eski_Değer

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

If [B2] <> Eski_Değer Then
    ActiveSheet.Shapes.Range(Array("" & Eski_Değer & "")).Delete
End If
    
    If [B2] <> "" Then
        If Intersect(Target, [B2]) Is Nothing Then Exit Sub
            [F2].Select
                Resimyolu = ActiveWorkbook.Path & "\" & [B2] & ".png"
                Set Resim = ActiveSheet.Pictures.Insert(Resimyolu)
                
                With Resim
                .Top = .Top
                .Left = .Left
                .Height = 400
                .Width = 600
                End With
                Resim.ShapeRange.Name = [B2]
                [B2].Select

    Else
                If [B2] = "" Then
                    Resim.Name = u
                    ActiveSheet.Shapes.Range(Array("" & Resim.Name & "")).Delete
                End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Eski_Değer = [B2]
    u = [B2]
End Sub

 

[1Al2Ver]

Merhaba byfika,

......…. Bu kod'da yapılacak değişiklik ile sadece ilgili hücredeki (F2) resim silinsin istiyorum,

Önceki mesajlarımdan bir tanesinde yukarıdaki isteğim olmuştu,

Kullandığım kod, sayfadaki tüm resim yada objeleri silmekteydi,

Sonraki çözüm önerilerinde ise, F2 dışındaki resim-objeler kalırken, bu sefer de seçilen resimler F2'de üst üste biniyordu,

Bunu aşmaya çalışmıştım,

Sayın usubaykan'ın gönderdiği dosyadaki kod ile sorun aşıldı,

İlginiz için teşekkür ederim.

 

[1Al2Ver]

Sayın usubaykan merhaba,

Tüm zahmetleriniz ve emekleriniz için çok teşekkür ederim,

Kod'u dosyama uyguladım ve sorun çözüldü,

Saygılarımla.

 

[usubaykan]

Sayın usubaykan merhaba,

Tüm zahmetleriniz ve emekleriniz için çok teşekkür ederim,

Kod'u dosyama uyguladım ve sorun çözüldü,

Saygılarımla.

Rica ederim