Office: Winkelhalbierende in einem Blasendiagramm

Hallo,

ich benötige eine Winkelhalbierende in einem Blasendiagramm (BDg).
Das schwierige dabei ist, erstmal die Gerade selber, da es ja nicht möglich ist in einem BDg ein zweiten Diagrammtyp für eine Datenreihe einzustellen.
Mit einer normalen Grafik Linie ist auch nicht so toll, da das BDg jedesmal unterschiedliche Daten bekommt. und sich dadurch evtl. die Y-Achse verschiebt, da negative Werte vorkommen können und zum anderen die Maximal- bzw. Minimalwerte dynamisch sind und sich somit die Neigung der Halbierenden ändert.
Jetzt meine Frage, gibt's evtl. irgendein Plug in, das sowas schafft oder wo könnte ich noch suchen?
Vielleicht hatte einer der das hier liest auch schon das Problem und kennt die Lösung.

Vielen Dank für Eure Hilfe schonmal
Heiko Richter

:)

 

Hi Heiko,

eine Möglichkeit wäre, ein zweites Diagramm mit der Linie auf das Blasendiagramm zu legen und Zeichenfläche, Diagrammfläche und Achsenbeschriftung auf "unsichtbar" zu formatieren.

 

Hi,

hab ich auch schon dran gedacht, aber das Problem ist, das sich ja die Achsen immer wieder ändern und wenn ich das auf Automatisch stelle sich die Achsen für das Blasendiagramm anders verhalten als das mit der Linie!

Danke trotzdem für diesen Vorschlag.

Heiko

 

Hi Heiko,

die Achsenwerte könnte man z.B. mit einem Makro anpassen
Code:

 

Stimmt!

Ich werd's mal so versuchen, aber falls irgend jemand doch noch ein Plug in oder so hat, dann nur her damit!
Meld mich, ob es so gut geht oder irgendwie komisch dann aussieht.

Vielen Dank nochmal.

Heiko

 

... und als unpraktikabel eingestuft.
Für meinen speziellen Fall ist es leider sehr kompliziert das zu realisieren.
Da z.B. die X-Achsen Skalierung sich von den Parametern her unterscheidet.
Die Bubble-Grafik hat MinScale, MaxScale, Minor und Major Parameter, die ich bei einem normalen Linien Diagramm bei der X-Achse garnicht habe!!?? Oder?

Naja, bin grad an einer anderen Sache dran.
Direkt in das Diagramm eine Linie Zeichnen. Einziges Problem ist im Moment noch
die X und Y Werte für den 0-Punkt raus zu finden.

Hier evtl. jemand eine Idee?

mfg
Heiko

 

Hier meine Lösung!
(Wen es interressiert)

Direkt in die Grafik eine Linie Zeichnen. (Wichtig! Nicht eine Zelle markiert haben und dann eine Linie über das Diagramm ziehen, sondern das Diagramm schon markiert haben!)

Danach in einem Makro folgendes tun:

ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.Shapes("Line 1").Select
Selection.ShapeRange.Item("Line 1").Left = ActiveChart.Axes(xlValue).Left
Selection.ShapeRange.Item("Line 1").Top = ActiveChart.Axes(xlValue).Top
Selection.ShapeRange.Item("Line 1").Height =
ActiveChart.Axes(xlCategory).Top - ActiveChart.Axes(xlValue).Top

Selection.ShapeRange.Item("Line 2").Width = ((ActiveChart.Axes(xlValue).Left - ActiveChart.Axes(xlCategory).Left) / ((-1) * ActiveChart.Axes(xlCategory).MinimumScale / ActiveChart.Axes(xlCategory).MajorUnit)) * (ActiveChart.Axes(xlCategory).MaximumScale / ActiveChart.Axes(xlCategory).MajorUnit)

"Mehr" nicht! *wink.gif*

Bis dann
Heiko

 

Hi Heiko,

interessante Lösung. Frage: was macht "Line 2" am Ende deines Codes?

Den Code könnte man noch ein wenig "bereinigen" *wink.gif*
Code:

 

Oh,

die "Linie 2" war noch ein überbleibsel vom Copy&Paste! *wink.gif*

Die vereinfachte Variante von Dir ist auch besser, da es evtl. zu einer Teilung durch 0 kommen kann, wenn MinimumScale = 0 ist!!

Also nochmals vielen Dank für die Unterstützung!

Bis irgendwann
Heiko