【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

他に追加情報があったら教えてください。
376デフォルトの名無しさん
垢版 |
2009/05/20(水) 20:52:16
>>375
何の？
2009/06/05(金) 11:21:23
OpenOfficeのGUIからはエクスポート機能を使ってPDFや画像形式でファイルを保存できますが、
コマンドラインからは同様の機能はすぐに使えるんでしょうか？

ググってみたんですが、macroを使って変換するのは見つけたんですが、機能として持っているのなら
macro使わない方法もあるかと思って質問してみました。

あと、unoconvを使ってみたんですが、これはOpenOfficeをサーバとして起動して何かを渡して
いるようなので、そういうことができるならmacroなしのコマンドラインからという手段がありそうですよね？
2009/06/13(土) 13:40:22
writerで外字を使おうとしたら文字化けしてしまう。
StarSuiteでは外字使えないんでしょうか？
windowsはsp3、IMEを使ってます。
2009/06/21(日) 17:49:09
>378
こっちで聞いてみたらどうですか？
OpenOffice.org 総合相談所 6
http://pc11.2ch.net/test/read.cgi/bsoft/1239637122/l50
380デフォルトの名無しさん
垢版 |
2009/06/23(火) 06:48:32
OpenOffice3.1.0を使用しています.
クイック起動はオフにしています.
DelphiからOpenOffice　Calcを使ってxlsファイルを読み込む処理をしています.
http://www.clubdelphi.com/trucos/index.php?id=428　ここを参考に作成しました.
ClassID:=ProgIDToClassID('com.sun.star.ServiceManager');
h:=CoCreateInstance(ClassID, nil, CLSCTX_LOCAL_SERVER, IDispatch, id);
とした時点で、soffice.bin/soffice.exeという２個のプロセスが生成されます.
その後、読み込み処理を終了して、
ワークブックのクローズ、　objDocument.Close(True);　を実行した時点で、
OpenOffice　Caleは表示を終了し、画面からは消えます.
しかし、最終的に　TWorkbook.Destroyを実行しても、
soffice.bin/soffice.exeという２個のプロセスが消えません.
CoCreateInstanceの後始末が必要なのかなと思って、
ServiceManager.Release;　としたら、サポートしていないと例外が発生しました(objServiceManager := id;).
なにか、OpenOfficeを終了させるというコマンドを投げないといけないのでしょうか (ExcelのOleFunction("Quit");の様な)
ぐぐってみても、OpenOffice Basicで終了コマンドというようなものが見つかりませんでした.
soffice.bin/soffice.exeという２個のプロセスが残らないようにする方法を教えてください.
よろしくお願いします.
2009/06/23(火) 13:58:54
>>380
終了させるには com.sun.star.frame.Desktop サービスから
css.frame.XDesktop インターフェースの terminate メソッド

普通は最後のドキュメントを閉じれば終了するはずなんだけど・・・
382380
垢版 |
2009/06/23(火) 20:02:01
>>381
ありがとうござます。
terminateでちゃんとsoffice.bin/soffice.exeが消えました。
2009/07/08(水) 15:08:41
access2003のファイルをBaseでは開くにはどういう操作をしたらいいのでしょう？
ExcelファイルをCalcで開くみたいには簡単にいきません。
どなたか教えてください。
2009/07/17(金) 01:30:31
ここプログラミング掲示板のOpenOffice.orgマクロ言語に関するスレッドなので、
ビジネスソフト掲示板あたりのOpenOffice.orgに関する総合スレッドで質問なさったほうが
返答を得やすいと思います。
2009/08/17(月) 17:46:37
自動焼人 ★　＝　自動保守 ◆KAWORUKOFI　＝　自動保守#K9K?_D[L

名言集　その４
『俺、100人規模の集団サイバーテロの主犯だったこともあるんだぜ』

http://yutori7.2ch.net/test/read.cgi/news4vip/1249830540/　のID:PVAf+dux0　＝　自動焼人 ★

> 965 ：以下、名無しにかわりましてVIPがお送りします [sage] ：2009/08/10(月) 00:02:09.35 ID:PVAf+dux0
> まぁ何だ。
> 俺の過去の経歴に比べたら、割れ厨なんて鼻くそレベルなんだけどなｗ
> 100人規模の集団サイバーテロの主犯とか、いろいろとな。


----------------------------------------------
この自動焼人 ★メールマガジンの配信停止をご希望される方は
http://qb5.2ch.net/test/read.cgi/sec2chd/1250169591/
にて自動焼人 ★までご連絡ください
2009/08/17(月) 17:57:29
自動焼人 ★　＝　自動保守 ◆KAWORUKOFI　＝　自動保守#K9K?_D[L

名言集　その２
『お前が規制系キャップ取れるか審査してやるよ』

http://yutori7.2ch.net/test/read.cgi/news4vip/1249830540/　ID:PVAf+dux0　＝　自動焼人 ★

> 36 ：以下、名無しにかわりましてVIPがお送りします [sage] ：2009/08/10(月) 00:31:30.02 ID:PVAf+dux0
> >>33
> キャップとコテハンの違いは何？

> 46 ：以下、名無しにかわりましてVIPがお送りします [sage] ：2009/08/10(月) 00:38:05.34 ID:PVAf+dux0
> >>45
> その回答では落ちるなｗ
> 答えは教えないがｗ

> 50 ：以下、名無しにかわりましてVIPがお送りします [sage] ：2009/08/10(月) 00:41:29.96 ID:PVAf+dux0
> Q.キャップとコテハンの違いは何？
> A.２ちゃんねるのボランティアの登録制度

> それがお前の答えかｗ

> 52 ：以下、名無しにかわりましてVIPがお送りします [sage] ：2009/08/10(月) 00:43:10.06 ID:PVAf+dux0
> まぁ、どうせ正解が出るわけもないし、次の問題。
> 君が思う面白いスレはどんなの？
----------------------------------------------
この自動焼人 ★メールマガジンの配信停止をご希望される方は
http://qb5.2ch.net/test/read.cgi/sec2chd/1250169591/
にて自動焼人 ★までご連絡ください
387デフォルトの名無しさん
垢版 |
2009/09/03(木) 10:46:46
BASIC繁栄時代があったらしい
2009/09/03(木) 12:49:40
現在のcライクインタープリタなbasicと、
前世紀に栄えていたbasicとは、実は別言語である

という説を唱えてみる
389デフォルトの名無しさん
垢版 |
2009/09/16(水) 23:26:07
OOoBasicで複式簿記の家計簿作ったよ

http://www.geocities.jp/retort_curry119/kakeiboPage.htm
390デフォルトの名無しさん
垢版 |
2009/09/26(土) 21:17:35
>>389　w(゜o゜)wワオ！
391デフォルトの名無しさん
垢版 |
2009/10/10(土) 16:05:40
OpenOfficeマクロプログラミング
宍戸輝光　工学社　09/10　\1,890

出たね。
392デフォルトの名無しさん
垢版 |
2009/10/18(日) 14:03:53
昨日からbaseいじっております。以前も（2.0）触ってみましたが、挫折しました。
M社の2003サポート切れの心配やバージョン毎の購入にウンザリしており、今回は挫折したくありません。
オフィスソフト自体は自宅で必要ではないのに会社の為に自分も購入している方も多いと思います。
一企業が一企業のソフトに業務を依存しなくてはならない現状が非常に間違った方向だとも思いますし、、。
現在basicの書き場所がBASEでわからなく、、、探していて辿りつきました。
道は遠いですか？
2009/10/19(月) 14:13:11
残念ながらここは過疎っているので、ビジネスsoft板やソフトウェア板などの
OpenOffice一般を扱うスレッドでマクロの質問等もなさると反応がいいと思います。
マクロを中心に扱った日本語書籍がやっと世に出た段階なのでこれからですね。
2009/11/05(木) 23:10:50
>391　さんが紹介された本、誰か買って読んだ方いらっしゃいますか？
紀伊国屋書店のページ↓は見てみましたが、どんなもんなんでしょ。
http://bookweb.kinokuniya.co.jp/guest/cgi-bin/wshosea.cgi?KEYWORD=%82%6E%82%90%82%85%82%8E%82%6E%82%86%82%86%82%89%82%83%82%85%83%7D%83%4E%83%8D%83%76%83%8D%83%4F%83%89%83~%83%93%83%4F
2009/11/09(月) 21:56:59
オプソは好きだが、M$オフィスの方がまだまだずっと出来がいい
396デフォルトの名無しさん
垢版 |
2009/11/22(日) 20:36:49
プログラミング環境としては悪くないね、OOo
2009/11/22(日) 21:17:09
「初心者向けの」プログラミング環境ってことなら、ドキュメントがろくに揃ってないことで却下だなあ。

