Office: Grösse von Diagrammen

Hallo

habe folgendes Problem:

Habe ein Sheet mit circa 15 Diagrammen erstellt.
Je nach Anzahl der Positionen auf y-Achse und anderen Faktoren sind diese Diagramme nicht alle - zumindest die Zeichenfläche - in der gleichen Grösse.

Ist es möglich, dies im nachhinein noch anzupassen ?

MfG

Daniel

 

Hallo!

Du könntest ein Makro drüberlaufen lassen, welches die Größen anpasst:

Code:

Sub test()
Dim Dia As ChartObject
    For Each Dia In ActiveSheet.ChartObjects
    Dia.Select
    ActiveChart.PlotArea.Width = 160
    ActiveChart.PlotArea.Height = 120
    Next
End Sub

Zusätzlich zu "Width" und "Height" gibt es auch noch "Top" und "Left" um die Position zu bestimmen.

 

hallo !

vielen dank erst mal, schatzi, dass du immer so gute antworten parad hast.
aber wie um jottes willen soll ich ein makro drüber laufen lasse ;) ?
ich kann zwar makros aufzeichnen, mehr aber auch nicht.

kannst dú mir u.u. eine "gebrauchsanweisung" schicken ?

lg

 

Hallo!

Öffne mit Alt+F11 den VBA-Editor.
Wähle Menü Einfügen > Modul.
Kopiere den Code ins Code-Fenster rechts oben.
Zurück in der Tabelle kannst du das Makro mit Alt+F8 aufrufen.

 

das will so nicht.
muss ich irgendwelche tabellen zuvor markieren ?
also bei mir wars jetzt so:

einfach die datei geöffnet
hab alt f11 gedrückt
dann kam visual basic dingens
ein eingabefenster (allerdings nicht rechts oben sonder über den ganzen bildschirm)
dort hab genau den code den du aufgeschrieben hast eingegeben (muss ich daran was verändern ?)
und dann auf speichern gedrückt.
dann bin ich zurück zur datei und hab das makro mit alt f8 ausgeführt.
verändert hat sich nichts.

vielleicht geht das gar net, weil die beschriftungen der verschiedenen y-achsen unterschiedlich lang sind, bsp. diagramm eins hat ein wort "Teil" und diagramm 2 hat " teileverwendung durch die Montage"

lg

 

Hallo!

Die Diagramme müssen sich im aktiven Blatt befinden.
Bei mir (Excel2007) funktioniert's...

 

tun sie. kann es sein, dass wenn ich den linken rand einstellen will, die beschriftung und nicht die achse als anhaltspunkt für den abstand zum blatt genommen wird ?

 

Hallo!

Ja, das kann sein, denn (das kannst du beim manuellen Skalieren sehen) die Achsenbeschriftungen gehören mit zur Zeichenfläche.

 

ok. wie kann ich dieses problem lösen?
so gut wie du bist, gibts da ne möglichkeit !

 

Hallo!

Sorry, da muss ich leider passen...
Weder Diagramme noch VBA gehören zu meinen Spezialgebieten.

 

ich hab ne idee, viell. kannst du mir die formel liefern.
es gibt doch die funktion =Links(bla bla) mit der ich einiges auf bspw. 10 zeichen kürzen kann.
nur was mach ich mit denen, die weniger als 10 zeichen haben ? geht es diese irgendwie mit leerzeichen oder so anhand ner formel zu "verlängern" ?

 

Hallo!

Meinst du sowas?
Kürzere Einträge werden verlängert, längere Einträge bleiben unangetastet.

	A	B
1	a	a#########
2	ab	ab########
3	abc	abc#######
4	abcd	abcd######
5	abcde	abcde#####
6	abcdef	abcdef####
7	abcdefg	abcdefg###
8	abcdefgh	abcdefgh##
9	abcdefghi	abcdefghi#
10	abcdefghij	abcdefghij
11	abcdefghijk	abcdefghijk
12	abcdefghijkl	abcdefghijkl
13	abcdefghijklm	abcdefghijklm
14	abcdefghijklmn	abcdefghijklmn
15	abcdefghijklmno	abcdefghijklmno
16	abcdefghijklmnop	abcdefghijklmnop

Zelle	Formel
B1	=A1&WIEDERHOLEN("#";MAX(;10-LÄNGE(A1)))

 

es funktioniert ! jipiiiiiiiiiiiiiiiiiiiiii ! wiiiiiiiiiichtig !!!!!!!!!!
tausend dank !

 

da du mir mit dem makro so weitergeholfen hast, kam mir die idee nie nr.1 in sachen makros noch was zu fragen.

ich hab nun nen datensatz mir ca 1200 zeilen.
einige müssen zusammengefasst werden, diese habe ich durch eine leerzeile von dem nöchsten daten"block" getrennt.

nun muss ich für jeden daten"block" ein diagramm bilden.
dies wären sehr viele. deshalb die idee:

ist es möglich - die diagramme sehen immmer gleich aus, nur das ihr daten"block" eben aus verschieden vielen zeilen besteht - durch ein makro automatisch für jeden "block" diagramme generieren zu lassen ?

wohl eher eine wunschvorstellung oder ?

LG