Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1760to1764
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

CopyPicture

CopyPicture
25.05.2020 09:28:51
Fred

Hallo Excelprofis,
ich habe da ein Problem, welches sicherlich behoben werden kann.
Ich erstelle einen "Bildausschnitt" und füge diesen im gleichen Blatt ein,- folgend

Worksheets("Center").Range("H1:P23").CopyPicture xlScreen, xlBitmap
Worksheets("Center").Paste _
Destination:=Worksheets("Center").Range("A1")

das Problem;
Die Darstellung des "Ausschnitts" wird verändert (größer) dargestellt.
Frage;
Wie erreiche ich ein tatsächliche Wiedergabe? Muss der Code ganz anders geschrieben werden?
https://www.herber.de/bbs/user/137712.xlsb
Gruß
Fred

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CopyPicture
25.05.2020 09:54:42
Fred
ups,
so klappt es
    Dim rRange_To_Copy As Range
Set rRange_To_Copy = ActiveSheet.Range("H1:P23")
rRange_To_Copy.CopyPicture xlScreen, xlPicture
Worksheets("Center").Select
Range("A1").Select
ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False, DisplayAsIcon:=False

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige