Hallo ihr Lieben,
ich bräuchte mal wieder Eure Hilfe:
Gibt es eine Möglichkeit via VB die Zeilenhöhe einer Tabelle zu konfigurieren?
Danke für Eure Hilfe
LG D-T
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. 🤗
VB - Zeilenhöhe einstellen
-
- Beiträge: 154
- Registriert: So 30. Jun 2013, 22:28
VB - Zeilenhöhe einstellen
Viele liebe Grüße und
Danke für Eure Hilfe!!
Dream-Teacher
-------------------------------------------
LO 6.3.3 & WIN 10
Danke für Eure Hilfe!!
Dream-Teacher
-------------------------------------------
LO 6.3.3 & WIN 10
Re: VB - Zeilenhöhe einstellen
Hallo,
kann ich mir nicht vorstellen, weil LO kein VB kennt.Dream-Teacher hat geschrieben: ↑Mo 9. Sep 2019, 21:59Gibt es eine Möglichkeit via VB die Zeilenhöhe einer Tabelle zu konfigurieren?
Gruß
---------------------------------------------------
Win.10 Prof. 64-bit, LO 6.3.4 (x64), LO 6.2.6 Portable, AOO 4.1.7
---------------------------------------------------
Win.10 Prof. 64-bit, LO 6.3.4 (x64), LO 6.2.6 Portable, AOO 4.1.7
-
- Beiträge: 154
- Registriert: So 30. Jun 2013, 22:28
Re: VB - Zeilenhöhe einstellen
Sorry, also ich meine halt Extras -- > Makros --> GLG
Viele liebe Grüße und
Danke für Eure Hilfe!!
Dream-Teacher
-------------------------------------------
LO 6.3.3 & WIN 10
Danke für Eure Hilfe!!
Dream-Teacher
-------------------------------------------
LO 6.3.3 & WIN 10
Re: VB - Zeilenhöhe einstellen
Hallo,
folgendes Makro verändert die Zeilenhöhe von "Tabelle1" im Dokument,
bzw. die Zeilehöhe der Tabelle, welcher der Index 0 zugewiesen ist.
Dies kann auch die "Tabelle20" sein.
Statt der Anweisung getByIndex(?), kann man auch die Anweisung getByName("Tabelle17") nutzen, es
hängt halt vom vorliegenden Dokument ab, was die geeignete Methode ist.
folgendes Makro verändert die Zeilenhöhe von "Tabelle1" im Dokument,
bzw. die Zeilehöhe der Tabelle, welcher der Index 0 zugewiesen ist.
Dies kann auch die "Tabelle20" sein.
Statt der Anweisung getByIndex(?), kann man auch die Anweisung getByName("Tabelle17") nutzen, es
hängt halt vom vorliegenden Dokument ab, was die geeignete Methode ist.
Code: Alles auswählen
REM ***** BASIC *****
Sub Main
Dim oDoc as Object
Dim oTab1 as Object
Dim nRows as Long
Dim i As Long
oDoc=ThisComponent
' Tabelle 1 in diesem Fall Index=0
oTab1=oDoc.TextTables.getByIndex(0)
' Wieviel Zeilen hat die Tabelle?
nRows=oTab1.Rows.GetCount
' Schleife über alle Zeilen von Tabelle 1
for i = 0 to nRows-1
oTab1.Rows.getByIndex(i).IsAutoHeight=False ' dynamische Zeilenhöhe ausschalten
oTab1.Rows.getByIndex(i).Height=1700 ' 1000 = 1,0cm
next i
End Sub
Gruß
Craig
Nie die Sicherungskopie vergessen!
════════════════════════════════════════════════
WIN 10 Pro 64-Bit • LO 7.4.5.1 (x64) • AOO 4.1.8
Craig
Nie die Sicherungskopie vergessen!
════════════════════════════════════════════════
WIN 10 Pro 64-Bit • LO 7.4.5.1 (x64) • AOO 4.1.8
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 ❤️