VBA Teilausschnitte als Screenshot
28.10.2021 16:11:49
Christian
ich suche eine Möglichkeit einen vordefinierten Teilausschnitt ("A5:Y52") von zwei verschiedenen Reitern ("2021 Übersicht") und ("2022 Übersicht") in eine Mail als Screenshots untereinander einzuspielen. Mit einem Screenshot von "2021 Übersicht "habe ich bereits ein Script gefunden und integriert aber nun benötige ich die Erweiterung und bekomme das nicht hin. Das alte Script sieht wie folgt aus:
' Prozess per Mail versenden
Sub Button_Screenshot_Mail_Click()
Range("A5:Y52").CopyPicture xlScreen, xlPrinter
Dim oApp As Object
Set oApp = CreateObject("Outlook.Application")
On Error Resume Next
With oApp.CreateItem(0)
Application.Wait 1
.To = Worksheets("Konfig").Range("AA2").Value
.Subject = Worksheets("Konfig").Range("AA3").Value
.Body = Worksheets("Konfig").Range("AA1").Value
.Display
SendKeys "^{END}~^v", True
.GetInspector 'fügt die Standard-Signatur an
End With
On Error GoTo 0
Set oApp = Nothing
End Sub
Vielen Dank für eure Hilfe.
Beste Grüße,
Christian