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

Am 2022-11-27 um 13:54 schrieb Gerhard Weydt:
> Hallo Franklin,
>
> bei mir läuft das Makro einwandfrei in 7.4.3.2.

Danke fürs Testen!

> Am Code fehlt also nichts. Liegt es vielleicht daran, dass du
> RightPageFooterContent setzt?

Nö. Hatte bislang auch immer einwandfrei funktioniert ...

> Wenn du da in Format > Seitenvorlage > Fußzeile > Bearbeiten gehst,
> musst du auf den Reiter "Fußzeile (weitere)", um den Eintrag zu
> sehen.

O.k., danke für den Hinweis, dort sehe ich den Eintrag auch wie
gewünscht drin stehen ....

> Oder die Druckvorschau verwenden.

... nur in der Druckvorschau und im Ausdruck leider nicht.

Wodran könnte das wohl liegen?

> Gruß Gerhard

 .... und tschüss

            Franklin




> 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