AW: VBA: Screenshot von Userform per Button
09.03.2023 23:21:52
Userform
Hallo Marc,
hier noch eine Version. Vielleicht reicht sie Dir ja.
Code:
Private Declare PtrSafe Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As LongPtr)
Public Sub UserformInClipbooard1()
' Normalform
Const KEYEVENTF_KEYUP = &H2
Const KEYEVENTF_EXTENDEDKEY = &H1
Const VK_SNAPSHOT = &H2C
Const VK_LMENU = &HA4
keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0
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
End Sub
' oder
Public Sub UserformInClipbooard2()
' Kurzform
keybd_event &HA4, 0, &H1, 0
keybd_event &H2C, 0, &H1, 0
keybd_event &H2C, 0, &H3, 0
keybd_event &HA4, 0, &H3, 0
End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz