resimin kaldırılması hk.

[Faulkner]

Merhaba,

aşağıdaki vba kodunda

ürün kodunu yazınıp tuşa basınca dosyadan resim çekiyor excelde görünüyor.

birinci sorum: Yeni bir ürün kodu yazdığımda eski resimin kaldırılmasını istiyorum yoksa üst üste biniyor.
ikinci sorum: hiç tuşa bağlamadan ürün kodu yazdığımda resimi getirebilir miyimiz

yardımlarınızı bekliyorum

saygılarımla



Private Sub CommandButton1_Click()
Dim res As Picture
Dim x As Long
Dim ps As Long
ps = Range("A20000").End(xlUp).Row
For x = 2 To ps
On Error Resume Next
Range("C" & x).Select
Set res = Me.Pictures.Insert(Range("D" & x).Value)
res.Width = 100
res.Height = 100
Set res = Nothing
Range("A1").Select
End Sub

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Deneyiniz ...

Sub Resimleri_Sil()
    Dim Picture As Object
        For Each Picture In ActiveSheet.Shapes
            If TypeName(ActiveSheet.Shapes(Picture.Name).OLEFormat.Object) = Me.Pictures Then
                Picture.Delete
            End If
        Next Picture
End Sub

iyi çalışmalar

 

[Faulkner]

Merhaba Tevfik Bey,

bu kodu CommandButton1_Click kullandığımızda olacak şekilde yapılamaz mı

 

[uzmanamele]

Merhaba

Kodun 2. satırı olarak yazıp deneyin

ActiveSheet.Pictures.Delete

 

[Faulkner]

Merhaba Arkadaşım,
Deneyiniz ...

Sub Resimleri_Sil()
    Dim Picture As Object
        For Each Picture In ActiveSheet.Shapes
            If TypeName(ActiveSheet.Shapes(Picture.Name).OLEFormat.Object) = Me.Pictures Then
                Picture.Delete
            End If
        Next Picture
End Sub

iyi çalışmalar

"object doesn't spupport this property or method" uyarısı verdi

 

[Faulkner]

Merhaba

Kodun 2. satırı olarak yazıp deneyin

ActiveSheet.Pictures.Delete

hocam onu deneğimde "CommandButton1 "siliniyor.

 

[Tevfik_Kursun]

Deneyiniz ...

Private Sub CommandButton2_Click() 
    Dim Picture As Object
        For Each Picture In ActiveSheet.Shapes
            If TypeName(ActiveSheet.Shapes(Picture.Name).OLEFormat.Object) = Me.Pictures Then
                Picture.Delete
            End If
        Next Picture
End Sub

 

[Faulkner]

Deneyiniz ...

Private Sub CommandButton2_Click()
    Dim Picture As Object
        For Each Picture In ActiveSheet.Shapes
            If TypeName(ActiveSheet.Shapes(Picture.Name).OLEFormat.Object) = Me.Pictures Then
                Picture.Delete
            End If
        Next Picture
End Sub

Tevfik Bey,

Bu Ekran Geldi.
run-time error "438":
object doesn't support this property or method

vba ekranında:
If TypeName(ActiveSheet.Shapes(Picture.Name).OLEFormat.Object) = Me.Pictures Then
Sarı renk oldu. hata verdi.

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Şu dosyanızın bir örneğini yükler misiniz, lütfen?

 

[Faulkner]

Merhaba Arkadaşım,
Şu dosyanızın bir örneğini yükler misiniz, lütfen?

Merhaba,

İndir Kitap1

Dosyayı indir Kitap1

dosya.co

 

[Tevfik_Kursun]

Resimleri nereden çekiyor?

 

[Faulkner]

İndir Kitap1

Dosyayı indir Kitap1

dosya.co

hocam resim bilgisayardan çekiyor

hatta resimi ekledim. unutmuşum kusura bakma

link attım

 

[Tevfik_Kursun]

Deneyiniz ...
Resim_TK
Silinebilir bağlantı

 

[Faulkner]

Deneyiniz ...
Resim_TK
Silinebilir bağlantı

Teşekkürler

 

[Tevfik_Kursun]

Rica ederim
İyi çalışmalar

 

[Faulkner]

TEvfik Bey peki bunu CommandButton1 butonun içine ekleyebilir misiniz

 

[Tevfik_Kursun]

Eklenmesi gerekeni ekledim ben orada
Alt + F11 e basarak görebilirsiniz