Snasui Excel Forum

Code: Select all

Option Explicit

Private Declare PtrSafe 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()
    Call Macro4
    keybd_event VK_SNAPSHOT, 1, 0, 0
    Range("b1").Select
    ActiveSheet.Paste
End Sub


Sub Macro4()
    '
    ' Macro4 Macro
    Dim MyData As Object
    Set MyData = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    Dim path As String
    path = "C:\Users\<user>\AppData\Local\Microsoft\Teams\current\Teams.exe" ' Replace <username> with your actual username
    Shell path, vbNormalFocus
'    Application.SendKeys "{PRTSC}"
'    MyData.GetFromClipboard
'    Range("b1").Select
    'ActiveSheet.Paste
'    Application.SendKeys "^v"
End Sub

Code: Select all

Sub Macro4()

Dim MyData As Object
Set MyData = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
Application.SendKeys "{PRTSC}"
MyData.GetFromClipboard
Range("b1").Select
ActiveSheet.Paste
End Sub