解決 VBAからCALC 文字列の配置
Posted: 2月 8, 2011, 7:57 am
VB（できればVBA）からCALCドキュメントを開き、セルの文字列の配置を縦書きに設定する方法を教えてください。
windowsXP、ACCESS2000のVBAで作業しています。
windowsXP、ACCESS2000のVBAで作業しています。
（英語の情報しかないことが多いのでググる際には英単語のみを使うと良いと思います。）
で、OOo BasicではA1のセルを縦書きにするのに以下のように書くということが分かると、
コード: 全て選択
Sub Main
oDoc = ThisComponent
oSheets = oDoc.getSheets()
oSheet = oSheets.getByIndex(0)
oRange = oSheet.getCellRangeByName("A1")
oRange.setString("ああああ")
oRange.Orientation = 3
oRange.AsianVerticalMode = True
End Sub
コード: 全て選択
Sub Main()
' oDoc = ThisComponent
Set OOo = CreateObject("com.sun.star.ServiceManager")
Set oDesktop = OOo.createInstance("com.sun.star.frame.Desktop")
Dim dummy()
Set oDoc = oDesktop.LoadComponentFromURL("private:factory/scalc", "_blank", 0, dummy)
Set oSheets = oDoc.getSheets()
Set oSheet = oSheets.getByIndex(0)
Set oRange = oSheet.getCellRangeByName("A1")
oRange.setString ("ああああ")
oRange.Orientation = 3
oRange.AsianVerticalMode = True
End Sub
