ich habe folgenden Code im Netz gefunden, welcher mir die Möglichkeit bietet das aktive Fenster als Bitmap zu speichern (soll später als Email verschickt werden):
Public Sub prcSave_Picture_Active_Window()
Dim hWnd As Long
Dim udtRect As RECT
Sleep 3000
hWnd = GetForegroundWindow
GetWindowRect hWnd, udtRect
stdole.SavePicture hDCToPicture(GetDC(0&), udtRect.Left, udtRect.Top, _
udtRect.Right - udtRect.Left, udtRect.Bottom - udtRect.Top), _
"D:\Eigene Dateien\Screenshot.bmp"
End Sub
Ich wollte euch VBA Profis fragen wie ich diesen Code anpassen müsste, so dass jedes mal gefragt wird wo abgespeichert werden soll?Hier der gesamte Code:
http://www.office-loesung.de/ftopic208796_0_0_asc.php
Danke,
Michael