Thema Datum  Von Nutzer Rating
Antwort
Rot Screentshot
15.01.2019 09:52:01 Sandra
NotSolved
15.01.2019 11:45:18 Flotter Feger
NotSolved
15.01.2019 11:59:27 Gast60966
NotSolved
15.01.2019 12:56:18 RPP63
NotSolved
15.01.2019 12:58:35 Sandra
NotSolved
16.01.2019 12:39:36 Flotter Feger
Solved

Ansicht des Beitrags:
Von:
Sandra
Datum:
15.01.2019 09:52:01
Views:
120
Rating: Antwort:
  Ja
Thema:
Screentshot

Hallo liebe VBA-Kollegen,

 

Ihr habt hier ein super Forum!  Ich möchte gern ein VBA-Code erstellen, welches einen Printscreen meines aktuellen Bildschirms erstellt und dann in einem Bild speichern. Ich habe im Netz ein super Code gefunden, welches genau dies macht aber dann leider in die Zwischenablage und in Word kopiert. Ich hätte es gern, dass das Bild in Paint geöffnet wird und dann automatisch gespeichert wird. Vielen Dank für eure Hilfe. Sandra

 

Sub Sample()
    Dim IE As Object
    Dim hwnd As Long, IECaption As String

    Set IE = CreateObject("InternetExplorer.Application")

    IE.Visible = True

    IE.Navigate "www.Google.com"

    Sleep 5000

    '~~> Get the caption of IE
    IECaption = "Google - Internet Explorer"

    '~~> Get handle of IE
    hwnd = FindWindow(vbNullString, IECaption)

    If hwnd = 0 Then
        MsgBox "IE Window Not found!"
        Exit Sub
    Else
        '~~> Maximize IE
        ShowWindow hwnd, SW_SHOWMAXIMIZED
    End If
Sleep 3000
    DoEvents

    '~~> Take a snapshot
    Call keybd_event(VK_SNAPSHOT, 0, 0, 0)

    '~~> Start Word


    Set wordobj = CreateObject("Word.Application")

   Set objDoc = wordobj.Documents.Add

   wordobj.Visible = True

   Set objSelection = wordobj.Selection

   'Paste into Word
   objSelection.Paste

End Sub


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Screentshot
15.01.2019 09:52:01 Sandra
NotSolved
15.01.2019 11:45:18 Flotter Feger
NotSolved
15.01.2019 11:59:27 Gast60966
NotSolved
15.01.2019 12:56:18 RPP63
NotSolved
15.01.2019 12:58:35 Sandra
NotSolved
16.01.2019 12:39:36 Flotter Feger
Solved