Wie zu verwenden pastepecial zum einfügen eines Diagramms als bitmap in ein anderes Arbeitsblatt in vba

Gibt es einen Weg, um die pastspecial Methode zum einfügen eines copyied chart als bitmap in ein anderes Arbeitsblatt. Dies ist aktuell mein syntax-

PasteSheet.PasteSpecial (Format:="Bitmap", Link:=False, DisplayAsIcon:=False)

Wo PasteSheet ist dem anderen Arbeitsblatt möchte ich einfügen. Derzeit mit diesem code, es ist nur das einfügen in das aktive Blatt. Muss ich verwenden, wählen Sie kopieren, und wählen Sie dann die Seite, die ich einfügen möchten, dann ändern Sie zurück auf die Platte kopierte ich aus? Ich hoffe nicht, da ich eine Menge Blätter, haha.

Danke

Edit: ich habe herausgefunden, dass wenn ich Kopieren Sie das Diagramm als eine Form eher als ein chartobject ich kann verwenden Sie die pasteSpecial-Methode zum einfügen auf einem anderen Blatt. Das sagte er jetzt fügt Diagramme in einander erstellen eine mega-chart-haha.

GraphSheet.Shapes(chtName).Copy 
PasteSheet.PasteSpecial Format:="Microsoft Office Drawing Object", Link:=False , _
     DisplayAsIcon:=False
InformationsquelleAutor JumboFive | 2013-02-10
  1. 2

    Dies funktioniert ohne aktivieren/select Tabelle2:

    Sheet1.ChartObjects(1).Chart.CopyPicture
Sheet2.Paste
    • Das problem ist, Wenn ich will einfügen als bitmap habe ich die pastespecial-Methode, die, wenn Sie in Kombination mit dem format:=" " nicht ermöglicht, eine Palette oder ein Blatt als Ziel.
    • CopyPicture hat eine Format argument die bitmap als eine option. Sie nicht brauchen, pastespecial, weil die Zwischenablage enthält bereits ein Bild (keine Grafik). Versuchen Sie es.
    InformationsquelleAutor Tim Williams
  2. 1

    Muss ich verwenden, wählen Sie kopieren, und wählen Sie dann die Seite, die ich einfügen möchten
    zu, dann wieder auf die Platte kopierte ich aus?

    Ja - die Platte, die Sie einfügen in muss aktiv sein. Verwenden Sheets("mytargetname").Select - nur mit Activate ist nicht genug...

    Wenn Sie 

    Application.ScreenUpdating = False

    Ihrem Bildschirm nicht blinkt, während Sie dies tun...

    • Danke für die schnelle Antwort! Seine bedauerlich, dass ich zu tun haben, diese aber durch die Verwendung von bitmap-Bildern kann ich machen, damit mein Projekt arbeiten. Auch die Verwendung Anwendung.StatusBar = "text" funktioniert Super zusammen-Ihre Seite screenupdating Idee. Auch Da fing ich gerade an, ich werde wieder kommen und upvote, wenn ich mehr Ruf
    • Ja - ich Liebe .StatusBar um den Benutzer darüber informiert, was passiert - vor allem, wenn es gibt eine Menge Dinge hinter den kulissen..., Wenn Sie haben eine Menge zu tun, können Sie gelegentlich drehen Sie die Aktualisierung auf und wieder ab - es wird den Bildschirm aktualisieren, ohne "blinken kontinuierlich". Viel Glück den Aufbau Ihrer reputation - "akzeptieren" - Antworten ist ein Weg, um einige Punkte... 🙂
    • Oh haha ich dachte, Sie benötigt, um upvote zu akzeptieren. Betrachten Sie Ihre Antwort akzeptiert, danke!
    • Upvoting ist, was "andere" (oder die person, die die Frage) tun, um anzuzeigen, "ja, das ist eine gute Antwort". In der Regel werden Sie tun, wenn jemand dich schlagen, um Sie ("ich hätte das gesagt, aber Sie habe dort"), oder weil Sie erkennen, die Antwort ist hilfreich. Als die person, die die Frage gestellt, Sie erhalten zu Holen "welche von diesen am besten beantwortet meine Frage" - von "akzeptieren". Wenn andere schauen auf Ihre Frage (denn Sie suchten das gleiche oder ein ähnliches), Ihr akzeptiert die Antwort wird zeigen, bis an der Spitze - aber die anderen mit hohen upvotes zeigen sich auch. Oft, Sie sind die gleiche Sache.
    InformationsquelleAutor Floris
Schreibe einen Kommentar