無料ってことをウリにするなら、Visual Studio の Express Edition には適わないし
.NET限定だけど、売りもののProfessional Editionへのステップアップも容易
2009/11/28(土) 19:35:58
「プログラミング環境」って？
コード補完や文法ミスの指摘をしてくれるＩＤＥがあるってこと？
へぇ、知らんかった。ずいぶん進化したもんだね。
399デフォルトの名無しさん
垢版 |
2009/12/05(土) 08:08:59
>>394
本屋でパラッと見たけどSDK関連の記載がなかったみたい。
つまり、これを参考にしても何も作れない。
2009/12/05(土) 17:01:30
SDK関連の記載って例えばどういうの？
401デフォルトの名無しさん
垢版 |
2009/12/09(水) 22:35:32
ttp://hermione.s41.xrea.com/pukiwiki/
2009/12/09(水) 23:00:57
>>401
なんかリンクが貼ってあるばかりでイマイチつかみどころのない説明ばかりだな
2009/12/09(水) 23:02:05
そもそも >>1 にあるやん
404デフォルトの名無しさん
垢版 |
2009/12/09(水) 23:12:58
ここも役に立つよ。
ttp://blog.livedoor.jp/addinbox/
2010/01/13(水) 11:10:06
>>394
初心者がOooのBasicを始めるきっかけにするには良い本と思う。

ネットの情報は辞書的なページが多いので、簡単なチュートリアルがあるので助かった。
ダイアログの作り方とか。

ただ内容的にCalｃに偏ってるし、標準関数とか全部記載していないので、
本に書いてあること以上のことをしようとするとネットに頼らざるを得ない。

どの言語の本でもそうだけど1冊だけで全て網羅するのは無理。

漏れ的には買って損はなかったよ。
2010/01/13(水) 12:11:33
本なんだからそれでいいんじゃないの
2010/01/13(水) 12:24:32
>>405
なんでPythonにしなかったの？
2010/01/13(水) 12:58:49
>>407　pythonならdteよりwebの方に良い情報がころがってるんじゃまいか？
2010/01/13(水) 12:59:17
OOo Basic で配列操作とか自前でやるの疲れるよな
2010/01/13(水) 13:34:08
PythonよりBasicの本の方が売れるでしょ
2010/01/14(木) 02:00:25
規制されてなかったらなんかマクロ書くわ
412デフォルトの名無しさん
垢版 |
2010/01/14(木) 22:19:57
次スレは「OpenOffice.org マクロ」とでもして、言語を問わずに。
2010/01/15(金) 00:06:23
まだ半分以上スレ残りあるんだが
2010/01/15(金) 07:47:58
まさか新スレ立てるなよ
2010/01/16(土) 00:24:08
次すれになるようにマクロ書くか
Sub RepositioningBookmaks
oDoc = ThisComponent
oText = oDoc.getText()
oBookmarks = oDoc.getBookmarks()

For i = 0 to oBookmarks.getCount() - 1 step 1
oMark = oBookmarks.getByIndex(i)
oAnchor = oMark.getAnchor()
If Len(oAnchor.getString()) > 1 Then
sName = oMark.getName()
oStartRange = oAnchor.getStart()

oNewMark = oDoc.createInstance("com.sun.star.text.Bookmark")
oNewMark.setName(sName)
oText.removeTextContent(oMark)
oText.insertTextContent(oStartRange, oNewMark, False)
End If
Next
End Sub
2010/01/16(土) 23:07:07
ユーザー定義のツールバー探すもの
Sub find_toolbar
sUIName = "Test1"

oFound = nothing
oLM = ThisComponent.getCurrentController().getFrame().LayoutManager
oElements = oLM.getElements()
For i = 0 To UBound(oElements) step 1
oItem = oElements(i)
If Mid(oItem.ResourceURL, 1, 40) = "private:resource/toolbar/custom_toolbar_" Then
If oItem.getSettings(False).UIName = sUIName Then
oFound = oItem
Exit For
End If
End If
Next
If NOT IsNull(oFound) Then
' do something
msgbox "found"
End If
End Sub
2010/01/18(月) 17:31:36
文字列検索ができません。
＊や％は使えるんですか？
2010/01/18(月) 17:43:31
InStr じゃ無理だな
2010/01/18(月) 19:00:34
ありがとうございます。
解決しました。
420デフォルトの名無しさん
垢版 |
2010/01/19(火) 20:41:01
>>415l-416 乙。どんどん頼みます。勉強になります。感謝します。
2010/01/25(月) 00:51:54
規制が解除されたからまた埋めようかと思ったけど書くことが思いつかん
2010/01/25(月) 17:45:13
Writerで文字の段落と挿入された画像のURLをテキストデータとして
出力する場合に文字の段落はプログラミングガイドにあるように
supportsService("com.sun.star.text.Paragraph")
で判断できるのですが、挿入された画像は
supportsService("com.sun.star.text.TextGraphicObject")
では判断できないのですが、使用法が違うのでしょうか？

