2010年10月03日

OpenOffice.orgマクロ小技

 OpenOffice.orgのマクロで、ちょっとした小技を書いてみる。
 他に思い付いたら、この記事に小技集として追加していくつもり。


シートの全セルを最適な列幅に

' 全セルを最適な幅に
Sub All_OptimalWidth
ThisComponent.CurrentController.ActiveSheet.Columns.OptimalWidth = True
End Sub
 OpenOffice Calcには、指定したセルに対して「最適な列幅」にするコマンドがあるが、
「シートの全セル指定 → 最適な列幅」
の手順を一回でできるようにしたマクロ。
 これをツールバーなどに登録すればいつでも起動できる。

1ボタンで書式設定

' 書式設定・数字
Sub Format_Number
Format_Setting("#,##0 ")
End Sub
'
' 書式設定・日付
Sub Format_Day
Format_Setting("M/D(AAA)")
End Sub
'
' 書式設定サブルーチン
Sub Format_Setting(sFormat)
Dim nKey As Long
Dim oLocale As New com.sun.star.lang.Locale
Dim args(0) as new com.sun.star.beans.PropertyValue
'
nKey = ThisComponent.NumberFormats.queryKey( sFormat, oLocale, False )
If nKey = -1 Then
nKey = ThisComponent.NumberFormats.addNew( sFormat, oLocale )
End If
args(0).Name = "NumberFormatValue"
args(0).Value = nKey
createUnoService("com.sun.star.frame.DispatchHelper").executeDispatch(ThisComponent.CurrentController.Frame, ".uno:NumberFormatValue", "", 0, args())
End Sub
 カーソル位置、もしくは範囲指定したセルの書式を一つのコマンドで変更するマクロ。
「Format_Number()」と「Format_Day()」が実行用で、「Format_Setting()」がサブルーチンとなっているので、書式の内容だけを変えた実行用マクロを作ってボタンやショートカットなどに登録しておけば、好きなだけ書式の項目を増やす事ができる。



タグ:OpenOffice.org

posted by 司隆 at 17:03 | Comment(2) | TrackBack(0) | Computer
この記事へのコメント
こんばんわ。

下記サイトでOpenOffice.orgの情報集取・公開をしているものです。

Free Softwareでいこう!!
「 OpenOffice.orgを使おう編 」

URL : http://openoffice3.web.fc2.com/

因みにOpenOffice.orgのCalcには隠しコマンドがあります。
その中でも「OpenOffice.orgでスペースインベーダー風ゲームをする方法」は結構本格的gameだと思います。
上記サイトの「7.Calcの超裏技」に紹介サイトへのLinkを貼ってあります。

また、本サイトの紹介Linkを上記サイトの「3.関連サイト」=>「【General】」に記しています。
覗いて見て、良ければ当方のサイトへのLinkを紹介頂ければ幸いです。
Posted by new_OOo3 at 2010年10月03日 23:41
new_OOo3さん

どうも、初めまして。

サイトを見せていただきましたが、小技などの情報量が多く、
またゲームだけでなく、欲しいと思っていた機能を見つける事も
できまして、大変参考になりました。

私もブログを見ての通りゲーム好きなので、隠しゲームはいずれ
日記に書くと思いますw

そして、リンクはこちらの記事に張らせていただきました。

OpenOffice.orgまとめ
http://19xx-s-rank.seesaa.net/article/164055181.html

では、またサイトは参考にさせていただきますので、よろしくです。
Posted by 司 隆 at 2010年10月04日 10:09
コメントを書く
お名前: [必須入力]

メールアドレス:

ホームページアドレス:

コメント: [必須入力]


この記事へのトラックバック
×

この広告は180日以上新しい記事の投稿がないブログに表示されております。