Resim Formatına dönüştürerek aktarma

[EKREM1661]

Saygıdeğer Arkadaşlar..! Herkese iyi çalışmalar dileğiyle selamlar..

Eki örnek dosyada görüleceği üzere; Sayfa1 üzerine çizilen her hangi bir tabloyu, buton aracılığı ile resim formatına dönüştürülüp Sayfa2' de hedeflenen bir hücre hizasına atılması gerekiyor. Ancak kod'un hedef tanımlanan kısımda takılıyor. Yardımcı olabilirseniz memnun olurum..

 

[mancubus]

Dim rng As Range

Set rng = Range("D6:G10") 'veya Set rng = Selection

rng.CopyPicture Appearance:=xlScreen, Format:=xlBitmap

Sheets("Sayfa2").Activate
Range("A12").Select
ActiveSheet.PasteSpecial Format:="Bitmap"

 

[EKREM1661]

Sayın mancubus İlginize çok teşekkür ediyorum..Ancak (Range("A12").Select) satırında takılıyor, Yoksa bendeki bilgisayarda mı bir sorun var..

 

[mancubus]

rica ederim.
bende bir sorun çıkmadı.

hangi hata mesajını veriyor?

(önce klasik yöntem denenebilir: dosyayı kapa, tekrar aç, bir daha dene...)

 

[EKREM1661]

Belli ki başka bir neden var..Fakat çözemedim..
"Run time error 1004"
"Range sınıfının select yöntemi başarısız"
iletisini veriyor..

 

[Korhan Ayhan]

Merhaba,

Makroyu çalıştırmak için "CommandButton" kullandığınız için bu hatayı alıyorsunuz. Aşağıdaki şekilde deneyin.

Private Sub CommandButton2_Click()
    Sheets("Sayfa1").Range("D6:G10").Copy
    Sheets("Sayfa2").Select
    Sheets("Sayfa2").Range("A12").Select
    ActiveSheet.Pictures.Paste
    Application.CutCopyMode = False
End Sub

 

[EKREM1661]

Korhan bey..! Çok teşekkür ediyorum.. Sorun çözüldü..