For Next kullanımı

[xternet]

Merhaba arkadaşlar

Aşağıdaki makro kodunda yapmak istediğim, exceldeki birkaç tane otomatik şekil içerisine ard arda resim eklemek. Bunu for-next döngüsüyle yaparım diye düşündüm ama nasıl kullanacağımı bilemedim. Sanırım yazmaya çalıştığım kod ne demek istediğimi anlatıyor.
(Döngüde kullanmaya çalıştığım i'yi belirgin göstermeye çalıştım.)

Sub resimekle

For i = 1 To 2

ActiveSheet.Shapes("AutoShape i " ).Select
Selection.ShapeRange.Fill.UserPicture _
"C:\Users\Yavuzun_Ofisi\Desktop\Not Defteri Y.KOÇ\Resim\ i .jpg"

Next

End

 

[xternet]

Soruda değişiklik

Arkadaşlar sorumu şu şekilde değiştirsem

Sub resimekle

ActiveSheet.Shapes("AutoShape 1" ).Select
Selection.ShapeRange.Fill.UserPicture _
"C:\Users\Yavuzun_Ofisi\Desktop\Not Defteri Y.KOÇ\Resim\ Örneğin A5.jpg"

End

Bu kodu şu şekilde düzenlemek istiyorum:

Resim dosyasının yolu excel sayfasından seçilebilsin ve seçilecek resmin adı sayfada adres gösterilen hücrenin içerisindeki değer olsun.
Acaba mümkn mü!

 

[hsayar]

Sub resimekle

    For i = 1 To 2
    
    ActiveSheet.Shapes("AutoShape" & [B]i[/B] ).Select
    Selection.ShapeRange.Fill.UserPicture _
        "C:\Users\Yavuzun_Ofisi\Desktop\Not Defteri Y.KOÇ\Resim\" &  [B]i[/B] & ".jpg"
        
   Next

End

şeklinde denermisiniz

 

[xternet]

Sayın hsayar yazdığınız kodu denedim ama çalıştıramadım. Expected End Sub diye bir mesaj veriyor vba da "Sub resimekle()" başlığını sarı olarak hatalı gösteriyor.

 

[hsayar]

Sub resimekle
önce satırını
Sub resimekle()
şeklinde değiştirin.

siz bir örnek çalışma kitabı ve ve eklenecek örnek resimleri içeren rar/zip ekleyin. gün içinde bakmaya çalışrırm

 

[xternet]

Sayın hsayar örnek dosyayı ekledim.

 

[mustafateknetas]

Lütfen yardım arkadaşlar

Dosyanın içine açıklamyı yaptım.
Şimdiden teşekkür ederim saolasınız.

 

[xternet]

Sayın mustafateknetaş; bir konunun içerisinde başka bir konu açmış olmanız sanırım buranın yabancısı olduğunuzdan.

 

[mustafateknetas]

ACEMİ

Kusura bakma kardeş ya yeni konu ekleyi bulamadım
dogru buraların acemisiyim. il olarak ta bu forma üye oldum.
bana yardımcı olacak olan yokmu??

 

[xternet]

Merhaba arkadaşlar
Konu ile ilgili bir örnek dosya daha ekledim. İçerisinde gerekli açıklamalar var. İlgilenen arkadaşlara teşekkür ederim.

 

[xternet]

Merhaba arkadaşlar.

Bir kez daha bu konuda yardımcı olabilecek arkadaşlara konuyu hatırlatmak istedim. İlgilenen herkese teşekkürler. Zihinlerinize sağlık.

 

[ECYavuz]

Sub resimekle()

For i = 1 To 2

ActiveSheet.Shapes("AutoShape" & i).Select
Selection.ShapeRange.Fill.UserPicture "C:\Resim\" & i & ".jpg"

Next i

End Sub

olarak deneyin.

 

[xternet]

Merhaba ACYavuz.

ActiveSheet.Shapes("AutoShape" & i).Select

Bu satırda takıldı.