こんなの作ってました

あとはシート状態から16進数にエンコードした値を取り出せたら完璧なのだけれど、OpenOfficeのマクロが良くわかりません。

やってみたところでは、ダイアログに計算結果を出力するようなのは動かせたのだけれども、オブジェクトが絡むと、たとえば番号でもシートオブジェクトを取得できない。マクロを記述する場所が良くなかったりするのかなぁ。

最終的にはセルの色を並べて16進数にするだけののことなのだが、基本的なところから要勉強だ。

Dim Doc As Object
Dim Sheet As Object

Doc = StarDesktop.CurrentComponent
Sheet  = Doc.Sheets (0)