Soru Userform Üzerinden Seçilen Resimleri Silmek

[Hsn55]

İyi akşamlar
Ana sayfa da Userform1 açtığımda bur da ki butonu tıklayıp resim seçtiğimizde ilgili resimler Userform1, Resim ve Kadastro sayfasına geliyor. Fakat Kadastro ve Resim sayfasında ki tüm resimler siliniyor. Sadece dosyadan resim seçtiğimizde bir önceki resimler siline bilir mi?. Eklenen resim haricindekiler kalacak.

https://dosyam.org/1Ppr/Resim_Al.xlsm

 

[halit3]

Merhaba
Benzer farklı konularınız var her halde ofis proğramının farklı olduğundan dolayı sonuç alamıyorsunuz.
aşağıdaki kodu resim sayfasında resimler olsun ve resim sayfasında çalıştırın

AA. AB. AC. AD hücrelerindeki sonucu buraya yazın bir bakalım.

Sub deneme()
Dim Picture As Object
For Each Picture In ActiveSheet.Shapes
sat = sat + 1
Cells(sat, "AA") = Picture.Type
Cells(sat, "AB") = Picture.Name
Cells(sat, "AC") = Picture.TopLeftCell.Row
Cells(sat, "AD") = Picture.TopLeftCell.Column

Next Picture

End Sub

 

[Hsn55]

Anlamadım . Halit bey. Resim sayfasına yapmış olduğunuz kodu uyguladım. Sonra userformdan dosya seçip açtım. Resimler Kadastro ve resim sayfasına geldi. Fakat yine resim sayfasına harici eklediğim resimler silindi.

 

[halit3]

Benim yazdığım bu değil resimler geldikten sonra RESİM sayfasında yukarıdaki gönderdiğim kodu çalıştır ve
AA. AB. AC. AD sutunlarındaki sonucu buraya yazın bir bakalım.

 

[halit3]

Örnek Resim ekliyorum buradaki değerler ofis 2007 de farklı ofis 2016 da farklı çıkıyor.
sayfaya 4 adet resim ekledim bir tane komut düğmesi bir tane da yukarı ok resmi var
sonuç böyle 6 adet nesne mevcut

 

[halit3]

Anlaşılmadığımı düşünerek Yeni resim ekliyorum.

 

[halit3]

Sizin dosyanızdaki kod resimleri birleştirmiyor sadece yan yana ve alt alta diziyor.
aşağıdaki linkdeki resimler ve birleştirilmiş hali var

resim_birlestir.rar dosyasını indir - download

resim_birlestir.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc