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 , 19 mal gelesen