Hi,
I didn't express very clearly. What I want to do is to set WritingMode
property for all the selected cells.
I did use MRI to explore APIs, but I was stuck in the middle.
To Mathias,
When selecting multiple cells, WritingMode of the first cell changed. The
remaining cells didn't
In contrast, ParaAdjust of all paragraphs in all the selected cells are
changed.
To Bernard,
It seems that I can't even call getByIndex() on my selection.
2015-07-09 1:12 GMT+08:00 Bernard Marcelly <marce...@club-internet.fr>:
> Hi Mark,
> You should use Xray to help you explore the API.
> All my indications here can be found by a study of what Xray displays (and
> then reading of API docs).
>
>
> - You can find if your selection is inside a paragraph of a cell, and then
> find the cell and its table:
>
> Dim firstSelection As Object
> Dim currentCell As Variant, currentTable As Variant
>
> firstSelection = oCurrentSelection.getByIndex(0)
> currentCell = firstSelection.Cell
> if not IsEmpty(currentCell) then
> currentCell.WritingMode = com.sun.star.text.WritingMode2.TB_RL
> currentTable = oCurrentSelection.TextTable
> else
> MsgBox("First selection is not in a table")
> end if
>
>
> - A table has a property WritingMode. Perhaps it can set WritingMode to
> all cells at once (not tested).
>
> - Enumerate all cells of a table : the table has method getCellNames()
> that returns an array of all the cell names.
>
>
> Regards
> Bernard
>
>
> Hung Mark a écrit le 2015-07-08 13:52 :
>
>> 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
>>
>>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: api-unsubscr...@openoffice.apache.org
> For additional commands, e-mail: api-h...@openoffice.apache.org
>
>
--
Mark Hung
