【StarSuite Basic/OpenOffice.org Basic】

**ハンカチ仮面** · 2006/10/06(金) 20:04:48

StarBasicまたはOOo Basicプログラミングに興味のある方、
もしくは学習中の方、知識共有の場にしましょう。

参考になる主なリンク
StarSuite 8 Basic プログラミングガイド
http://docs.sun.com/app/docs/doc/819-1332?l=ja
OpenOffice.org 推進サイト
http://ooosupport.good-day.net/ja/documents/faq/
OpenOffice.org日本ユーザー会翻訳プロジェクト BASIC HELP
http://openoffice-docj.sourceforge.jp/tr/translated/basic_help_frame.html
OpenOffice.org本家 API Project
http://api.openoffice.org/
ウィキブックス OpenOffice.org Basic
http://ja.wikibooks.org/wiki/OpenOffice.org_Basic
ウィキブックス OpenOffice.org Calc Basic
http://ja.wikibooks.org/wiki/OpenOffice.org_Calc_Basic
pukiwiki Plus!
http://hermione.s41.xrea.com/pukiwiki

他に追加情報があったら教えてください。

**デフォルトの名無しさん** · 2008/07/09(水) 00:16:06

日本語に翻訳するところから始めるんだ
autodoc は UTF-8 通るんかね？

**デフォルトの名無しさん** · 2008/07/10(木) 17:54:23

OOo Basicで"VBScript.RegExp"を使うことは出来ないのでしょうか

**デフォルトの名無しさん** · 2008/07/10(木) 18:52:04

>>243
こうか？
Sub retest
Dim Re As Object
Re = CreateObject("VBScript.RegExp")

Re.Pattern = "A."
Re.Ignorecase = True
Re.Global = True
sResult = Re.Replace("abc", "12")

msgbox sResult
Re = nothing
End Sub

**デフォルトの名無しさん** · 2008/07/10(木) 19:42:21

>>244
そうなのですが、実行すると"Re.Pattern"の部分で
"BASICランタイムエラー例外が発生しました Type:Unknown"
というメッセージが表示されて終了してしまうのです
>>211
の人の場合のようにバージョン(ちなみに2.0)が関係するのでしょうか

**デフォルトの名無しさん** · 2008/07/10(木) 20:30:09

>>245
WinXPSP3で OOo 2.4.1、2.0.4 なら普通に動くが・・・
OS の問題かね？

**デフォルトの名無しさん** · 2008/07/10(木) 22:26:36

>>246
OSはWin98SE(Ie6SP1)です
あきらめてbregexp.dllを使ってみようかと思いますが
"Declare Function"が使えるのはどのバージョンからでしょうか

**デフォルトの名無しさん** · 2008/07/10(木) 22:36:14

>>247
1.0 系からでも使えるはず

**デフォルトの名無しさん** · 2008/07/11(金) 00:38:56

Declare Function ReReplace Lib "bregexp.dll" Alias "Replace" _
(szRegstr As String, szTarget As String) As String

Sub ExampleDeclare
Dim sExp As String
Dim sTarget As String
Dim sStr As String
sTarget = "12"
sExp = "/\d/x/"
sStr = ReReplace(sExp, sTarget)
msgbox sStr
'FreeLibrary("bregexp.dll" )
End Sub

invalid target parameter って表示される・・・。

**デフォルトの名無しさん** · 2008/07/11(金) 08:36:57

>>248
1.1.5使いの211です
>>249を実行すると
「BASIC ランタイムエラー　実装されていません」
となります
日本語独自ビルドであることは無関係なのでしょうか？
>>223
表計算ソフトが必要なのでエディタで代替出来ません
>>226
gnumericはインストールできませんでした

**デフォルトの名無しさん** · 2008/07/11(金) 20:04:38

実装されていませんって・・・ダミーってことかね

・・・ com.sun.star.util.TextSearch サービスはカスだしなぁ

**デフォルトの名無しさん** · 2008/07/11(金) 21:45:45

>>250
dll はフルパスで書かなきゃ駄目とか

**デフォルトの名無しさん** · 2008/07/11(金) 22:52:06

>>252
早速試してみたところ実装はされたようですが
下記のマクロを実行したところ
「BASICのシンタックスエラー　パラメータはプロシージャに合いません」
となります(Excelでは「345」と正常に表示されます)

