BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!
> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗
Breite einer Calc-Seite ermitteln
-
- Beiträge: 3
- Registriert: Sa 20. Feb 2021, 12:28
Breite einer Calc-Seite ermitteln
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?
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?
Re: Breite einer Calc-Seite ermitteln
Moin,
dein Makro läuft doch hervorragend, wo ist das Problem?
Gruß R
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
Windows 10: AOO, LO Linux Mint: AOO, LO
-
- Beiträge: 3
- Registriert: Sa 20. Feb 2021, 12:28
Re: Breite einer Calc-Seite ermitteln
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
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
Re: Breite einer Calc-Seite ermitteln
Hallo,
der Beitrag ist in sich widersprüchlich.
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?
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
mikele
-
- Beiträge: 3
- Registriert: Sa 20. Feb 2021, 12:28
Re: Breite einer Calc-Seite ermitteln
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
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 nutzen:
Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.
❤️ Vielen lieben Dank für Ihre Unterstützung ❤️