VBA Verschieben von Diagrammen
13.08.2003 09:52:29
Felix
ich erstelle gerade ein automatisiertes grafisches Auswertungsprogamm.
Folegendes Problem:
Das Programm generiert ein Diagramm in der Tabelle xyz. Es scheint in der Tabellen willkürlich abgelegt zu werden. Ich möchte das Diagramm automatisch an seinen richtigen Platz schieben z.B. Mit der linken-oberen Ecke auf die Zelle B2. Kann man der Location des Diagramms Zellen zu weisen. Ich weiß nur wie man es mit increments bewegt.
Hier noch mein Code:
Function ErstelleGrafik(ByVal TName As String) As Object
Dim Grafik As Object
WSA.Activate
Charts.Add
ActiveChart.Location xlLocationAsObject, TName
Set Grafik = ActiveChart
ActiveSheet.ChartObjects("Diagramm 1").Select
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Diagramm 1").IncrementLeft -182.25
ActiveSheet.Shapes("Diagramm 1").IncrementTop 38.25
Set ErstelleGrafik = Grafik
End Function