- Katılım
- 24 Haziran 2017
- Mesajlar
- 749
- Excel Vers. ve Dili
- türkçe
- Altın Üyelik Bitiş Tarihi
- 13-01-2024
Sheets("sayfa1").Pictures.Insert(resim_adi).Select
Selection.Top = Range("A" & Bos_Satir).Top: Selection.Left = Range("A" & Bos_Satir).Left
Selection.ShapeRange.LockAspectRatio = msoFalse: Selection.ShapeRange.Height = 100: Selection.ShapeRange.Width = 150
ActiveCell.Select
yukarıdaki kodlamada userform üzerinde 1 ader ımage nesnesi varken resmi excel sayfasında A sütununda sıradaki boş hücreye ekliyor. resmi boyutlandırıyor ve sıra numarası veriyor.
SORU: bu kodda nasıl bşir değişiklik yapmalıyım ki iki adet ımage1 nesnesindeki resmi W sütununda sıradaki boş hücreye, ımage2 nesnesindeki resmide Y hücresindeki sıradaki boş hücreye eklesin
Selection.Top = Range("A" & Bos_Satir).Top: Selection.Left = Range("A" & Bos_Satir).Left
Selection.ShapeRange.LockAspectRatio = msoFalse: Selection.ShapeRange.Height = 100: Selection.ShapeRange.Width = 150
ActiveCell.Select
yukarıdaki kodlamada userform üzerinde 1 ader ımage nesnesi varken resmi excel sayfasında A sütununda sıradaki boş hücreye ekliyor. resmi boyutlandırıyor ve sıra numarası veriyor.
SORU: bu kodda nasıl bşir değişiklik yapmalıyım ki iki adet ımage1 nesnesindeki resmi W sütununda sıradaki boş hücreye, ımage2 nesnesindeki resmide Y hücresindeki sıradaki boş hücreye eklesin