10.04.2020, 08:47
Hallo,
ein Beispiel ohne Select ...
Gruß
ein Beispiel ohne Select ...
Code:
Sub Test()
' Kopieren...
ThisWorkbook.Worksheets("Tabelle1").Shapes("Grafik 2").Copy
' Einfügen...
ThisWorkbook.Worksheets("Tabelle2").Paste
' Position...
ThisWorkbook.Worksheets("Tabelle2").Shapes( _
ThisWorkbook.Worksheets("Tabelle2").Shapes.Count).Left = _
ThisWorkbook.Worksheets("Tabelle2").Range("D4").Left
ThisWorkbook.Worksheets("Tabelle2").Shapes( _
ThisWorkbook.Worksheets("Tabelle2").Shapes.Count).Top = _
ThisWorkbook.Worksheets("Tabelle2").Range("D4").Top
End Sub
Gruß
Microsoft Excel Expert · Microsoft Most Valuable Professional (MVP) :: 01/2011 - 06/2019 :: 04/2020 - 06/2022
https://de.excel-translator.de/translator :: Online Excel-Formel-Übersetzer :: Funktionen :: Fehlerwerte :: Argumente :: Tabellenbezeichner (neu)
https://de.excel-translator.de/translator :: Online Excel-Formel-Übersetzer :: Funktionen :: Fehlerwerte :: Argumente :: Tabellenbezeichner (neu)