ActiveSheet.Shapes.Range(Array("Grafik 1")).Select
Selection.ShapeRange.IncrementLeft -15.75
Selection.ShapeRange.IncrementTop 124.5
Servus
With ActiveSheet.Shapes("Grafik 1")
.Top = Range("B5").Top '
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen