Justify vertically Left Footer in Calc via Macro

[Jonjozz]

I have this code:
Sub ChangeLeftFooter
Dim oStyle, oFooter, oStyleFamilies as object
dim oDoc as Object
Dim sLeft as String
sLeft = “_______________________” & chr(10) & _
“JUSTICE OFFICER” & chr(10) & “Coordenator”
oDoc = ThisComponent
oStyleFamilies = oDoc.StyleFamilies
oStyle = oStyleFamilies.getByName(“PageStyles”).getByName(“Default”)
oStyle.FooterOn = True
oFooter = oStyle.RightPageFooterContent
oFooter.LeftText.String = sLeft
oStyle.RightPageFooterContent = oFooter
End Sub

And I get this one:

Is There a macro code that The left footer becomes vertically (center) alignment?

Like this:

[sokol92]

In this case, it is unlikely that a macro can do something that cannot be done interactively.
Adjust in “manual” mode:

sLeft = "_______________________"    & chr(10) & _
        "       JUSTICE OFFICER"     & chr(10) & _
        "            Coordenator"

Helpful hint: In forum posts, add a three-character line ``` before and after the code.

[Jonjozz]

Yes, certainly…but I will delivery the program to many people to insert names in footer by a button and a dialog box. Do you know any macro code to align names? I know that there is a boolean “.CenterVertically” for cells…Anyway, Thanks for your attention.

[sokol92]

If it is possible to use a monospaced font in the footer, then the task becomes simple.