Gruppe
Grafik
Problem
Die Bildergruppe im Bereich M1:O8 soll an die gleiche Position in Tabelle2 kopiert werden.
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