Declare Function Match Lib "C:\WINDOWS\SYSTEM\bregexp.dll" _
(szRegstr As String, szTarget As String) As String

Sub Test
sTarget = "12.345"
ret = Match("m/(\d{3})/", sTarget)
MsgBox ret
End Sub

**デフォルトの名無しさん** · 2008/07/11(金) 23:05:33

Sub Test
Dim sTarget As String
Dim sExp As String
sExp = "m/(\d{3})/"
sTarget = "12.345"
ret = Match(sExp, sTarget)
MsgBox ret
End Sub

こうすると、クラッシュするようになったよ・・・。

**デフォルトの名無しさん** · 2008/07/11(金) 23:18:29

>>254
奇遇だな。俺も今それを試してクラッシュしたところだ。OOo beta 3 だけどな。

**デフォルトの名無しさん** · 2008/07/11(金) 23:19:40

OOo 3 beta だった

**デフォルトの名無しさん** · 2008/07/11(金) 23:21:19

>>249 を書いたのも俺だが、sTarget = "12" を "123" にするとクラッシュするんだ

OOo 1.1 からPy-UNOが利用できるから、Python 使うとか・・・
1.1.5 をDLしてくるか

**デフォルトの名無しさん** · 2008/07/11(金) 23:24:55

ま、あきらめて自分で実装するのが一番早かったりしてな

**デフォルトの名無しさん** · 2008/07/11(金) 23:34:25

なるほど、Alternative dialog Find & Replace for Writer 拡張機能の正規表現は
Basic で書かれてるんかな？コメがチェコ語？かなんかでパット見よー分からん

それならパクッテこれば・・・1系で動くか分からんが

**デフォルトの名無しさん** · 2008/07/12(土) 00:03:17

あー、1.1.5 でも Py-UNO で TCP/IP 接続でいけるな
ttp://udk.openoffice.org/python/python-bridge.html

**デフォルトの名無しさん** · 2008/07/12(土) 00:05:59

ここはお前の日記帳か
それになんで TCP/IP が出てくるんだ

**デフォルトの名無しさん** · 2008/07/12(土) 00:09:56

OOo はTCP/IPで接続できるが？別にpipeでもいいけど

**デフォルトの名無しさん** · 2008/07/12(土) 04:50:57

通りすがりの者だが読んでるだけで勉強になるスレだと思った

**デフォルトの名無しさん** · 2008/07/12(土) 09:21:29

243です
私もフルパス指定でやってみましたが"bregexp.dll"以外のdll
(unlha32.dll,urmon.dll,nmail.dll)ではいずれも関数を呼び出した行で
"実装されていません"となります(フルパス指定しない場合と同じ)
なので2.0では"Declare Function"が使えないのだと思っていました

**デフォルトの名無しさん** · 2008/07/12(土) 11:23:01

kernel32 内のは動く (1.1.5、2.0)
ttp://www.oooforum.org/forum/viewtopic.phtml?t=72220&highlight=kernel32

Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
(ByRef lpbuffer As String, nSize As Long) As Long

Public Function ComputerName() As String
Dim sBuffer As String
Dim lSize As Long
Dim sNome As String

sBuffer = Space$(260)
lSize = Len(sBuffer)
Call GetComputerName(sBuffer, lSize)
If lSize > 0 Then
sNome = Left$(sBuffer, lSize)
lSize = InStr(sNome, Chr$(0))
If lSize Then
sNome = Left$(sNome, lSize - 1)
End If
Else
sNome= ""
End If
'ComputerName = sNome
MsgBox sNome
End Function

bregexp のときの Declare 時の引数を ByRef だの ByVal をいじっても特に変わりなし
相性悪いんかね・・・

**デフォルトの名無しさん** · 2008/07/12(土) 18:14:12

>>265も動きません
OS等OOo以外の環境が原因の可能性が濃厚ですね
そうなると他の方には解決策の探しようがありませんので
"Declare Function"の使用は断念します
お騒がせしました
(com.sun.star.util.TextSearchで２件目以降のマッチングさえ取得できれば・・・)

**デフォルトの名無しさん** · 2008/07/13(日) 00:34:31

TextSearch はリファレンスにサブパターンが取得できるっぽいことが書かれてるのに
取得できないのが痛いよなぁ

二件目以降は文字列の endOffset 以降を再検索で・・・

**デフォルトの名無しさん** · 2008/07/22(火) 06:11:06

com.sun.star.i18n.TransliterationでURLエンコード、デコードって出来るんでしょうか？

**デフォルトの名無しさん** · 2008/07/22(火) 14:46:57

いいえ

**デフォルトの名無しさん** · 2008/07/22(火) 20:10:42

そうですか、さんくすです。

**デフォルトの名無しさん** · 2008/08/27(水) 12:53:02

Sub clipboard_2
oClip = CreateUnoService("com.sun.star.datatransfer.clipboard.SystemClipboard")
oTransfer = oClip.getContents()
aDataFlavors = oTransfer.getTransferDataFlavors()
bType = False
For i = 0 To UBound(aDataFlavors) Step 1
aDataFlavor = aDataFlavors(i)
If aDataFlavor.MimeType = "text/plain;charset=utf-16" Then
bType = True
Exit For
End If
Next

If bType Then
' convert utf-16 to UNO string
oConverter = CreateUnoService("com.sun.star.script.Converter")
sData = oConverter.convertToSimpleType( _
oTransfer.getTransferData(aDataFlavor), _
com.sun.star.uno.TypeClass.STRING)
End If

End Sub

上記の "If bType Then" 以降の処理を行わず "aDataFlavor" を
クリップボードに戻す事は可能でしょうか

**デフォルトの名無しさん** · 2008/08/27(水) 13:29:10

>>271
クリップボードの内容を text/plain;charset=utf-16 だけにしたいってこと？

**デフォルトの名無しさん** · 2008/08/27(水) 14:40:02

>>272
はい、なぜか文字数が多くなると "If bType Then" 以降の処理の結果
"sData"が空になってしまうので回避したいのです

**デフォルトの名無しさん** · 2008/08/27(水) 14:45:16

>>273
64k 以上の文字列は扱えない・・・。というのが問題だとおもう
OOo Basic だと文字列は64kまで

**デフォルトの名無しさん** · 2008/09/05(金) 12:25:27

ttp://hermione.s41.xrea.com/pukiwiki/pukiwiki.php?OOoBasic%2FGeneric%2FWindow

このページに

>* boolean isVisible () 表示状態を返します
>* void setVisible ( [in] boolean Visible ) 表示状態を切り替えます

とあるのですが
oContainerWindow.setVisible(False) は問題ありませんが
bVisible=oContainerWindow.isVisible() はエラーになります

散々調べた結果

ttp://api.openoffice.org/docs/common/ref/com/sun/star/awt/XWindow.html#setVisible

このページで setVisible は XWindow の下位

ttp://api.openoffice.org/docs/common/ref/com/sun/star/awt/XWindow2.html#isVisible

isVisible は XWindow2 の下位である事まではわかったのですが、そこから先がわかりません
ご教授賜りたく、よろしくお願いいたします

**デフォルトの名無しさん** · 2008/09/05(金) 12:37:11

>>275
OOo 2.4.1 winXP では Calc のウィンドウに対して問題なく動く
Sub test25
oDoc = ThisComponent
oFrame = oDoc.getCurrentController().getFrame()
oContainerWindow = oFrame.getContainerWindow()
oContainerWindow.setVisible(False)
bVisible = oContainerWindow.isVisible()
oContainerWindow.setVisible(True)
End Sub

どんなエラーが出るんかね？

**デフォルトの名無しさん** · 2008/09/05(金) 17:44:16

>>276

BASIC ランタイムエラー
プロパティまたはメソッドが見つかりません
です

このスレッドを読むと1 系には実装されていないとかいうことでしょうか
設定は出来て取得できないなんて考えられないソフトです

メディアを演奏しようとすると
オブジェクト変数は設定できていません
とか言われるし

lockControllers() と addActionLock() を両方使っても
セルカーソルが移動するし

シート数４０、サイズ９Ｍほど(Excel97の場合)のファイルを保存するのに５分！もかかるし
(StarCalc形式なら２０秒弱ですむが文字が化けるし、Excel形式だと開くときにシート毎に
行の高さの調整とかを頼みもしないのに実行するのでとてもうっとうしい)

非表示で開いたＣＳＶファイルを保存すると空になってしまうし・・・

Excelのマクロを移植するのは断念します

ありがとうございました

さようなら

**デフォルトの名無しさん** · 2008/09/05(金) 20:58:10

OOo のマクロは利用者が少ないし、ドキュメントも整備されてないから、
開発にかなり忍耐を強いられるのは事実だな。多分不具合も多いと思う。
OOo3 系でも改善される気配がないし。

それに Excel は 2003 までだったらマクロとか動作速度に関しては良くできてるよ。
ただ、Excel 2007 で9M のファイルを開くとエラいことになりそうな気はするけど。

**デフォルトの名無しさん** · 2008/09/05(金) 21:35:08

>>278
よく使う API には問題ない
Basic も大抵なんともないが、あまり使われてなさそうなランタイム関数を使うとバグであー、ってなる

ドキュメントが整備されるとは思えん・・・DevGuide 読めば分かると思われてるし

**デフォルトの名無しさん** · 2008/09/05(金) 21:54:41

まぁ、整備されつつあるドキュメントといえば
ttp://wiki.services.openoffice.org/wiki/Documentation/BASIC_Guide
PDF にすると 214 ページ

翻訳されるようだが・・・
よく使われるであろう Calc に関する内容が少なすぎんかね

**デフォルトの名無しさん** · 2008/09/05(金) 22:11:23

最近見てないけど、全機能の解説には程遠いんだよね、確か
んで、ひたすら Google での検索地獄になる

**デフォルトの名無しさん** · 2008/09/06(土) 14:48:54

まぁ、ぐぐっても解決策が出てきた例がない

**デフォルトの名無しさん** · 2008/09/07(日) 11:20:27

>>282
使えねーな、全く
会津若松市さん　ご愁傷様

**デフォルトの名無しさん** · 2008/09/07(日) 11:23:47

まあ英語ページで回答が見つかることもあるよ

彼らは一体どこで調べたんだろうと思うけども

**デフォルトの名無しさん** · 2008/09/07(日) 12:34:40

本家で、難儀な質問に回答を出してるのは、
ソース触ってる中の人たちじゃまいか？

// ある意味、ソースがドキュメント状態？

**デフォルトの名無しさん** · 2008/09/07(日) 18:23:15

大抵のことは散乱しているドキュメントなどで見つかるんだよ
ソースを見なきゃならんこともあったが・・・

とはいえ、ユーザーが最初の一歩を踏み出そうとするときにまとまったドキュメントが無いと躊躇すると思う
マクロを書くユーザーの多くは OOo のソースなんて見たくないと思うんだが

**デフォルトの名無しさん** · 2008/09/08(月) 00:56:22

使えねーな、全く

**デフォルトの名無しさん** · 2008/09/08(月) 08:42:30

普通は >>277 のような書き込みは盛大に叩かれるのが一般的なのに、
ここでは誰も否定しないのが素晴らしい。みんなOOoには不満を抱えてるんだな

「○○がMS Officeを捨ててOOoを採用」とかいうニュースを見るたびに
担当 SE はご愁傷様、という気分になるよ

**デフォルトの名無しさん** · 2008/09/08(月) 11:00:09

VBAでシステム組むのが馬鹿なんだよな。
そうでないなら、MSOfficeを大幅に減らしても殆ど問題がないのに。

**デフォルトの名無しさん** · 2008/09/08(月) 21:10:54

>>289
同意。

**デフォルトの名無しさん** · 2008/09/08(月) 21:33:36

>>289
あの便利さは一度覚えるとなかなか抜け出せないと思うよ

**デフォルトの名無しさん** · 2008/09/08(月) 22:02:50

>>291
マならありえない発言だな

**デフォルトの名無しさん** · 2008/09/08(月) 22:09:53

与えられた案件を顧客の要望に沿って実現するのがプログラマではないでしょうか

**デフォルトの名無しさん** · 2008/09/08(月) 23:27:41

>>289
> VBAでシステム組むのが馬鹿なんだよな。
> そうでないなら、MSOfficeを大幅に減らしても殆ど問題がないのに。
AccessVBAとSQLで大抵の業務がすげーーー効率化、精度向上、リアルタイム化出来るんだけど。
ほとんど労力いらずで。Baseなんてので開発すりゃ、100倍の労力と1/100のサービスになりそう。
なんせ、情報が貧困過ぎる。

**デフォルトの名無しさん** · 2008/09/09(火) 00:24:07

細かい指摘ですまんが、

× SQL
◎ RDBMS
○ MS SQL Server

じゃないだろうか。
リアルタイム化というのは定期的にバッチで処理していた業務を OLTP 化するという事?

**デフォルトの名無しさん** · 2008/09/09(火) 00:33:15

>>295　「AccessとVBA」って書きたかった　に100ペセタ

**デフォルトの名無しさん** · 2008/09/09(火) 19:36:53

>>295
SQLは構造化クエリー言語だから、商品名ってわけじゃないと思うよ。
もち、Access内部のSQLを指す？

Baseはやはりどう考えても代替にはなり得ないと思うが

**デフォルトの名無しさん** · 2008/09/09(火) 23:31:31

>>297

> Baseはやはりどう考えても代替にはなり得ないと思うが
みんな黙っちゃったじゃまいか

**デフォルトの名無しさん** · 2008/09/09(火) 23:37:54

MS Office は捨てて OOo に移行しろ、みたいなことを言う人は基本的に信用しないことにしている。
本気で OOo に触ったことがある人ならそんなこと言えないと思うし。

**デフォルトの名無しさん** · 2008/09/09(火) 23:47:24

MSOfficeはVBA触って初めてそのバカ高い値段設定にも納得がいく。
開発環境としてすごい整ってる。

だがOO.oの未来を切り開きたい俺はPythonUNOで何とか頑張りたい。

**デフォルトの名無しさん** · 2008/09/10(水) 00:10:28

>>299
信用するかどうかは君の好きで決めていいんだよ。
わざわざ理由を考えてことわる必要なんて無いさ。

**デフォルトの名無しさん** · 2008/09/10(水) 00:24:12

このスレで言うのもなんだけど、Access を使うなら SQLite とか HSQLDB とか
Apache Derby とか MySQL とかをお好みで使えば良いじゃんと思ってしまう。

**デフォルトの名無しさん** · 2008/09/10(水) 14:53:08

>>297
> Baseはやはりどう考えても代替にはなり得ないと思うが

MSOfficeでも自動マクロ作成以外にマクロのコードを自分で組んでいる
ユーザはそう多くはないだろうということだろう。
OOoのマクロ言語がVBAの代替になるとまで言っている人を俺はいまだ見たことがないが。
問題点は指摘している人はオープンソース派サイドにも幾人かいるが。

**デフォルトの名無しさん** · 2008/09/10(水) 15:53:35

純粋なロジックだけの話なら、ooo-basicはvbaの代替になると思う。
ぶっちゃけ、basicだから。

問題は、アプリとの絡みがある時に、リファレンスになる物が無いって事だろ。
calcのセル操作とかで分んない事があったら、キーマクロ吐き出させて、
呼出関数を探るんだけど、そのキーマクロが吐き出した関数の詳細が判らん。
例えばの話、セルの巾を変える関数が判ったら、
その近くにセルの高さを変える関数があるはずなんだけど、
そういう事が解るようなサマリーが無い。
その辺のドキュメントが整理されてくれば、使い易くなるんでないかなぁ。

**デフォルトの名無しさん** · 2008/09/10(水) 18:34:36

>>303
> MSOfficeでも自動マクロ作成以外にマクロのコードを自分で組んでいる
> ユーザはそう多くはないだろうということだろう。
VBAは全員手書きだと思ってた
Accessが吐き出すVBAコードは、ある程度例外処理もなされているが
とてもじゃないが冗長すぎる。日本語入ってなくて分かりづらいし
後から手書きで直すのが苦痛ってか不可能。
普通、最初から手で書くか、コピペ手直し派がほとんどだと思うよ。

Accessが吐き出すSQLは割りと綺麗
後、とってもいじりやすい

**デフォルトの名無しさん** · 2008/09/10(水) 19:39:50

日本語コードに拒否反応起こらないの？

**デフォルトの名無しさん** · 2008/09/10(水) 22:17:22

>>306
オブジェクトの名称だろ
コードが日本語であるはずがない
ここの人は本当にVBA書いたことあるのだろうか？と疑いたくなる書き込みばかり

Accessが吐き出すVBAは全てアスキーコードに変換される
もちろん意味はある

しかし日本語で済めばそれに越したことはない

**デフォルトの名無しさん** · 2008/09/11(木) 00:38:04

>>304
>キーマクロ吐き出させて

マクロの記録だとコマンド URL しか出んけど、その部分のソース見てるって事？
dispatch は最終手段・・・

**デフォルトの名無しさん** · 2008/09/11(木) 04:38:49

OOoの場合は、マクロの自動生成で吐き出されるコードと、
打ち込みコードとの乖離がありすぎるのがいちばん難点。
その上、日本語のマニュアル書籍がほとんど皆無だから。

**デフォルトの名無しさん** · 2008/09/11(木) 06:07:01

>>309
あれはひどい

あと、全APIのドキュメントがない以上、英語の状況も似たようなもんだと思うよ
英語ではチュートリアルがあるだけマシといえばマシだが

**デフォルトの名無しさん** · 2008/09/11(木) 10:40:07

>>310
全API のドキュメントは登場しないと思う
今あるのは IDL ドキュメントだけど、IDL の無いサービスとかの IDL 追加を issue に出しても
内部用だから・・・とか言って拒否られる

**デフォルトの名無しさん** · 2008/09/11(木) 15:27:36

Sub [test space]
[文字列] = "abc"
msgbox [文字列]
End Sub

**デフォルトの名無しさん** · 2008/09/11(木) 22:37:56

使えねーな。ほんと
誰でもいいから、もっと使ってネガティブキャンペーンして、MSOfficeの値段を下げてくれよ。

**デフォルトの名無しさん** · 2008/09/11(木) 22:41:59

>>300
Py-UNO だとマクロを拡張機能に入れて配布しにくくないか？
サービスにして com.sun.star.task.XJobExecutor インターフェースとか使わないと実行しにくい

**デフォルトの名無しさん** · 2008/09/12(金) 07:21:33

OOoの普及率や完成度を考えたら、配布以前の問題だろ

**314** · 2008/09/12(金) 13:26:52

>>300
すまん。2.4.1 の PythonScriptProvider に不具合があるみたいだ

Linux 上だと動作するが、拡張機能が毎回無効にされる
WinXP 上だと ScriptURIHelper がエラーを吐く・・・。

**デフォルトの名無しさん** · 2008/09/12(金) 22:10:23

OOoでマクロならおとなしくBasicにしとくのが無難だと思うけどね。
一番需要があるから開発の今後に(少しは)期待できる気がする。
Javaですらどれだけ使われてるのか疑問。

**デフォルトの名無しさん** · 2008/09/12(金) 22:24:07

Basic は今後は安定化のみしかないっぽいことをどっかの issue で見た気がする
他の言語使えって言ってた
最近 Basic 関連での拡張などは Novel が VBA との互換性を向上させようとしてランタイム関数などをいじっていたもの

Type を Global 変数に入れると消えるのとか直してくれよ・・・
ttp://qa.openoffice.org/issues/show_bug.cgi?id=52057

**デフォルトの名無しさん** · 2008/09/12(金) 22:41:05

>>317
> 一番需要があるから開発の今後に(少しは)期待できる気がする。
> Javaですらどれだけ使われてるのか疑問。

たぶん習得する時間と労力が全て無駄になる

**デフォルトの名無しさん** · 2008/09/13(土) 00:01:01

>Basic は今後は安定化のみしかない

安定するならそれはそれで結構なことじゃないか

**デフォルトの名無しさん** · 2008/09/14(日) 04:36:31

マクロ記録機能で吐き出されるBasicコードをなんとかしてくれ～

**デフォルトの名無しさん** · 2008/09/14(日) 12:33:29

グラフいじったときの振る舞いとかを知りたいのに、そういうのは全く吐かれないんだっけ？

**デフォルトの名無しさん** · 2008/09/16(火) 21:20:56

>>322
そう、全く・・・

**デフォルトの名無しさん** · 2008/09/16(火) 21:53:03

グラフ絡みの挙動は、リファレンスで何とかならんかったっけ？

**デフォルトの名無しさん** · 2008/09/16(火) 22:10:33

グラフに新しい系列を追加したりするのはリファじゃさっぱり・・・

**デフォルトの名無しさん** · 2008/09/17(水) 00:26:24

>>325
http://www.oooforum.org/forum/viewtopic.phtml?t=4827
のスニペットを試してみれば？
データテーブルの先頭カラムを、x値に割り当てておくのがコツ。

// .uno:ChangeChartDataでやれたような気がしたんだけど、
// 気のせいだったみたい。
// チャートを明示的に指定できるから、こっちの方がよさげなんだけど

**デフォルトの名無しさん** · 2008/09/17(水) 00:45:06

>>326
それでやるとGUIからやるのとは違ったものになることが多くて
ひとまとめにされたり、変に分割されたりするんよ

ちょっと .chart2.data.DataProvider を試してみる
でも getUsedData から取得できるデータに x のデータが一系列分しかみられないのは・・・

**デフォルトの名無しさん** · 2008/09/17(水) 00:45:12

いや、結局googleでWeb上に分散している答えを探すしか方法がないってことが問題なんでしょ。

あらかじめ答えの書かれた URL が分かってるならいいけど、
それを知らず、なおかつその答えがWeb上に存在するかどうかすら怪しいものを、
疑問点が湧くたびに調べなきゃならないってのは相当なストレスだよ。

俺は一時期VBAマクロの移植作業で苦労した経験があるが、
もう当面やりたいとは思わない。

**デフォルトの名無しさん** · 2008/09/17(水) 00:47:41

いや、GUI から出来るのにそもそも API から不可だったりすることが大問題
調べても見つからないから、ソースを見たら外部から利用できる API がなかったりする

**デフォルトの名無しさん** · 2008/09/17(水) 01:01:24

>>327　x値は普通1系列しか無いんじゃない？

>>328　＞結局googleでWeb上に分散している答えを探す
web全体まで見なくても、http://www.oooforum.org/forum/内だけで、
大抵の場合はカタが付くよ。
自分が困ってる問題には、たいがい先につまづいてる人が居るから。

**デフォルトの名無しさん** · 2008/09/17(水) 01:07:20

>>330
XY 散布図に多系列だと、大抵は x に対応する y が必要だからさ・・・
.chart2.data.DataSequence は x と y の対応に関する指定がないっぽいから望み薄だ

**デフォルトの名無しさん** · 2008/09/17(水) 01:19:14

今試したら俺 >>326 の方法で XY 散布図のデータ系列の追加できたけどな。
もともと x, y1, y2 の2系列があるところを x, y1, y2, y3 の3系列にするってかんじに。

あとは色とかは線の太さとかは自分で設定すればいいし。

**デフォルトの名無しさん** · 2008/09/17(水) 01:30:29

いや、散布図で一本目と別の x に対する y の値のグラフを同じグラフに描くような感じに
2.3 頃から使えるようになったやつ

**デフォルトの名無しさん** · 2008/09/17(水) 01:34:58

なるほど、そんな機能があるとは知らなかった。

そんな新しい機能に対するAPIが用意されてるかどうかはすこぶる怪しいな。

**デフォルトの名無しさん** · 2008/09/17(水) 11:05:10

ダメっぽいよ。未だGUIでも個別設定と纏めて設定を切り替えるととち狂うし。
散布図から他のグラフに変えて、元に戻してもおかしくなるし。
# 要は、x軸複数系列は完成してないと見るべし。

**デフォルトの名無しさん** · 2008/09/19(金) 19:11:41

グラフのデータ系列の操作だがどうやら
oChart = ThisComponent.getSheets().getByIndex(0).getCharts().getByIndex(0).getEmbeddedObject()
oCooSys = oChart.getFirstDiagram().getCoordinateSystems()
付近から始めるみたいだ。

**336** · 2008/09/20(土) 01:34:53

やっと、作成済みの散布図に新しい XY の系列の追加がうまくいったあぁ

**デフォルトの名無しさん** · 2008/09/20(土) 10:04:47

>>337 おめ。

さぁ、後からツボった人が参照できるように、
書いたコードをどこかに晒す作業に戻るんだ。

// 公開の縛りとかが無くて、そゆ事が可能なコードならね：）

**デフォルトの名無しさん** · 2008/09/20(土) 23:00:52

>>338
某所・・・ネットの狭間に書いといたよ

**デフォルトの名無しさん** · 2008/09/29(月) 15:59:20

3.0 rc3 が出て、正式が 10/7 だと正式は rc3 になるんだろうけど
user/Script/python にいれた python マクロが認識されないままになりそうだ

**デフォルトの名無しさん** · 2008/10/14(火) 13:41:17

OOo3.0をさっそく入れてみた。エクセル２００３のマクロが動くかどうか試してみた。
シートオブジェクトを代入するところでつまずいた。orz

Dim ST_G As Excel.Worksheet, ST_D As Excel.Worksheet
Sub 図作成()
Set ST_G = Worksheets("Sheet1") ←ここでエラー
Set ST_D = Worksheets("Sheet2")