Soru En Son Satıra Resim Eklemek

[bulentkars]

Arkadaşlar Merhaba,

Banka Talimat Dosyam var, Solda üst köşede şirket logom var (Resim7) aynı logoyu J Satırında Genel Toplam yazsının altına almak istiyorum. Genel Toplam dolu satıra göre sabit olmadığı için yardımınıza ihityacım var. Bu konuda yardımcı olabilirseniz sevinirim.

 

[uzmanamele]

Merhaba

Alt bilgiye resim eklerseniz sorununuz çözülür.

 

[bulentkars]

Merhaba,

Alt Bilgiden yaptığımda sayfanın en altında gösteriyor, benim örneğin genel toplam 15.satırda yazıyorsa resme hemen altına kaşe olarak kullanmak istiyorum.

 

[EmrExcel16]

Merhaba , deneyiniz..

Sub Test()
    Dim Resim
    For Each Resim In Sheets("Sayfa1").Shapes
        If Resim.Name = "Picture 7" Then
            Resim.Copy
            ActiveSheet.Paste Destination:=Cells(Cells(Rows.Count, 10).End(3).Row + 1, 10)
            'Resim.Delete
        End If
    Next
End Sub

 

[bulentkars]

Merhaba,

Çok Teşekkür ederim. Tam istediğim gibi olmuş ancak, Resim.delete çalıştırdığda mevcut resim 7 ve kopya 7 siliniyor, ben sadece copyalanan resmi silmek istiyorum, üstte solda kalan resimsabit kalacak

 

[EmrExcel16]

Merhaba , sol üstteki resmi silmesi normal de kopya olan resimin silinmesi normal değil , çünkü yeni oluşan resmin ismi artık "Resim 7" değil yeni bir isimle oluşuyor olması gerekli en azından bende o şekilde.

 

[bulentkars]

Merhaba,

Sol Üstteki resim adı " Resim 7" diğer kopyala yaptığımız aynı isimle yapıyor, farklı isim vermiyor.

 

[EmrExcel16]

Bunun için örnek bir dosya eklerseniz bakabilirim.

 

[bulentkars]

Merhaba,

Dosya ekte, Resim sil butonunu tıkladığımda aşağıdaki resmin silinmesini istiyorum, sol üst köşedeki resim sabit yerine kalacak. isimler aynı olduğu için 2 sinide siliyor.

 

[EmrExcel16]

Buyrun..

 

[bulentkars]

Merhaba,

Çok Teşekkür Ederim elinize sağlık..

 

[EmrExcel16]

Merhaba rica ederim, bu da alternatif olsun , iyi çalışmalar..

Sub İmza_Ekle()
    Dim Resim
    For Each Resim In ActiveSheet.Shapes
        If Resim.Name = "Resim 7" Then
            Resim.Copy
            ActiveSheet.Paste Destination:=Cells(Cells(Rows.Count, 10).End(3).Row + 3, 10)
            Set shp = ActiveSheet.Shapes(ActiveSheet.Shapes.Count): shp.Name = "imza"
        End If
    Next
End Sub
    
Sub İmza_Sil()
    Dim Resim
    For Each Resim In ActiveSheet.Shapes
        If Resim.Name = "imza" Then Resim.Delete
    Next
End Sub

 

[bulentkars]

Çok Teşekkür ederim...