links uitlijnen met een macro

Ik heb bij OOo 1.9.79 een macro opgenomen die de inhoud van de cel links zou moeten uitlijnen. Dat gebeurd echter niet. Onderstaand het betreffende deel van de code:

sub mcrDatumOpmaakNL
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$B$30"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "HorizontalAlignment"
args2(0).Value = com.sun.star.table.CellHoriJustify.LEFT

dispatcher.executeDispatch(document, ".uno:HorizontalAlignment", "", 0, args2())

rem --

Iemand een idee? De zelfde code werkt in OOo1.1.2 wel.

groet, Herman

(vraag ook reeds gesteld op OO0-forum; geen antwoord)

Manuzzi,

deze werkt wel in 1.9.100

Sub Main
Dim oDoc as Object

oDoc = ThisComponent

Sheet = oDoc.Sheets(0) ' 1e werkblad

' Now do some formatting
Dim range As Object

range = Sheet.getCellByPosition(1,29) 'cell B30
range.HoriJustify = com.sun.star.table.CellHoriJustify.LEFT

End Sub

Beetje laat, maar misschien heb je er nog iets aan.

DiGro :8-0:

Bedankt DiGro, het werkt.

En nu deze:

sub mcrDatumOpmaak
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "NumberFormatValue"
args1(0).Value = 162

dispatcher.executeDispatch(document, ".uno:NumberFormatValue", "", 0, args1())


end sub


Deze is ook met de MacroRecorder opgenomen en werkt evenmin. Het datumformaat zou moeten worden: "NNNND MMMM JJJJ"

groet, Herman

Herman,

het duurde even, .........................maar dan heb je ook wat

range.setPropertyValue("NumberFormat", 79)

zou het moeten doen.

jouw waarde van 162 geeft het nr van de dag weer :evil:

Heb het even getest in 1.1.4 en 1.9.104 en het werkt in
beide.

ps: ben even uitgegaan van jouw bovenstaande voorbeeld
dus als je eea kopieert lijnt hij jouw datumopmaak links
uit

Gr,
DiGro

Bedankt Dick,
De code is daarbij ook nog leesbaar voor een leek.
Het werkt hier thuis in NeoOffice/J. Ga er vanuit dat het ook werkt in mijn werkblad in OOo 1.9.100 op mijn werk.
gr, Herman

p.s: Deze code lijnt natuurlijk niet links uit, dat was de vorige Je bedoelt zeker dat, als ik het bij de vorige code inplak, de datum in het gewenste formaat wordt weergegeven en links uitgelijnd

Geplaatst door DiGro

range.setPropertyValue("NumberFormat", 79)

ps: ben even uitgegaan van jouw bovenstaande voorbeeld
dus als je eea kopieert lijnt hij jouw datumopmaak links
uit

Gr,
DiGro

Klik om te vergroten...

re: links uitlijnen met macro

Herman,

dat heb je juist geïnterpreteerd.

:thumb:

maar omdat hij in deze thread stond heb ik het
maar zo gedaan.

DiGro