macro ile printscreen varyasyonları

[serdenm]

herkese iyi geceler,
printscreen gorevini yapan bir makro yazabilirmiyiz? butona basildiginda excel minimize olsun ve arkada hangi pencere (veya desktop) varsa printscreen tusuna basilmis gibi hafizaya alinsin. daha sonra bu goruntu resim olarak istediğimiz yere kopyalansin. ornek c:\resim1.jpg
eger bu mumkun degilse hafizadaki printscreen resmi excel e de yapıştırılabilir.

yapılabilir mi ? tesekkurler.

 

[Levent Menteşoğlu]

Exceli minimize ederek, ekranın fotoğrafını çeken ve excel sayfasına ekleyen aşağıdaki kodları deneyin.

[vb:1:6cafe23f21]Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const VK_SNAPSHOT = &H2C

Sub PrintScreen()
Application.WindowState = xlMinimized
Application.Wait Now + TimeValue("00:00:01")
keybd_event VK_SNAPSHOT, 0, 0, 0
Application.Wait Now + TimeValue("00:00:01")
Application.WindowState = xlNormal
SendKeys "^{v}"
End Sub[/vb:1:6cafe23f21]

Eğer bu fotoğrafı resim olarak kaydetmek isterseniz aşağıdaki linkteki Sn ALPEN'nin eklediği dosyada gerekli kodlar mevcuttur.

http://www.excel.web.tr/viewtopic.php?t=13165

 

[serdenm]

LEVENTM tesekkür edrim. kodlari deneyecegim. :hey:

 

[serdenm]

Sn. Leventm,
linki inceledim fakat paste edilen screenshot nesnesini bmp veya jpg olarak nasil otomatik kayit edildigine rastlayamadim veya ben anlamamista olabilirim.

mumkunse bmp ve jpg (sıkıştırılmış) opsiyonlu olabilir mi?
eğer olmuyorsa kod sadece bmp tipinde otomatik olarak kayıt etsin.

yardimci olur musunuz? :hey:
tesekkurler.

 

[serdenm]

LEVENTM problemimi hallettim.
tesekkur ederim.
End Sub

:hey: