Hi Mathias, While invoking setPropertyValue for ParaAdjust works, it is a Paragraph property instead of a cell property.
Sub ModifyCells Dim oCurrentSelection As Variant oCurrentSelection = ThisComponent.getCurrentSelection() oCurrentSelection.setPropertyValue( "WritingMode", com.sun.star.text.WritingMode2.TB_RL ) ' doesn't work oCurrentSelection.setPropertyValue( "VertOrient", com.sun.star.text.VertOrientation.BOTTOM ) ' doesn't work oCurrentSelection.setPropertyValue( "ParaAdjust", com.sun.star.style.ParagraphAdjust.RIGHT ) ' works oCurrentSelection.setPropertyValue( "ParaBackColor",RGB(100,0,0) ) ' works End Sub 2015-07-08 18:02 GMT+08:00 Mathias Röllig <[email protected]>: > Hello Mark! > > It works. Maybe you are missing something like > > oCurrentSelection.setPropertyValue( "ParaAdjust", > com.sun.star.style.ParagraphAdjust.RIGHT ) > > Regards, Mathias > > --------------------------------------------------------------------- > To unsubscribe, e-mail: [email protected] > For additional commands, e-mail: [email protected] > > -- Mark Hung
