Relative Anpassung der Zeichnungsfläche eines Diag
14.11.2012 21:41:50
Golem
ich verwende folgenden Code für die Positionierung und Größe einer Diagrammfläche:
Sub Positionieren_Chart1()
Dim lngLeft&, lngTop&, lngWidth&, lngHeight&
ActiveSheet.ChartObjects(1).Top = Range(Range("AX13")).Top 'Zelle B12 links
ActiveSheet.ChartObjects(1).Left = Range(Range("AX13")).Left 'Zelle B12 oben
ActiveSheet.ChartObjects(1).Width = Range("AX14") 'Breite in Punkte
ActiveSheet.ChartObjects(1).Height = Range("AX15") 'Höhe in Punkte
End Sub
Nach der Eingabe der Positionszelle in AX13, der Breite in AX14 und der Höhe in AX15,betätige ich einen CommandButton und die Diagrammfläche hat die gewünschten Außenmaße
und ist richtig positioniert.
Funktioniert einwandfrei!
Meine Vorstellung ist, mit einen weiteren Code die Zeichnungsfläche relativ zur Diagrammfläche anzupassen.
Ich gebe für die Position der Zeichnungsfläche ( z. B. linke, obere Ecke der Diagrammfläche ) zwei Werte ein und für die Breite und Höhe zwei weitere Werte.
Nach der Betätigung eines weiteren CommandButton wird die Zeichnungsfläche gewünscht in der Diagrammfläche angepasst.
Mit "relativ" meine ich, dass danach, bei einer Veränderung der Außenmaße der Diagrammfläche, die Zeichnungsfläche
entsprechend angepasst wird.
Für evtl. Tipps oder Anregungen schon mal besten Dank!
Golem