❤️ Helfen Sie noch heute, unser LibreOffice Forum zu erhalten! ❤️
Unterstützen Sie das LibreOffice-Forum und helfen Sie uns, unser Ziel für 2025 zu erreichen!

🍀 Jeder Beitrag zählt – vielen Dank für Ihre Unterstützung!🍀
Mit Ihrer Spende sichern Sie den Fortbestand, den Ausbau und die laufenden Kosten dieses Forums. 🌱


❤️ DANKE >> << DANKE ❤️

>> Dank Ihrer Unterstützung -> Keine Werbung für alle registrierten LibreOffice-Forum User! <<
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Breite einer Calc-Seite ermitteln

CALC ist die Tabellenkalkulation, die Sie immer wollten.
Antworten
Wolfgang Schaible
Beiträge: 3
Registriert: Sa 20. Feb 2021, 12:28

Breite einer Calc-Seite ermitteln

Beitrag von Wolfgang Schaible » Sa 20. Feb 2021, 13:34

Um die Seitenvorlage exact - ohne Ùberlauf auf 2. Seite - auszunutzen, zöhle ich die Spaltenbreiten der Tabelle zusammen und will dann die letzte Spalte korrigieren. Die Summe der Spaltenbreiten ist dafür ungenau (294.34 statt 287 mm).
Dim wdtPage as Double
oSheet = ThisComponent.sheets(0)
wdtPage = 0
for i = 0 to 28 'AC
wdtPage = wdtpage + oSheet.getColumns.getByIndex(i).width
Next

width-Fehler? Bessere Lösung?

F3K Total
* LO-Experte *
Beiträge: 2501
Registriert: So 10. Apr 2011, 10:10

Re: Breite einer Calc-Seite ermitteln

Beitrag von F3K Total » So 21. Feb 2021, 17:54

Moin,
dein Makro läuft doch hervorragend, wo ist das Problem?

Code: Alles auswählen

Sub Main
    Dim wdtPage as Double
    oSheet = ThisComponent.sheets(0)
    wdtPage = 0
    for i = 0 to 28 'AC
    wdtPage = wdtpage + oSheet.getColumns.getByIndex(i).width
    Next
    oSheet.getColumns.getByIndex(28).width = oSheet.getColumns.getByIndex(28).width-(wdtPage - 28700)
End Sub
Gruß R
Windows 11: AOO, LO Linux Mint: AOO, LO

Wolfgang Schaible
Beiträge: 3
Registriert: Sa 20. Feb 2021, 12:28

Re: Breite einer Calc-Seite ermitteln

Beitrag von Wolfgang Schaible » Di 23. Feb 2021, 11:26

Guten Tag
Danke. Funktioniert super; wdtPage wird mit 28700 berechnet und eingestellt; muss aaber nach Augenmass um 700 korrigiert werden. "with" und/oder mein Schlepptop runden zu grosszügig.
Nun muss ich noch das eingebettete XY-Diagram entsprechen einstellen.

Grüsse
Wolfgang

mikele
* LO-Experte *
Beiträge: 1948
Registriert: Mo 1. Aug 2011, 20:51

Re: Breite einer Calc-Seite ermitteln

Beitrag von mikele » Di 23. Feb 2021, 14:13

Hallo,
der Beitrag ist in sich widersprüchlich.
Funktioniert super
muss aaber nach Augenmass um 700 korrigiert
???
Laut Makro möchtest du die Spalten auf eine Gesamtbreite von 28700 bringen (was auch passiert, bei mir mit einer Rundungsabweichung von gerade mal 1). Das entspricht einer DIN-A4 Breite mit links und rechts je 5 mm Rand.
Wo kommen die 294,34 mm her?
Gruß,
mikele

Wolfgang Schaible
Beiträge: 3
Registriert: Sa 20. Feb 2021, 12:28

Re: Breite einer Calc-Seite ermitteln

Beitrag von Wolfgang Schaible » Mi 24. Feb 2021, 10:45

Hallo
Woher?
Muss nach Augenmass korrigieren, damit es zum rjt-Text der Kopfzeile passt und die vorgesehene Breite ausfüllt...
Verstehen kann ich es auch nicht...

Grüsse
Wolfgang


An alle, die das LibreOffice-Forum gern nutzen und unterstützen wollen:


Bitte helfen Sie uns mit 7 Euro pro Monat.
Durch Ihren Beitrag tragen Sie dazu bei, unsere laufenden Kosten für die kommenden Monate zu decken.
Unkompliziert per Kreditkarte oder PayPal.
Als ein kleines Dankeschön werden Sie im LO-Forum als SUPPORTER gekennzeichnet.



Antworten