Gruppe
Grafik
Problem
Ein Bild soll in Tabelle 2 an gleiche Position kopiert werden.
StandardModule: Modul1
Sub CopyPicture()
Dim pct As Picture
With ActiveSheet.Pictures("Lxmb")
.Copy
Worksheets(2).Paste
Set pct = Worksheets(2).Pictures(1)
pct.Left = .Left
pct.Top = .Top
End With
End Sub