İmage Üzerindeki Resmi Koşullu Silme

[mekist]

Merhaba

Aşağıdaki kod ile userform üzerindeki image nesnesine resim çektiriyorum

Bu koddan bağımsız olarak;
Örneğin A2 hücre değişmesi durumunda (bu arada hücrenin değişmesini ListBox üzerinden yapıyorum) ve image nesnesinde resim varsa silsin
Bazen resim olmayabiliyor, o nedenle var yok kontrolü yaptırayım dedim olmadı, hatayı görmesin dedim o da olmadı

Nasıl düzenlemem gerekiyor

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Intersect(Target, [A2]) Is Nothing Then Exit Sub

Image1.Picture = LoadPicture("")

End Sub

Resim Yükleme

Private Sub ListBox5_Click()

Range("G3") = Me.ListBox5
Set Grafik = Shapes("Grafik1").Chart
Grafik.Export VBA.Environ("TEMP") & Application.PathSeparator & "Grafik1.jpg"
Me.Image1.Picture = LoadPicture(VBA.Environ("TEMP") & Application.PathSeparator & "Grafik1.jpg")

End Sub

 

[Korhan Ayhan]

A2 hücresi nasıl değişiyor?

Ayrıca Image nesnesi userform üzerinde olduğu için başına bunu eklemeniz gerekir.

UserForm1.Image1.Picture = LoadPicture("")

 

[mekist]

UserForm1 ekleyince oldu, teşekkür ederim oldu

A2 hücresi UserForm üzerindeki ListBox seçimiyle değişiyor