KuTuKa
Altın Üye
- Katılım
- 10 Mart 2005
- Mesajlar
- 730
- Excel Vers. ve Dili
- Microsoft Office LTSC Pr. Pl 2021 - 64 bit Türkçe
- Altın Üyelik Bitiş Tarihi
- 19-03-2029
Visual Basic’le Ekranın Fotoğrafını Çekin
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
Call keybd_event(vbKeySnapshot, 0, 0, 0) ‘command button’un Click olayına yazdığımız bu kod ekranın fotosunu çeker.bu kod klavyedeki “print screen” tuşunun görevini yapmış olur.’
DoEvents ' Clipboarda Çekilen Resmin Kopyalanması için Bilgisayarı bekletir ’
SavePicture Clipboard.GetData(vbCFBitmap), "" & App.Path & "\EkranFoto.bmp" ' Resimi verilen dizine kaydeder ‘
End Sub
Arkadaşlar ben denedim ama bu excel makrolarından değil herhalde ama excel içinde olsa iyi bir uygulama olabilir.bir bakın isterseniz
iyiakşamlar
halil kutuka
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
Call keybd_event(vbKeySnapshot, 0, 0, 0) ‘command button’un Click olayına yazdığımız bu kod ekranın fotosunu çeker.bu kod klavyedeki “print screen” tuşunun görevini yapmış olur.’
DoEvents ' Clipboarda Çekilen Resmin Kopyalanması için Bilgisayarı bekletir ’
SavePicture Clipboard.GetData(vbCFBitmap), "" & App.Path & "\EkranFoto.bmp" ' Resimi verilen dizine kaydeder ‘
End Sub
Arkadaşlar ben denedim ama bu excel makrolarından değil herhalde ama excel içinde olsa iyi bir uygulama olabilir.bir bakın isterseniz
iyiakşamlar
halil kutuka
