Makro ile resim olarak kopyalama

[recepkull]

İlgili alanı resim olarak kopyalamak istedim ama kod çalışmadı nerede hata yapıyorum bir bakar mısınız ?

Range("A6:X59").Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap

 

[turist]

Range("A6:X59").CopyPicture Appearance:=xlScreen, Format:=xlPicture (veya xlBitmap)
şeklinde deneyin

 

[Seyit Tiken]

Bu şekilde deneyebilirsinz.

[a1:f20].CopyPicture

 

[recepkull]

Range("A6:X59").CopyPicture Appearance:=xlScreen, Format:=xlPicture (veya xlBitmap)
şeklinde deneyin

Bu şekilde deneyebilirsinz.

[a1:f20].CopyPicture

İkisi de olmadı.

 

[turist]

Kopyaladıktan sonra ne olacak, bir başka hücreye yapıştırmak iterseniz;
Örnek;
Range("A6:X59").CopyPicture Appearance:=xlScreen, Format:=xlPicture
Range(" Z1").PasteSpecial

şeklinde yapabilirsiniz.

 

[recepkull]

Kopyalanan alanı Excel'e alakalı olmayan bir yerde kullanacağım. O yüzden sadece kopyalaması işimi görüyor ama bu kod çalışmıyor maalesef.

 

[turist]

Windows sisteminin yerleşik "Paint" (resim) programını açın.

Excel dosyanızda bu alanın bulunduğu sayfada aşağıdaki kodu çalıştırın.
Sub kopyala()
Range("A6:X59").CopyPicture Appearance:=xlScreen, Format:=xlPicture
End sub

daha sonra "boş" olan Paint programına geçip "yapıştır" yapın veya Ctrl+V tuşlarıyla yapıştırın.
Sonuç olarak Paint programında bir "resim" görebiliyorsanız, "Kod" DOĞRU çalışıyor demektir.

 

[Tevfik_Kursun]

Teşekkürler Sayın Turist
Saygılarımla

 

[recepkull]

Tamamdır hocam teşekkür ederim

 

[turist]

Kodunuzun tamamını bilmeden, sadece verdiğimiz satır "DOĞRU" dur ve "ÇALIŞIR".Test edilmeden yazılmamıştır.
Ancak; kodun tamamında, bunu değiştiren, engelleyen bir başka durum varsa siz çözmeye gayret edin.
İlk sorunuzda da Kod'un tamamı değil, sadece tek satır bulunmaktaydı.
Başlangıcı Sub, private sub, CommandButton1Click,worksheetChange vb veya class olabilecek bir açıklama da yok.
Bu durumda "kod çalışmıyor" diyebiliyorsanız; uyguladığınız "kod"un tamamını bilgi verirseniz, belki "çalışan" haliyle bir çözüm bulunur.
İyi çalışmalar.
Not: #9 no.lu mesajınızdaki esk ifadenizi silmişsiniz.

 

[recepkull]

Sorunum çözüldü hocam teşekkür ederim o yüzden son mesajımı silip teşekkürlerimi ilettim.

 

[turist]

Tamamdır.Kolay gelsin.