【マクロ】OpenOfficeでセルを上下左右にセンタリングするマクロ

OpenOfficeでは、多分エクセルでもそうだと思いますが、セル内の上下のセンタリングが、

ツールバーでは出来ませんから、プルダウンメニューから操作する必要があり、面倒です。

それを、「マクロの記録」でマクロにしてみました。一個の操作で済みますから便利です。

Sub Main
End Sub

sub centering
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 = "HorizontalJustification"
args1(0).Value = com.sun.star.table.CellHoriJustify.CENTER
dispatcher.executeDispatch(document, ".uno:HorizontalJustification", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "VerticalJustification"
args2(0).Value = com.sun.star.table.CellVertJustify.CENTER
dispatcher.executeDispatch(document, ".uno:VerticalJustification", "", 0, args2())
end sub

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

ページトップに戻る↑　　　　　　　　　　　　　　　　　　　　　　　　　　　ページ一番下へ↓