Cell操作
[ Cellの書式設定(Property) / Font(2) ]
Sub SampleCode()
Dim oDoc as Object, oSheet as Object
Dim oCellRange as Object, oCell as Object
oDoc = ThisComponent
oSheet = oDoc.getSheets().getByIndex(0)
oCellRange = oSheet.getCellRangeByName("A1:A2")
oCellRange.CellBackColor = RGB(0,255,0)
msgbox "Change Back Color!!",0,"LO7.5.2.2"
' A1 Cellの背景を削除する。(元に戻す)
oCell = oSheet.getCellRangeByName("A1")
oCell.CellBackColor = -1
msgbox "Remove Back Color!!",0,"LO7.5.2.2"
End Sub
Sub SampleCode()
Dim oDoc as Object, oCtrl as Object, oFrame as Object
Dim oDispatcher as Object
Dim oProp(0) as new com.sun.star.beans.PropertyValue
oDoc = ThisComponent
oCtrl = oDoc.getCurrentController()
oFrame = oCtrl.getFrame()
oDispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
'
oProp(0).Name = "ToPoint"
oProp(0).Value = "A1"
oDispatcher.executeDispatch(oFrame, ".uno:GoToCell", "", 0, oProp())
'
oProp(0).Name = "BackgroundPattern.BackColor"
oProp(0).Value = RGB(0,255,0)
oDispatcher.executeDispatch(oFrame, ".uno:BackgroundPattern", "", 0, oProp())
msgbox "Success" & Chr$(10) & "( DispatchHelper )",0,"LO.7.5.2.2"
End Sub
Sub SampleCode()
Dim oDoc as Object
Dim oSheet as Object
Dim oCell(5) as Object
oDoc = ThisComponent
oSheet = oDoc.getSheets().getByIndex(0)
for i = 0 to 5
oCell(i) = oSheet.getCellByPosition(0,i)
oCell(i).String = "A"
next i
'
oCell(0).RotateAngle = 2000 '20degree
oCell(1).RotateAngle = 4000
oCell(2).RotateAngle = 6000
oCell(3).RotateAngle = 9000
oCell(4).RotateAngle = -4500
oCell(5).RotateAngle = -9000
msgbox("Success",0,"LO7.5.2.2")
End Sub
Sub SampleCode()
Dim oDoc as Object, oSheet as Object
Dim oCtrl as Object, oFrame as Object
Dim oDispatcher as Object
Dim oCell(5) as Object
Dim oProp(0) as new com.sun.star.beans.PropertyValue
oDoc = ThisComponent
oSheet = oDoc.getSheets().getByIndex(0)
for i = 0 to 3
oCell(i) = oSheet.getCellByPosition(0,i)
oCell(i).String = "A"
next i
'
oCtrl = oDoc.getCurrentController()
oFrame = oCtrl.getFrame()
oDispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
'
' Standard
oProp(0).Name = "ToPoint"
oProp(0).Value = "A1"
oDispatcher.executeDispatch(oFrame, ".uno:GoToCell", "", 0, oProp())
oProp(0).Name = "AlignmentRotationMode"
oProp(0).Value = com.sun.star.table.CellVertJustify.STANDARD
oDispatcher.executeDispatch(oFrame, ".uno:AlignmentRotationMode", "", 0, oProp())
oProp(0).Name = "AlignmentRotation"
oProp(0).Value = 6000 ' 60 degree
oDispatcher.executeDispatch(oFrame, ".uno:AlignmentRotation", "", 0, oProp())
'
' Cell の上縁を基準に傾ける
oProp(0).Name = "ToPoint"
oProp(0).Value = "A2"
oDispatcher.executeDispatch(oFrame, ".uno:GoToCell", "", 0, oProp())
oProp(0).Name = "AlignmentRotationMode"
oProp(0).Value = com.sun.star.table.CellVertJustify.TOP
oDispatcher.executeDispatch(oFrame, ".uno:AlignmentRotationMode", "", 0, oProp())
oProp(0).Name = "AlignmentRotation"
oProp(0).Value = 6000 ' 60 degree
oDispatcher.executeDispatch(oFrame, ".uno:AlignmentRotation", "", 0, oProp())
'
' Cell の下縁を基準に傾ける
oProp(0).Name = "ToPoint"
oProp(0).Value = "A3"
oDispatcher.executeDispatch(oFrame, ".uno:GoToCell", "", 0, oProp())
oProp(0).Name = "AlignmentRotationMode"
oProp(0).Value = com.sun.star.table.CellVertJustify.BOTTOM
oDispatcher.executeDispatch(oFrame, ".uno:AlignmentRotationMode", "", 0, oProp())
oProp(0).Name = "AlignmentRotation"
oProp(0).Value = 6000 ' 60 degree
oDispatcher.executeDispatch(oFrame, ".uno:AlignmentRotation", "", 0, oProp())
msgbox("Success",0,"LO7.5.2.2")
End Sub
Sub SampleCode()
Dim oDoc as Object
Dim oSheet as Object
Dim oCell as Object
oDoc = ThisComponent
oSheet = oDoc.getSheets().getByIndex(0)
oCell = oSheet.getCellByPosition(0,0)
With oCell
.String = "LibreOffice / Apache OpenOffice"
.CharWeight = com.sun.star.awt.FontWeight.BOLD
End With
msgbox("Success",0,"LO7.5.2.2")
End Sub
Sub SampleCode()
Dim oDoc as Object, oSheet as Object, oCell as Object
oDoc = ThisComponent
oSheet = oDoc.getSheets().getByIndex(0)
oCell = oSheet.getCellRangeByName("A1")
oCell.String = "こんにちは。" & Chr$(10) & "LO Ver4.2.4" & Chr$(13) & _
"6月3日" & Chr$(10) & "( 3は全角 )"
oCell.Orientation = 3
oCell.AsianVerticalMode = True
'
msgbox "Success" & Chr$(13) & "縦書き",0,"LO7.5.2.2"
End Sub
Sub SampleCode()
Dim oDoc as Object, oSheet as Object, oCell as Object
Dim oCtrl as Object, oFrame as Object
Dim oDispatcher as Object
Dim oProp(0) as new com.sun.star.beans.PropertyValue
oDoc = ThisComponent
oSheet = oDoc.getSheets().getByIndex(0)
oCell = oSheet.getCellRangeByName("A1")
oCell.String = "こんにちは。" & Chr$(10) & "LO Ver4" & Chr$(13) & _
"5月8日" & Chr$(10) & "( 8は全角 )"
'
oCtrl = oDoc.getCurrentController()
oFrame = oCtrl.getFrame()
oDispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
'
' Standard
oProp(0).Name = "ToPoint"
oProp(0).Value = "A1"
oDispatcher.executeDispatch(oFrame, ".uno:GoToCell", "", 0, oProp())
oDispatcher.executeDispatch(oFrame, ".uno:TextdirectionTopToBottom", "", 0, Array())
'
msgbox("Success",0,"LO7.5.2.2")
End Sub