Positionierung eines Chart in einem vorhandenen Sheet...

[Marc Fischer]

hi NG,

bitte seit mir doch beholflich. Ich schlage mich schon seit Tagen mit der
Positionierung des Diagramms in einer Bestehenden Tabelle herum.

ActiveChart bietet leider nur ActiveChart.Location Where:=xlLocationAsObject
oder halt als einzelene Diagrammseite.

Ich möchte nun aber gerne die Position in der vorhandenen Tabelle bestimmen
können.

Auch die Veränderung der Größe (was man eigentlich mit dem Mauscurser größer
ziehen kann) würde ich gerne per VBA verändern können...

Geht das überhaupt?

Bitte gebt mir Tipps.

DANKe im Vorraus.

Grüße
Marc

[Markus Fiedler]

Hi Marc,
ich habs mal aufgezeichnet und leicht verändert, evtl. reicht Dir das ja.
:-)

ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
'Diagramm auf 0 - Position zurückholen
ActiveSheet.Shapes("Diagramm 1").IncrementLeft -120000
ActiveSheet.Shapes("Diagramm 1").IncrementTop -120000
'neu positionieren Standardzeilenhöhe = 12.75 10.Zeile = 127.5
ActiveSheet.Shapes("Diagramm 1").IncrementLeft 12.75
ActiveSheet.Shapes("Diagramm 1").IncrementTop 127.5
'hier die Größe einstellen mit dem Vielfachen 2 doppelt so groß -2
doppelt so klein
ActiveSheet.Shapes("Diagramm 1").ScaleWidth 2, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Diagramm 1").ScaleHeight -2, msoFalse, _
msoScaleFromTopLeft

Gruß
Markus Fiedler

Post by Marc Fischer
hi NG,
bitte seit mir doch beholflich. Ich schlage mich schon seit Tagen mit der
Positionierung des Diagramms in einer Bestehenden Tabelle herum.
ActiveChart bietet leider nur ActiveChart.Location

Where:=xlLocationAsObject

Post by Marc Fischer
oder halt als einzelene Diagrammseite.
Ich möchte nun aber gerne die Position in der vorhandenen Tabelle bestimmen
können.
Auch die Veränderung der Größe (was man eigentlich mit dem Mauscurser größer
ziehen kann) würde ich gerne per VBA verändern können...
Geht das überhaupt?
Bitte gebt mir Tipps.
DANKe im Vorraus.
Grüße
Marc