Hi Paul,



ja, ich kenne das... *ghhh*



Versuche es mal damit (Adresse für die linke obere Ecke steht in A1, rechte untere Ecke in A2)



Sub ausrichten()

With ActiveSheet.ChartObjects(1)

.Top = Range(Cells(1, 1)).Top ' linke obere Ecke Hochwert

.Left = Range(Cells(1, 1)).Left ' linke obere Ecke Linkswert

.Width = Range(Cells(2, 1).Value).Left - Range(Cells(1, 1).Value).Left ' rechte untere Ecke Linkswert

.Height = Range(Cells(2, 1).Value).Top - Range(Cells(1, 1).Value).Top ' rechte untere Ecke Hochwert

End With

End Sub

---

geschrieben von Beverly , 18.05.2006, 14:31 Uhr , 22 mal gelesen