Screenshot zu Laufzeit
18.01.2007 14:20:23
Bertram
ist es möglich, dass man zur Laufzeit eines Codes einen Screenshot macht, der anschließend als Bilddatei gespeichert wird?
Habe als Ansatz folgendes bei Spotlight.de gefunden:
Sub ScreenShotInUF()
Application.ScreenUpdating = False
Dim bild As Chart
Dim ws As Worksheet
Set ws = ThisWorkbook.ActiveSheet
Selection.CopyPicture 'statt selection kann natürlich ein fixer bereich gewählt werden!!!
Set bild = Charts.Add
On Error Resume Next
bild.ChartArea.Clear
bild.Location Where:=xlLocationAsObject, Name:=ws.Name
Set bild = ActiveChart
bild.Paste
With ActiveSheet.Shapes(Right(bild.Name, InStr(1, bild.Name, "Dia") + 1))
.Height = Selection.ShapeRange.Height + 5
.Width = Selection.ShapeRange.Width + 5
bild.Export Filename:="c:\temp\screen.gif", filterName:="gif"
.Delete
End With
Application.ScreenUpdating = True
UserForm1.Image1.Picture = LoadPicture("c:\temp\screen.gif")
End Sub
Das funktioniert auch gut, abr ich bräuchte einen kompletten Screenshot.
Hintergrund: Ich brauche auch eventuelle Fehlermeldungen, die gerade auf dem Bildschirm sind.
hans W. Herber hat im Beitrag https://www.herber.de/forum/archiv/24to28/t25077.htm geschrieben, dass das nicht geht. Hat sich im Laufe der Jahre daran was geändert?
Vielen Dank für Tips.
Gruß
Bertram