Größe von Diagrammen variabel nach Wert?
04.08.2005 11:23:10
Diagrammen
ein Kreisdiagramm darzustellen ist ja an sich kein Problem.
Ich möchte nun zwei Kreisdiagramme vergleichbar machen.
Beide sollen nicht absolut, sondern in Prozent beschriftet werden. Die Größe des Diagramms (also der Kreisdurchmesser) dagegen soll abhängig von der absoluten Summe aller Werte des Diagramms sein.
Ich hab also mal den Rekorder angeworfen und kam zu folgendem:
Sub Makro1()
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Diagramm 2").ScaleWidth 0.7, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Diagramm 2").ScaleHeight 0.67, msoFalse, _
msoScaleFromBottomRight
End Sub
Nun denke ich mir, dass ich 'einfach' die Teile "ScaleWidth" und "ScaleHeight" durch eine Zelle im Arbeitsblatt ersetzen kann und den Umfang per Formel ausrechne.
Kann mir jemand einen Gedankenanstoß geben?
Gruß,
Klaus M.vdT.