Resim almada düzensiz hata vermesi

[Muhammet Okumuş]

Arkadaşlar merhaba,
Sizlerin yardımı ile test oluşturma sayfası oluşturdum. Sıralı düğmesi ile soruları sırasıyla, karışık düğmesi ile soruları karışık bir şekilde test oluşturuyorum. Ama kodlar bazen hiç hata vermezken bazen hata veriyor. Activesheet.Paste satırında sorun çıkıyor.
Dosyanın çalışma sırası:
1) Taslak sayfasının kopyasını oluşturuyor.
2) Dosyadaki resimleri Excel'e alıyor.
3) Alınan resimlere isim veriyor.
4) Cut-paste yöntemi ile soruları uygun yerlere kopyalıyor.
5) Fazla olan soruları siliyor.

Neden kodlar bazen çalışıyor, bazen çalışmıyor. Hata verdikte sonra yapıştır dediğimde sorun yok.
Acaba hafızada yer mi kalmıyor?

 

[Muhammet Okumuş]

Dosya boyutu arttığından diğer resimleri ekleyemedim. Siz aynı resimleri kopyalayabilirsiniz.

 

[Muhammet Okumuş]

Daha basit bir yöntem yapılabilir mi? Taslak sayfası CA:CZ arasında formüller ile makroları entegre ettim.

 

[Muzaffer Ali]

Merhaba

Karma soru adlı modüle içindeki kodlardan aşağıdakileri silin.

Cells(sat, süt).Select
ActiveSheet.Shapes.Range(Array(pic)).Select
Selection.Cut
ActiveSheet.Paste
Application.CutCopyMode = False

Burada gereksiz seçme, kesme ve yapıştırma kodları var.
Bu kodların yerine aşağıdakileri kopylayın.

ActiveSheet.Shapes.Range(Array(pic)).Left = Cells(sat, süt).Left
ActiveSheet.Shapes.Range(Array(pic)).Top = Cells(sat, süt).Top

 

[Muhammet Okumuş]

Sn. dalgalıkur,
Cevabınız için teşekkür ederim. 40-50 defa denedim sorunsuz çalıştı.
Benim kod neden hata verdi. Gereksiz olmasının mantığı ne?

 

[halit3]

Merhaba
Burada amaç resimleri sayfaya sıralı ve karışık olarak istenen ölçülerde almak mı ?

 

[Muhammet Okumuş]

Kodların çalışmasında sıkıntı yok. Kodlar bazen normal çalışıyor bazen anlayamadığım şekilde hata veriyor. Sn. dalgalıkur'un vermiş olduğu değişim kodu ile şimdilik bir hata ile karşılaşmadım.

 

[Muzaffer Ali]

Sn. dalgalıkur,
Cevabınız için teşekkür ederim. 40-50 defa denedim sorunsuz çalıştı.
Benim kod neden hata verdi. Gereksiz olmasının mantığı ne?

Rica ederim.

Mantık şu;

Cells(sat, süt).Select  'sat, süt' ile bulunmuş olan hücreyi seç.
ActiveSheet.Shapes.Range(Array(pic)).Select 'Fotoğrafı seç
Selection.Cut 'Seçili fotoğrafı kes
ActiveSheet.Paste'Seçili olan hücrenin bulunduğu yere yapıştır.
Application.CutCopyMode = False 'Kopyalama belirgin çizgiilerini kaldır.

Yani amaç üst kodlarda sayfaya eklenen fotoyu olması gereken yere taşımak.
Öyleyse aşağıdaki kod yeterli. Hiçbir şeyi kesmeye kopyalamaya yapıştırmaya gerek yok.

ActiveSheet.Shapes.Range(Array(pic)).Left = Cells(sat, süt).Left 'Fotonun yukarıdan uzaklığı 'sat, süt' ile bulunmuş olan hücreyle aynı olsun.
ActiveSheet.Shapes.Range(Array(pic)).Top = Cells(sat, süt).Top ' Fotonun soldan uzaklığı ""         ""                ""                      ""           ""

Her halde anlaşılmıştır.