Hallo Otmar,
diese Auswahl der Blattaufteilung ist nur ein kleiner Teil des Scriptes.
Das Script berechnet aus einem Rohdatenfile (tdm) mehrere neue Kanäle und generiert im View vier verschiedenen Graphen. Das heißt im obersten Bereich ist zum Beispiel Strom und Spannung über die Zeit aufgetragen, im zweiten Bereich Stöchiometrien über die Zeit, im dritten Bereich Drücke über die Zeit und im vierten Bereich Taupunkte.
Die Graphen haben unterschiedliche Achsen. Mit der Funktion n-Systeme wird's unübersichtlich.
Danach geht's im Script weiter mit Transfer nach Report und Pdf-Export.
in der Hilfe wird immer nur ein Bereich wieder in zwei Teile geteilt. Dies ergibt vier unterschiedlich große Bereiche. Ich benötige vier gleich große Bereich untereinander.
Dim oMySheet: Set oMySheet = View.Sheets.Add("NewSheet")
Dim oMyArea: Set oMyArea = oMySheet.ActiveArea
Dim oMyTopArea: Set oMyTopArea = oMyArea.SplitTop("TopArea",0.5)
Dim oMyRightArea: Set oMyRightArea = oMyTopArea.SplitRight("RightArea",0.5)
Dim oMyBottomArea: Set oMyBottomArea = oMyRightArea.SplitBottom("BottomArea",0.5)
Dim oMyLeftArea: Set oMyLeftArea = oMyBottomArea.SplitLeft("LeftArea",0.5)
Vielen Dank schon mal für dein Hilfe
Gruß Jürgen
