아래횽이 엑셀상에서만 입력되고 윈도우상에서 입력 안된다고 했는데
그말대로 키보드 프린트스크린키가 눌린것같은 동작은 안하더라고
아무래도 아스키코드로 입력 해야할거같은데.
내가원하는 키 아스키코드가 44인데
여기서 어느부분을 바꺼야할까;;;
Option Explicit
Public Declare Function OpenClipboard Lib \"user32\" (ByVal hwnd As Long) As Long
Public Declare Function EmptyClipboard Lib \"user32\" () As Long
Public Declare Function CloseClipboard Lib \"user32\" () As Long
Sub Print_Screen_실행()
OpenClipboard (0&)
EmptyClipboard
CloseClipboard
Application.SendKeys \"{1068}\"
On Error Resume Next
Do
DoEvents
Err.Clear
ActiveSheet.Paste
Loop Until Err = 0
End Sub
댓글 0