Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Größe von Diagrammen variabel nach Wert?

Größe von Diagrammen variabel nach Wert?
04.08.2005 11:23:10
Diagrammen
Moin,
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.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Größe von Diagrammen variabel nach Wert?
04.08.2005 18:41:15
Diagrammen
hallo Klaus,
probiers so:


Sub x()
Dim As Single, h As Single
w = ActiveSheet.[a1]
h = ActiveSheet.[a2]
With ActiveSheet.Shapes("Diagramm 1")
    .ScaleWidth w, msoFalse, msoScaleFromTopLeft
    .ScaleHeight h, msoFalse, msoScaleFromBottomRight
End With
End Sub

     gruß Herbert
Anzeige
AW: Größe von Diagrammen variabel nach Wert?
05.08.2005 08:06:49
Diagrammen
Hui!
mit dem Ansatz komme ich auf jedem Fall weiter. Vielen Dank!
Gruß,
Klaus M.vdT.
AW: Größe von Diagrammen variabel nach Wert?
05.08.2005 08:47:38
Diagrammen
Hi,
so gehts:

Sub anpassen()
Dim w As Single, h As Single
w = ActiveSheet.[a1]
h = ActiveSheet.[a2]
ActiveSheet.ChartObjects("Diagramm 1").Activate
With ActiveChart.PlotArea
.Width = w
.Height = h
End With
End Sub

Der Rest ist nur noch Fleißarbeit, das krieg ich hin.
Dank und Gruß,
Klaus M.vdT.
AW: Größe von Diagrammen variabel nach Wert?
05.08.2005 17:01:21
Diagrammen
um "PlotArea" zu ändern,brauchst du das Diagramm nicht aktivieren:

Sub anpassen()
Dim w As Single, h As Single
w = ActiveSheet.[a1]
h = ActiveSheet.[a2]
With ActiveSheet.ChartObjects("Diagramm 1").Chart.PlotArea
.Width = w
.Height = h
End With
End Sub

gruß Herbert
Anzeige
AW: Größe von Diagrammen variabel nach Wert?
08.08.2005 08:00:12
Diagrammen
Juchu! Ein Activate weniger :)
Nochmal vielen Dank, hat mir super weiter geholfen.
Gruß,
Klaus M.vdT.

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige