Positionieren von Diagrammen mit ChartObjects.Add - Anordnung hält sich nicht an Gittermuster

  • Excel

    Positionieren von Diagrammen mit ChartObjects.Add - Anordnung hält sich nicht an Gittermuster

    Hallo,

    mit

    Visual Basic-Quellcode

    1. Set ch = ActiveSheet.ChartObjects.Add(ActiveSheet.Cells(1, 60).Left, _
    2. ActiveSheet.Cells((v_SSMVZeile - 1) * c_Offs + ZIstWert - 1, 1).Top, _
    3. v_GrafikBreite, v_GrafikHöhe).Chart


    erzeuge ich mehrere Grafiken, wobei sich das vereinfacht darstellt zu

    Visual Basic-Quellcode

    1. c_Offs = 8
    2. for v_Zählervariable = 1 to 13
    3. Set ch = ActiveSheet.ChartObjects.Add(ActiveSheet.Cells(1, 60).Left, _
    4. ActiveSheet.Cells(v_Zählervariable * c_Offs, 1).Top, v_GrafikBreite, v_GrafikHöhe).Chart
    5. next v_Zählervariable



    Ich erwarte, daß die 13 Grafiken untereinander im Abstand von 8 Zeilen dargestellt werden.

    Es gibt aber einen kleinen Offset, die erste Grafik ist etwas unterhalb der Referenz-Zelle (8,1), die zweite schon etwas mehr, und die letzte Grafik ist bereits drei Zeilen unterhalb der Referenz-Zelle.

    Da ich links daneben die Tabellen habe, aus denen die Daten für die Grafiken kommen, sieht das nun so aus, also würde man zwei Reihen von Zollstöcken nebeneinander legen, von denen die eine Sorte 2 m lang ist und die andere nur 1,98 m.

    Wie kann ich die Grafik präzise an eine Referenz-Zelle tackern?

    Besten Dank!
    Timo