それともcom.sun.star.graphicかcom.sun.star.drawingを使うのでしょうか？

あとハイパーリンクへのアクセスの仕方も良く分からない（T_T)

ヒント等があればお願いします。
2010/01/25(月) 20:42:16
段落から Contents Enumeration すると画像に相当するもんが見つからないから・・・
画像が埋め込みじゃなければ GraphicURL プロパティ
2010/01/26(火) 17:03:09
>>423
どうもです。
画像は埋め込みでないので画像のURLの情報を得ようとすると

Doc = ThisComponent
OG = Doc.getGraphicObjects
msgbox OG(0).GraphicURL

で画像のURLの情報にアクセすることは分かるのですが、
Writerに記載した順序でテキストデータに出力する場合は、
EnumerationのWhileループではできなさそうですね(＾＾;

APIのWikiは英語だしよく分からない(T_T

ググるとカーソル位置に画像を挿入するサンプルコードは見つかるんですけどねぇ
2010/01/26(火) 17:50:42
css.text.XTextRangeCompare インターフェース使って画像の Anchor と段落の位置関係は分かるけどな
2010/01/29(金) 10:59:56
>>425
>css.text.XTextRangeCompare
どうもです。調べてみます。
2010/02/14(日) 13:48:06
OpenOfficd.org3,2 起動時間がすごく短縮されている。
これは有り難い。

OracleによるSun買収でどうなるか心配していたけど、
今回は、まじめにやってくれたみたいね。
428ビギナー
垢版 |
2010/02/17(水) 10:35:48
こんにちは、プログラミング未経験のものです。
株式投資で一銘柄の過去の株価データを使って色々な条件で
売買したらどのような結果になるかのプログラムをつくりたく、
ooo basic でもこのようなことができますでしょうか？

具体的には、一銘柄について
日付、株価（始値、高値、安値、終値）をデータとし
何年何日に何円で株を何単位買い、買値より10円高い売り注文
株価が10円下がるごとに買い増し、買値より10円高い売り注文
と、詳細は更に検討しています。
それで結果、どのような売買記録でどのぐらいの収益になるか
の様なものです。

こんなこともできますでしょうか？
データについては、オープンオフィスのＣＡＬＣにインプット
済みです。

些細なことでも何でも構いませんので、アドバイスよろしく
お願いいたします。
2010/02/17(水) 13:52:37
>>428
>>1の参考になる主なリンクの情報だけでやりたい事を実現できます。
アドバイスをねだる前に過去ログを読んでください。
430ビギナー
垢版 |
2010/02/17(水) 15:38:25
>>429
すいません、了解しました。
ありがとうございます。
431ビギナー
垢版 |
2010/02/18(木) 12:44:35
オープンオフィスのCALCに以下の様なデータがあるとします。
１、指定した日で指定した株価で1000株買います。
　（売買は全部1000株なので考慮必要なしとします）
　　買い注文は5円下がるごとに出している。
　（何かの売りが成立するまで）

２、これを買った翌日以降の注文で売り注文（買値＋５円）をだす。
　　買ったものは全て翌日以降買い値＋５円で売り注文を出す。
　　売ったら売値−5円でまた買い注文を出す。買い注文は5円下がる
　　ごとに出している。

この場合の取引結果を出すマクロはどのようになりますでしょうか。


　日付　　始値　高値　安値　終値
20010105　221 　224 　219 　220
20010106　218　 223　 215　 222
20010107　224　 231　 223　 223
20010108　220　 221　 216　 217
20010109　215　 216 　210　 213

例、20010105に220円で買いとします。
（）は参考です。
結果　20010105　220円買い成立(20010106以降225円売り注文)
　　　20010106　215円買い成立(20010107以降220円売り注文)
　　　20010107　224円売り成立(買値215円分)
　　　　　　　　225円売り成立(買値220円分)
(一番高い売値225円から5円安い220円で翌日以降買い注文、5円下
がるごとに買い注文もだしている)
　　　20010108　220円買い成立(翌日以降225円売り注文)
　　　20010109　215円買い成立(翌日以降225円売り注文)
　　　　　　　　210円買い成立(翌日以降225円売り注文)
2010/02/18(木) 12:46:11
multi
433@yuo
垢版 |
2010/02/28(日) 15:18:35
初心者です。
マクロでcalcファイルを開くのにはどうしたらいいですか？
以下にふぁいるがあります。
C:\My Documents\学習\test.ods
2010/02/28(日) 17:53:53
Sub hoge
sURL = ConvertToURL("C:\My Documents\学習\test.ods")
oDoc = StarDesktop.loadComponentFromURL(sURL, "_blank", 0, Array())
End Sub
435@yuo
垢版 |
2010/02/28(日) 18:47:26
>>434
プログラミング未経験で、色々調べてやっていたのですが
最初からつまずいてしまっていました。
どうもありがとうございます。
436mu-mu
垢版 |
2010/03/11(木) 05:22:57
calcについて質問です。
マクロから日付を入力したいのですがどうすればよいのか分かりません。

Cell.String = "2010/03/11"
とすると表示は「2010/03/11」ですが、数式入力ボックスでは「'2010/03/11」
になってしまい日付として認識してくれません。

教えてえろい人orz





2010/03/11(木) 09:47:52
Cell.formula = "2010/3/11"
Cell.numberformat = 36
2010/03/11(木) 10:15:22
>>436
Cell.Value = DateSerial (2010, 3, 1)

DateSerial関数のパラメータは年、月、日の順。
そのままだと謎い数字が出てくるだけなので、
セルの書式を、日付のものに変更して。
439mu-mu
垢版 |
2010/03/12(金) 09:10:44
>>437
>>438
さんくすこ
書式をいじいじすればいいんですね。
2010/03/12(金) 14:51:03
>>436
日付のデータって、見た目は YYYY/MM/DD だけど、格納されてるのは
OpenOffice.org が対応してる年月時間を順列にした整数なの。
0〜9999999999999999999999 みたいな数で 1100年１月1日から2100年の12月31日までを管理するって感じ。
2010/03/20(土) 15:12:57
=CONCATENATE(A1:B2)
という風に範囲指定で文字列を連結したいのですが、できますか？
2010/03/21(日) 00:15:24
マクロ関数定義するならこんな感じかな

Function ConcatRange(oData) As String
Dim sRet As String
For i = 1 to UBound(oData, 1) step 1
For j = 1 to UBound(oData, 2) step 1
sRet = sRet & CStr(oData(i, j))
Next
next
ConcatRange = sRet
end Function
2010/03/21(日) 00:34:34
>>442
できました！ありがとうございます
2010/05/24(月) 21:18:33
OOoBasicではVBAのようにクラスモジュールは作れないんでしょうか？
445デフォルトの名無しさん
垢版 |
2010/05/24(月) 21:47:31
yes, you can
2010/05/24(月) 21:51:14
>>445
すいませんどうやればいいんでしょうか？
ヘルプ見てもググッても見つからないのですが・・・
2010/05/25(火) 17:16:32
>>446
というかできない
2010/06/16(水) 00:14:31
クラスモジュールにしたいコードの先頭に
option vbaSupport 1
option compatible
option classModule
をつければクラスモジュールとして使えます
ただこの3つの違いがわかりません
誰か知ってる人いませんか
2010/06/22(火) 17:32:48
>>448
Option Compatible について
ttp://api.openoffice.org/servlets/ReadMsg?list=dev&msgNo=9399
2010/06/22(火) 17:47:13
コードを見ると VBASupport 1 にすると Compatible も自動的にオンになる
最近のバージョンなら区別しなくていいみたい
2010/09/08(水) 17:29:41
外部データへのリンクだと文字化けするので、ソースから読み込みしてシートに書き込みたいのだけど
正規表現で株主優待情報だけ抽出するには、この先どうしたらいいですか？

Sub FileAccess
Dim oFileAccess As Object
Dim sURL As String
Dim oInputStream As Object
Dim vData As Variant
Dim sLine As String, sDataLine As String

sURL = "http://biz.yahoo.co.jp/stockholder/search?detail=1766"
oFileAccess = createUnoService("com.sun.star.ucb.SimpleFileAccess")
oInputStream = CreateUnoService("com.sun.star.io.TextInputStream")
oInputStream.setEncoding( "EUC-JP" )

If oFileAccess.exists(sUrl) Then
vData = oFileAccess.openFileRead(sUrl)
oInputStream.setInputStream(vData)
While NOT oInputStream.isEOF()
sLine = oInputStream.readLine()
sDataLine = sDataLine & sLine & Chr(10)
WEnd
oInputStream.closeInput()
End if

txt(sDataLine)
End Sub
2010/09/08(水) 17:32:55
尖閣諸島問題で中国大使館に抗議するｵﾌ
http://yuzuru.2ch.net/test/read.cgi/offmatrix/1283926084/
1: 2010/09/08 15:08:04 21BrBr5lsd
日時は9月12日､日曜日予定
場所は中国大使館前
2010/11/05(金) 14:40:59
ヘッダーに画像をセットしたのですが、リンクされてしまいます。
このように書きました。

StyleFamilies = objDocument.StyleFamilies　
PageStyles = StyleFamilies.getByName("PageStyles")
DefPage = PageStyles.getByName("Default")
DefPage.HeaderOn = True
DefPage.HeaderBackGraphicURL =D:\xxxx.bmp ’画像ファイルのパス

メニューで言うと次の場所になります。
書式→ページ→ヘッダー→詳細
ファイル---表示ボタンを押下しファイルを選択。

ここのリンクのチェックを外したいのですが、やり方がわかりません。
ご存知の方、教えてください！
2010/11/05(金) 15:03:53
　　　　　|┃三　　　　　　　 ／￣＼
　　　　　|┃ 　　　　　　　　|　　　 　|
　　　　　|┃　　　　　　　 　 ＼＿／ 　　　　　　　　　
　ｶﾞﾗｯ　|┃ 　 　 　 　 　 　 　 | 　　　　　　　　　
　　　　　|┃　　　　　　　／￣￣￣ ＼　　　 　　　　
　　　　　|┃三　　　　／　 ::＼:::／::::　＼　　　
　　　　　|┃ 　　　 ／　 <●>::::::<●>　　＼ 　　　　　　呼んだな？
　　　　　|┃　 　　 |　　　　（__人__）　　 　　|
　　　　　|┃三　　 ＼　　　 ｀ ⌒´　　　　／
　　　　　|┃三　　 ／￣￣￣￣￣￣￣ ＼
||＞＞ Libre Office PART1 ＜＜＜||
http://hibari.2ch.net/test/read.cgi/software/1288792911/
2010/11/05(金) 15:30:12
>>453
リンクせずに設定して調べてみると、HeaderBackGraphicURL は空文字列で
該当するテキストオブジェクトの段落の背景に埋め込まれた画像の URL が指定されている
456デフォルトの名無しさん
垢版 |
2010/12/21(火) 21:40:17
calcで
2011/07/02(土) 21:05:30.50
これ ； デリミタっていうんだけどさ、これをつけなきゃエラーになるような
そんな言語使ってる奴ってどうみてもゴミだと思うんだけど

もしかして「；」これ打ち忘れてコンパイルエラー出すのが楽しいの？
そうか、二度と話かけんなよ

死ねよゴミ
2011/07/21(木) 20:56:49.23
宇宙にはデリミタ派とターミネータ派がいて
10億年も戦争を続けており終わる気配すら無い
459デフォルトの名無しさん
垢版 |
2012/01/14(土) 13:22:56.51
マクロからフォームのテキストボックスの値を取得して変数に代入したいのですが
その方法が分かりません。

ご存知の方いませんか？
460デフォルトの名無しさん
垢版 |
2012/01/26(木) 10:53:37.58
これだと数式として認識せずうまくいきません。

oSheet1.getCellRangeByName("A" & MyRow1).String ="=VLOOKUP(B" & MyRow1 &";'file:///C:/Users/"& myFileDate & "".csv'#$Sheet1.C1:O65536;7;0)"

どうしたらいいのでしょうか？
2012/01/26(木) 11:10:43.19
自己解決

.Stringを.Formulaにしたら、できました＾＾
2012/06/07(木) 15:12:26.24
↓のような構造体をVBAサポートモードで動かそうとしているのですが
シンタックスエラー(シンボルが必要)が表示されます。
具体的な解決策をご存知の方いましたら教えてください。

Private Type abc
abc As String
def As Long
ghi As Single
jkl As Double
End Type
2012/07/16(月) 20:45:03.55
Writerをマクロで紙の縦横の変更ってできないのでしょうか？

ThisComponent.getStyleFamilies().getByName("PageStyles").getByName("Standard").IsLandscape

の値が変更できません・・・・
プリンターパラメーターの変更のほうでも余白やもろもろ変えられても、縦横だけは無理っぽいです・・・

Dim oPrintOptions(0) as new com.sun.star.beans.PropertyValue
oPrintOptions(0).Name = "A4"
oPrintOptions(0).value = com.sun.star.view.PaperOrientation.LANDSCAPE
ThisComponent.setPrinter( oPrintOptions )

つかっているのはOpenOffice3.4.0です
2012/08/26(日) 14:58:40.62
すいません、すっごい初心な質問なんですが
総てのシートの総てのセルを対象に
特定の文字列が入っているセルだけを背景色を変える
ってマクロはどう書くんでしょうか？
2012/08/26(日) 16:39:40.28
>>464
条件付書式設定じゃダメなのかい?
2013/05/09(木) 23:15:55.11
初心者です
Calcのシート上で実行している計算をそのままBasicで実行したいと考えています
いろいろ出来ないのですが単純な"OFFSET"ですら動かせていません
（最終的には"INDIRECT"を動かしたい...）

次のサブルーチンをそのまま動かすとセルA1の値が返されるのですが
aArgs(1),aArgs(2)に0以外の値（例えば1)を設定すると値（例えばB1の値)が
返ってきません。なにがいけないのでしょうか？

Sub test
oFunctionAccess = CreateUnoService( _
"com.sun.star.sheet.FunctionAccess" )
oDoc = ThisComponent
oSheets = oDoc.getSheets()
oSheet = oSheets.getByIndex(0)

Dim aArgs(2) As Variant
' OFFSET(A1;0;0)
sFunction = "OFFSET"
oCell = oSheet.getCellRangeByName( "A1" )
aArgs(0) = oCell
aArgs(1) = 0 ' <- 0を1に変えると""が返される
aArgs(2) = 0 ' <- 0を1に変えると""が返される
aResult = oFunctionAccess.callFunction( sFunction, aArgs() )
MsgBox aResult(0)(0)
End Sub
2013/05/09(木) 23:54:47.26
>>466
オフセット指定が aArgs(0) のセル範囲外だといけないらしい
上記の場合、A1 の値しか取得できない
468466
垢版 |
2013/05/10(金) 22:09:18.60
>>467
即答ありがとうございます。無事実行できました
単純移植はできないんですね
（考えると"INDIRECT"のパラメータの渡し方は自分には想像できない...）
セルに値を入れてCalcに計算してもらうかCallFunction使わない関数で
作ることにします
ありがとうございました
2013/12/05(木) 16:43:30.15
ユーザー関数を置いた自分のセルの番地を表示するマクロを作りたいです。
関数で表すと =CONCATENATE(ROW(),",",COLUMN())と結果は同じことなのですが
これをユーザー関数のマクロのみで求めることはできますか？
2014/06/01(日) 01:41:21.90ID:qGlpCxqd
ここ、需要有るの?
2014/06/02(月) 01:06:34.01ID:xjoqb8w5
あるわけねえだろ
ハンカチ仮面って時代を感じる
2014/07/03(木) 16:32:50.93ID:fAu/rOzX
calcで定期的に再計算させる処理ってループでsleep使いながら
どこかのセル更新するしかないのかな
タイマっぽい時間管理のシート作ってるけど
CTRL+SHIFT+F9押すのめんどいしシート開いてるだけで更新させたい
2014/07/11(金) 12:38:57.28ID:c41w+Kkv
sub main
do while true
wait 5000
ThisComponent.calculateAll
loop
end sub
2014/08/14(木) 13:05:43.71ID:wgwbbbsy
>>473
助かりました！
d(ﾟДﾟ)☆ｽﾍﾟｼｬﾙｻﾝｸｽ☆( ﾟДﾟ)b
2014/08/16(土) 16:35:26.23ID:HLPR753i
http://www.buzzword.jp/img/face10.png
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況