Re: [de-users] Re: Makro wird nicht mehr ausgeführt

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+unsubscribe@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