Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bildschirmabdruck

Bildschirmabdruck
14.10.2005 14:52:23
Andreas
Hallo zusammen!
Ich möchte einen Bildschirmabdruck von einem
Fenster machen. Mit Sendkeys scheints nicht zu
funktionieren. Gibs ne andere einfache Möglichkeit?
Schöne Grüße und Danke
Andreas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bildschirmabdruck
14.10.2005 15:19:55
Nepumuk
Hi,
versuch es mal so:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Declare Sub Sleep Lib "kernel32" ( _
    ByVal dwMilliseconds As Long)
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" ( _
    ByVal wCode As Long, _
    ByVal wMapType As Long) As Long
Private Declare Sub keybd_event Lib "user32" ( _
    ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)

Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_MENU = &H12

Public Sub test()
    Dim lngAltScan As Long
    Sleep 5000 '5 Sekunden warten damit du das Fenster aktivieren kannst
    lngAltScan = MapVirtualKey(VK_MENU, 0&)
    keybd_event VK_MENU, lngAltScan, 0&, 0&
    keybd_event vbKeySnapshot, 0&, 0&, 0&
    DoEvents
    keybd_event VK_MENU, lngAltScan, KEYEVENTF_KEYUP, 0&
    ActiveSheet.Paste
    Beep
End Sub

Gruß
Nepumuk

Anzeige
AW: Bildschirmabdruck - DANKE
14.10.2005 16:33:14
Andreas
Vielen Dank für die Mühen!!!
Es klappt!
Gruß
Andreas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige