OpenOffice表計算のマクロ（Basic)で選択中の結合セルからサイズを取得する方法について教えてください

Question

事情によりOpenOfficeの表計算ソフト上で簡単なマクロを作らなければならなくなったのですが、私は満足なプログラミングの知識をもっていず、また身近に頼れる詳しい人もいずに困り果ててしまいました。

マクロの内容は選択中の結合されたセルのサイズ（幅と高さ）にあわせて、はみ出さない範囲で拡大した画像を挿入するというものです。
ネットで検索するなどして調べたOOoBasicマクロの情報を元につぎはぎして、理解できないなりになんとか選択範囲のサイズを取得してあわせて拡大／縮小する所まではいきました。しかし、結合されたセルを選択している場合には、結合されたセルの中の一番左上の単一セルのサイズを取得してしまい、結合されたセル全体のサイズがどうしても取得できないという問題が残ってしまいました。

詳しく書くと、
Dim oSelection As Object
oSelection = ThisComponent.CurrentSelection
Dim w_len As Long
Dim h_len As Long
w_len = oSelection.size.Width
h_len = oSelection.size.Height
としたいうようになっていて、A1からC3まで結合されたセルを選択してマクロを実行するとA1の単一セルのサイズがw_lenとh_lenに入ってしまいます。

MicrosfOfficeに比べてOOoは情報が少なく、またあったとしても分かっている人向けに書いてあることが多く、関係がありそうなものを探しては闇雲にテストしてエラーを返され続けることに疲れました。
なにか良い方法があれば教えてください。よろしくお願いいたします。

Wendy02 · Accepted Answer

こんにちは。

私は、OOo は、未だ入門程度です。最近、OOo の質問が増えたことと、その質問を回答してみて、少し難があったので、レベルアップもあって、しばらく勉強してみました。ただ、当分、ここの板での継続した発言の予定はしておりません。

OOoBasicについては、多少の期待はあったのですが、情報も充実していませんし、OOoBasicを追いかけるには、VB系とは違いすぎます。違うといわれるVB.Net のほうがまだVBAに近いです。MS製のCOMさえ、標準で使えないようになっています。閲覧に、IEすら受付ない所もあるようです。

ご質問の件は、以下の掲示板でさがしてみました。Merged Cells 自体はあっても、その範囲自体を取る方法は出てきません。

検索場所：
http://www.oooforum.org/forum/search.phtml

キーワード例: Marged Cell

今回のような内容は出ていませんから、少なくとも、OOoBasic単独では出来ないのではないかと思っています。また、Novel のOOo やGo-oo のConverter を入れてどうかはチェックしていませんが、最初から、それに頼ったら技術的に見えてきませんので使っていません。MS系の場合は、日本も米国の掲示板も、VBAに関しては、面白いほど質問内容が変わりませんし、日本の掲示板は、ここのサイトでさえ、かなり良い線だと見えてきます。

StarSuite等のマニュアルのBasic 英文・和文を二日間掛けて読んでみました。その上で、こだわらなければ書籍の購入は必要ないように思います。もともと、営利目的ではないものですから、3分の2は英文ですが、PDFを集めれば十分のようです。しかし、開発ソリューションやDeveloper Versionですと、Java/C++を要求されますし、JavaScript さえも、非常に特殊な内容ですから、一般的なJSでは分かりません。

日本語のサイトでは、少なくとも、OOoBasic に関しては、私にとって、それほど読むべき内容が見当たらないように思いました。「StarSuite 開発者ガイド」を読む限りでは、Basic は、MS?に似せているだけで元が分からないと解決しないように思います。

以下のようなサンプルを考えてみました。
A1:C3 まで、連結させて、A1での結合のチェックは出てきますが、他のセルでは結合状態が出てきませんので、どこまで結合しているかは、マクロでは出せません。目視で、結合状態を求めるなら、マクロとしての意味はないと思います。

'-------------------------------------------
Sub Test1
Rem Using 'IsMarged'
Dim oCell As Object
oCell =ThisComponent.getCurrentSelection 'Any CellPosition
If oCell.IsMerged Then
msgbox "Selected Cell is Marged"
Else
msgbox "Selected Cell is NOT Marged"
End If
End Sub
'-------------------------------------------
Sub Test2
 Rem Each size is accumulated
 Dim sh As Object
 Dim oCell As Object
 Dim c As Object
 Dim i As Long, j As Long, y as Long, x As Long
 Dim w As Long, h As Long
 Dim s$ 
s ="A1:C3" 'Name of RangeArea
    w=0
    h=0
sh = ThisComponent.CurrentController.ActiveSheet
oCell = sh.getCellRangeByName(s)
x =oCell.getRangeAddress.EndColumn
y =oCell.getRangeAddress.EndRow
For j = 0 to x
    c = sh.getCellByPosition(i,j)
    w = w + c.Columns.Width
Next

For i =0 to y 
c =sh.getCellByPosition(i,j)
h = h + c.Rows.Height
Next 
Print "w: "& w &"mm  h: " & h &"mm"
End Sub
'-------------------------------------------
(画面からコピペで取らない限りは、Tab入り)

>はみ出さない範囲で拡大した画像を挿入するというものです。

MS Office VBAでも、画像をサイズをセルに合わせて挿入する方法は、少なくとも入門レベルではありません。そこまで書けるレベルなら、MS Office VBAにはほとんど困っていないはすです。それを移植実現させるのは大変です。どうやら、MS Office を向こうに回して、新たに構築していく必要がありそうです。だから、MS Office でしてきたことは、一旦忘れたほうが良いのかもしれませんね。

>従来のExcelVBAマクロとまったく同じ動きをするOOoBasicマクロをマクロを完成させることが一番助かることになります。
Novel 版は、いかがですか？

私個人としては、まだ、日数が浅いので、結論を出すのは早いかもしれませんが、OOoBasic に関する限りは、VBAの中級レベル以上の移植は、UNO/APIの利用以外は不可能ではないかと思っています。しかし、それに関わる時間と労力なら、他の言語を深めたほうが無駄が少ないように思います。

日本のOOoBasicサイトでは、ここの常連なら、誰でも書くCOMやオートメーションを利用したVBAのコードでも出てきません。どうやら、JavaやC++、または、UNOやAPI以外のOOoBasic に関する限りは、VBAとの共有点は少ないようです。

なお、あくまでも、VBA経験者としての発言ですから、当方の誤解や語彙に対する誤謬自体の指摘と訂正は構いませんが、ここの規約にあるように、単なる指摘発言はお断りします。

new-OKWave · Answer

#1です。
質問者さんが社会人との前提で少し厳しい事を記します。(小中学生ならば無視して下さい。)

＞・・・マクロを作る僕自身が直接その職場に関わることはなくトラブル時の保守や責任を考えると・・・
⇒では誰がその仕事に対する責任を取るのですか？
質問者さんは会社の中では無く、自宅の自分のPCを用いてボランティアでされているのですか？
社会人ならば責任を取れない事柄に対しては請け負わずに断るべきです。少なくとも勘違いで請け負ってしまったとしても今からでも断るべきです。

＞また、書籍を購入するのは金銭的に余裕がないこともあり、目的の情報が確実に載っていること確認できないと厳しいのが現状です。
⇒パソコンを保持して、ネットまでされている方が\3,000程度の参考書を調べもせずに購入する気が無いというのは他力本願過ぎると思います。

以上の事から、ご自身の保身を最優先にされている様なのでCalcでは無く今後もExcelを使っていく事をお奨めします。

因みにCalcでも「結合したセル」のサイズ調査は少し頭を使えば出来ます。（添付図参照）

new-OKWave · Answer

＞マクロの内容は選択中の結合されたセルのサイズ（幅と高さ）にあわせて、はみ出さない範囲で拡大した画像を挿入するというものです。
⇒目的が良く理解出来ません。
当方が疑問に思うことは
1)何故、「セルの結合」を使わなくてはならないのか？CalcはExcelと違いcm単位で高さや幅が設定できますので便利です。
2)画像データのサイズは一定なのか？
3)そもそも何故Calcで画像データの管理をするのか？
DataBaseソフトを使う方が楽と思います。

1)に関して別にセル自体の大きさを変えれば済む話だと思います。またその方が簡単だと思います。
2)に関しては画像データサイズがどの程度なのかが分かりません。画像サイズを均一にする事は難しい事ではありません。（Calcには複数の不特定サイズを均一にする拡張機能もあります。）

＞詳しく書くと、・・・
⇒記されたコードを見るとExcel VBAのコードの様ですね。（まあ、OOo Basicも対して変わりはありませんが。）

＞A1からC3まで結合されたセルを選択してマクロを実行するとA1の単一セルのサイズがw_lenとh_lenに入ってしまいます。
⇒何故「セルの結合」を行い、結合後のサイズが必要なのですか？
別に、1列目～3列目のセルの高さとA列～C列の幅を足せば済むのでは？

＞MicrosfOfficeに比べてOOoは情報が少なく、またあったとしても分かっている人向けに書いてあることが多く、・・・
⇒確かにVBAに比べると少ないですが皆無ではありません。
初心者向けには以下の書籍が出版されています。
1)書名：「OpenOffice.org3」、出版社：翔泳社
2)書名：「OpenOffice.orgマクロプログラミング」、出版社：工学社

因みに下記サイトのマクロが参考になると思いますので確認して下さい。
URL　：　http://openoffice3.web.fc2.com/index.html
[参考1]
「2.サンプルマクロ」⇒「実用マクロ100連発（OOoのかけら)画面へ」⇒「15)[Calc]選択範囲の最初と最後の行と列番号を取得」
[参考2]
「2.サンプルマクロ」⇒「実用マクロ100連発（OOoのかけら)画面へ」⇒「71)[Calc]セルの高さと幅を取得する。」

OpenOffice表計算のマクロ（Basic)で選択中の結合セルからサイズを取得する方法について教えてください

こんにちは。

#1です。

この回答への補足

＞マクロの内容は選択中の結合されたセルのサイズ（幅と高さ）にあわせて、はみ出さない範囲で拡大した画像を挿入するというものです。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング