Linkten Resim Yerleştirme

[ecaparo]

Merhabalar
Ekteki Dosyamızda 2 sayfamız var veri sayfası ve form sayfası veri sayfasına girdiğimiz bilgileri form sayfasında yazdırıyoruz .
fakat form sayfamıza veri sayfasında bulunan link üzerindeki fotoğraflarıda yazdırmak istiyoruz yani fotografları ekleyemedim lik olarak gözüküyor yardımcı olursanız sevinirim

 

[ecaparo]

Yardım ) lütfen

 

[turist]

Ekli dosyayı inceleyin.
ALT+F11 ile VBA sayfasında Module1 deki kodlara ve açıklamasına bakın.
Uygunsa, dosyanızı kullanabilirsiniz.

 

[ecaparo]

Teşekkurler

teşekkürler fakat
compile error procedure too large
hatası veriyor

 

[turist]

A510'dan sonrasında RESİM bilgisi yok.Sonraki satır kodlarına da gerek yok.
Çok uzun bir işlemi aşağıdaki gibi kısaltarak tekrar deneyin.
Tüm resimlerin yüklenmesi zaman alacaktır.Bekleyin, sonucu izleyin.
NOT: 3.cü resimden sonraki resimlerin yerleri doğru değil, sayfa 1 de yaptığınız ÜST piksel adresi belirleme şeklini gözden geçirin.

Sub ResimleriEkle()
ResimleriTemizle
On Error Resume Next
Sayfa2.Shapes.AddPicture [A20].Text, msoFalse, msoTrue, 1, 310, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A33].Text, msoFalse, msoTrue, 1, 506, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A46].Text, msoFalse, msoTrue, 1, 702, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A78].Text, msoFalse, msoTrue, 1, 1094, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A91].Text, msoFalse, msoTrue, 1, 1290, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A104].Text, msoFalse, msoTrue, 1, 1486, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A136].Text, msoFalse, msoTrue, 1, 1878, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A149].Text, msoFalse, msoTrue, 1, 2074, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A162].Text, msoFalse, msoTrue, 1, 2270, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A194].Text, msoFalse, msoTrue, 1, 2662, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A207].Text, msoFalse, msoTrue, 1, 2858, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A220].Text, msoFalse, msoTrue, 1, 3054, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A252].Text, msoFalse, msoTrue, 1, 3446, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A265].Text, msoFalse, msoTrue, 1, 3642, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A278].Text, msoFalse, msoTrue, 1, 3838, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A310].Text, msoFalse, msoTrue, 1, 4230, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A323].Text, msoFalse, msoTrue, 1, 4426, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A336].Text, msoFalse, msoTrue, 1, 4622, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A368].Text, msoFalse, msoTrue, 1, 5014, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A381].Text, msoFalse, msoTrue, 1, 5210, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A394].Text, msoFalse, msoTrue, 1, 5406, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A426].Text, msoFalse, msoTrue, 1, 5798, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A439].Text, msoFalse, msoTrue, 1, 5994, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A452].Text, msoFalse, msoTrue, 1, 6190, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A484].Text, msoFalse, msoTrue, 1, 6582, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A497].Text, msoFalse, msoTrue, 1, 6778, 455, 180
Application.Wait (Now + TimeValue("00:00:10"))
Sayfa2.Shapes.AddPicture [A510].Text, msoFalse, msoTrue, 1, 6974, 455, 180
Application.ScreenUpdating = True
End Sub