Hallo Franklin,
bei mir läuft das Makro einwandfrei in 7.4.3.2. Am Code fehlt also nichts.
Liegt es vielleicht daran, dass du RightPageFooterContent setzt? Wenn du
da in Format > Seitenvorlage > Fußzeile > Bearbeiten gehst, musst du auf
den Reiter "Fußzeile (weitere)", um den Eintrag zu sehen. Oder die
Druckvorschau verwenden.
Gruß
Gerhard
Am 27.11.2022 um 09:56 schrieb Franklin Schiftan:
REM ***** BASIC *****
Sub FusszeileSetzen
IF NOT ThisComponent.supportsService (
"com.sun.star.sheet.SpreadsheetDocument" ) then exit Sub
DIM OFormatFamilien as Object, oSeitenFormate as Object
DIM oSeitenFormat as Object, oFT as Object, oText as Object
oFormatFamilien = ThisComponent.StyleFamilies
oSeitenFormate = oFormatFamilien.getByName("PageStyles")
oSeitenFormat = oSeitenFormate.getByName("Default")
oSeitenFormat.FooterIsOn = True
oSeitenFormat.FooterIsShared = true 'beide Seiten sind gleich
oFT = oSeitenFormat.rightPageFooterContent 'FooterText Objekt
' oText = oFT.CenterText 'Mittleres Textobjekt
oText = oFT.RightText 'Rechtes Textobjekt
oText.setstring(format( now(), "yyyy-mm-dd"))
oSeitenFormat.rightPageFooterContent = oFT
End Sub
--
Liste abmelden mit E-Mail an: users+unsubscr...@de.libreoffice.org
Probleme?
https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy
