ich nutze folgenden Code um einen Bereich als Screenshot in eine andere Mappe zu kopieren.
Kann man das auch mit z.b 85% der Orginalgröße einfügen?
Hier mal der Code:
Sub Monatsansicht_erstellen()
'Namensliste kopieren
Dim rngQuelle As Range
Set rngQuelle = Sheets("Jahresplan").Range("C1:D98")
rngQuelle.CopyPicture
With Sheets("Monatsansicht")
' Namensliste einfügen
'Januar
.Range("B3").PasteSpecial 'Ziel anpassen
.Shapes(.Shapes.Count).DrawingObject.Formula = rngQuelle.Parent.Name & "!" & rngQuelle.Address