identische Zeichnungsfläche 2er Diagramm
28.10.2022 12:48:50
Andreas
ich habe zwei übereinanderliegende Diagramme (jeweils gestapelte Balken).
Nun möchte ich, dass die Zeichnungsflächen beider Diagramme exakt übereinander liegen. Hierzu habe ich nachfolgendes Makro erstellt.
Obwohl die über Debug.Print ausgegebenen Attribute beider Diagramme die gleichen Werte aufweisen. Sind die Zeichnungsflächen nicht exakt übereinander und in der Breite leicht unterschiedlich. Hier scheint es irgendeinen Automatismus noch bei Excel zu geben, der eine exakte VBA-basierte Platzierung der Zeichnungsflächen in einem Diagramm verhindert.
Habt ihr gleiche Erfahrungen gemacht? Habt ihr ggf. eine Lösung?
Vielen lieben Dank.
Code:
Sub Dia_Test()
Dim objChart1 As Chart
Dim objChart2 As Chart
Dim Minor As Integer
Dim Left As Double
Dim Top As Double
Dim Height As Double
Dim Width As Double
Dim IncrementLeft As Double
Dim PlotAreaWidth As Double
Dim PlotAreaLeft As Double
Dim PlotAreaHeight As Double
Dim PlotAreaTop As Double
Dim ChartAreaWidth As Double
Dim ChartAreaLeft As Double
Dim ChartAreaHeight As Double
Dim ChartAreaTop As Double
Dim FontSize_X As Double
Dim FontSize_Y As Double
Dim AxesWidth As Double
Dim i As Integer
Do Until i = 2
Set objChart1 = Tabelle1.ChartObjects("DIA_1").Chart
Set objChart2 = Tabelle1.ChartObjects("DIA_2").Chart
With objChart1
.Axes(xlValue).MinimumScale = Range("Dia_Min")
.Axes(xlValue).MaximumScale = Range("Dia_Max")
.Axes(xlValue).MinorUnit = Range("Dia_Hilfslinien")
.Axes(xlValue).MajorUnit = Range("Dia_Hauptlinien")
Left = .Parent.Left
Top = .Parent.Top
FontSize_Y = .Axes(xlCategory).TickLabels.Font.Size
FontSize_X = .Axes(xlValue).TickLabels.Font.Size
If .Parent.Height 