VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bildergruppe in anderes Blatt kopieren

Gruppe

Grafik

Bereich

Kopieren

Thema

Bildergruppe in anderes Blatt kopieren

Problem

Die Bildergruppe im Bereich M1:O8 soll an die gleiche Position in Tabelle2 kopiert werden.

Lösung

Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.




StandardModule: Modul1

Sub BilderGruppeKopieren()
   Dim pctsSource As Object, pctsTarget As Object
   Set pctsSource = ActiveSheet.Pictures
   pctsSource.Copy
   Worksheets(3).Select
   Range("M1").Select
   Worksheets(3).Paste
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Grafik und Kopieren