- Katılım
- 19 Eylül 2023
- Mesajlar
- 14
- Excel Vers. ve Dili
- Excel Vers. ve Dili Ofis 2010 TR 32 Bit
- Altın Üyelik Bitiş Tarihi
- 21-09-2024
Merhaba,
aşağıdaki komutlar ile userform foto çekip excel sayfasına yapıştırıyorum sonrasında masaüstüne satış klasörü açtırıp günün tarihini vererek exceldeki resmi çıkartmak istiyorum tabiki exceldeki resmi sonrasında silecek.Yardımlarınız için şimdiden teşekkürler.
Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = 44
Public Const VK_LMENU = 164
Public Const KEYEVENTF_KEYUP = 2
Public Const KEYEVENTF_EXTENDEDKEY = 1
Sub cek()
On Error Resume Next
DoEvents
keybd_event VK_LMENU, 0, _
KEYEVENTF_EXTENDEDKEY, 0 ' key down
keybd_event VK_SNAPSHOT, 0, _
KEYEVENTF_EXTENDEDKEY, 0
keybd_event VK_SNAPSHOT, 0, _
KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
keybd_event VK_LMENU, 0, _
KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
DoEvents
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
end sub
aşağıdaki komutlar ile userform foto çekip excel sayfasına yapıştırıyorum sonrasında masaüstüne satış klasörü açtırıp günün tarihini vererek exceldeki resmi çıkartmak istiyorum tabiki exceldeki resmi sonrasında silecek.Yardımlarınız için şimdiden teşekkürler.
Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = 44
Public Const VK_LMENU = 164
Public Const KEYEVENTF_KEYUP = 2
Public Const KEYEVENTF_EXTENDEDKEY = 1
Sub cek()
On Error Resume Next
DoEvents
keybd_event VK_LMENU, 0, _
KEYEVENTF_EXTENDEDKEY, 0 ' key down
keybd_event VK_SNAPSHOT, 0, _
KEYEVENTF_EXTENDEDKEY, 0
keybd_event VK_SNAPSHOT, 0, _
KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
keybd_event VK_LMENU, 0, _
KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
DoEvents
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
end sub