xlBitmap 1mm über Zieladresse einfügen
27.09.2021 15:21:35
Fred
ich habe eine Frage zu dem einfügen eines kopierten "xlBitmap"
Ich kopiere einen Bereich von "Elite" in mein ActiveSheet. - Range("Y9")
Dim rRange_To_Copy As Range
LZ_ = Sheets("Elite").Cells(Rows.Count, 3).End(xlUp).Row
Set rRange_To_Copy = Sheets("Elite").Range("C" & LZ_ & ":" & "AZ" & LZ_)
rRange_To_Copy.CopyPicture xlScreen, xlBitmap
Range("Y9").Select
ActiveSheet.Paste
With Selection
.Height = .Height * 0.895
.Width = .Width * 0.895
End With
Ist es möglich, dass anstatt das einfügen genau in "range("Y9")" geschieht, dass das "xlBitmap" ca. 1mm weiter höher eingefügt wird?
Gruss
Fred
Anzeige