create a new page, using OOobbs/5 as a template.
Front page
Search
掲示板
Reload
Help
Browse Log
掲示板の使い方
OOo 掲示板３
OOo 掲示板２
OOo 掲示板
掲示板
雑談掲示板
New
List of pages
Recent changes
Backup
簡単ヘルプ
整形ルール
Start:
** [[OOobbs/5]]
-''サマリ'': Window の選択をするには？
-''環境'': Calc
-''状態'': 解決
-''投稿者'': [[XD1]]
-''投稿日'': 2004-01-22 (木) 12:53:47
*** 質問
はじめまして。Excel97＋MS Visual Basic ver5（←古い）か...
OpenOfficeへ乗り換えようとしている者です。このサイトにて...
セルの選択も含め、かなりのことが分かりました。しかし、Win...
分かりません。
例えば aaaa.sxc からマクロを起動し、data1.sxc という外...
LoadComponentFromUrl にて開くと、フォーカスが data1.sxc ...
CurrentComponent が data1.sxc に移るとでも言うべきなので...
その後、フォーカスを aaaa.sxc に戻すには、どうすればよい...
aaaa.sxc のウインドウが選択状態になればいいのです。ちなみ...
では、
Windows("aaaa.xls").Activate
の一文でこれを行うことが出来ます。これに相当するキーワー...
よろしくご教授お願いします。
（環境 日本語 Win Me, CUP Intel Celeron 2000MHz）
*** 回答
例としてのマクロを実行するドキュメント aaaa.sxc のドキュ...
まずは，次のようにして oDoc を aaaa.sxc のドキュメントオ...
Sub test
Dim oDoc As Object, oController As Object
Dim oFrame As Object, oContainerWindow As Object
Dim oDesktop As Object, oDataDoc As Object
Dim mArg()
oDesktop = CreateUnoService("com.sun.star.frame.Deskto...
oDoc = oDesktop.CurrentComponent
oController = oDoc.getCurrentController()
oDataDoc = oDesktop.loadComponentFromUrl( _
"file:///C:/usr/local/test.sxc", "_blank", 0, mAr...
oFrame = oController.getFrame()
oContainerWindow = oFrame.getContainerWindow()
oContainerWindow.toFront()
End Sub
上のコードの最後の方はまだドキュメントを作成していないの...
データ用のファイルを読み込むだけで見る必要がないのなら，...
Dim mArg(0) As New com.sun.star.beans.PropertyValue
mArg(0).Name = "Hidden"
mArg(0).Value = false
代わりにこれを使用するとファイルを読み込んでもウィンドウ...
開いたファイルを閉じるには ''close'' メソッドを使用すると...
oDataDoc.close(true)
とするとドキュメントを閉じます。 -- [[はにゃ?]] &new{2004...
aaaa.sxc からマクロを起動の部分ですが，マクロの ThisCompo...
oDesktop からすべての OOo のフレームにアクセスすることが...
-早速のご回答、どうもありがとうございます。大変参考になり...
-【改行のためか、前半部分しか掲載されていないので、続きを...
ということで，続きですが，
Sub test_2
Dim oDesktop As Object
Dim oFrames As Object
oDesktop = createUnoService("com.sun.star.frame.Deskto...
oFrames = oDesktop.getFrames()
For i = 0 To aFrames.getCount() -1
MsgBox aFrames.getByIndex(i).getController().getMode...
Next i
End Sub
を実行すると今の OOo のすべての開いているフレームのドキュ...
開いているファイルをどのようにして使用するのか分かりませ...
Calc でなら，
aFrames.getByIndex(i).getController() → [[Calc CurrentCon...
aFrames.getByIndex(i).getController().getModel() → [[Calc...
などとなります。
利用するファイルを手動ではなくて ''loadComponentFromUrl''...
For 文の中を
MsgBox aFrames.getByIndex(i).Title
にするとタイトルバーに表示されている文字列が表示されます。
-どうもありがとうございます。まだよく理解できていない部分...
-どうもありがとうございます。まだよく理解できていない部分...
#comment
End:
** [[OOobbs/5]]
-''サマリ'': Window の選択をするには？
-''環境'': Calc
-''状態'': 解決
-''投稿者'': [[XD1]]
-''投稿日'': 2004-01-22 (木) 12:53:47
*** 質問
はじめまして。Excel97＋MS Visual Basic ver5（←古い）か...
OpenOfficeへ乗り換えようとしている者です。このサイトにて...
セルの選択も含め、かなりのことが分かりました。しかし、Win...
分かりません。
例えば aaaa.sxc からマクロを起動し、data1.sxc という外...
LoadComponentFromUrl にて開くと、フォーカスが data1.sxc ...
CurrentComponent が data1.sxc に移るとでも言うべきなので...
その後、フォーカスを aaaa.sxc に戻すには、どうすればよい...
aaaa.sxc のウインドウが選択状態になればいいのです。ちなみ...
では、
Windows("aaaa.xls").Activate
の一文でこれを行うことが出来ます。これに相当するキーワー...
よろしくご教授お願いします。
（環境 日本語 Win Me, CUP Intel Celeron 2000MHz）
*** 回答
例としてのマクロを実行するドキュメント aaaa.sxc のドキュ...
まずは，次のようにして oDoc を aaaa.sxc のドキュメントオ...
Sub test
Dim oDoc As Object, oController As Object
Dim oFrame As Object, oContainerWindow As Object
Dim oDesktop As Object, oDataDoc As Object
Dim mArg()
oDesktop = CreateUnoService("com.sun.star.frame.Deskto...
oDoc = oDesktop.CurrentComponent
oController = oDoc.getCurrentController()
oDataDoc = oDesktop.loadComponentFromUrl( _
"file:///C:/usr/local/test.sxc", "_blank", 0, mAr...
oFrame = oController.getFrame()
oContainerWindow = oFrame.getContainerWindow()
oContainerWindow.toFront()
End Sub
上のコードの最後の方はまだドキュメントを作成していないの...
データ用のファイルを読み込むだけで見る必要がないのなら，...
Dim mArg(0) As New com.sun.star.beans.PropertyValue
mArg(0).Name = "Hidden"
mArg(0).Value = false
代わりにこれを使用するとファイルを読み込んでもウィンドウ...
開いたファイルを閉じるには ''close'' メソッドを使用すると...
oDataDoc.close(true)
とするとドキュメントを閉じます。 -- [[はにゃ?]] &new{2004...
aaaa.sxc からマクロを起動の部分ですが，マクロの ThisCompo...
oDesktop からすべての OOo のフレームにアクセスすることが...
-早速のご回答、どうもありがとうございます。大変参考になり...
-【改行のためか、前半部分しか掲載されていないので、続きを...
ということで，続きですが，
Sub test_2
Dim oDesktop As Object
Dim oFrames As Object
oDesktop = createUnoService("com.sun.star.frame.Deskto...
oFrames = oDesktop.getFrames()
For i = 0 To aFrames.getCount() -1
MsgBox aFrames.getByIndex(i).getController().getMode...
Next i
End Sub
を実行すると今の OOo のすべての開いているフレームのドキュ...
開いているファイルをどのようにして使用するのか分かりませ...
Calc でなら，
aFrames.getByIndex(i).getController() → [[Calc CurrentCon...
aFrames.getByIndex(i).getController().getModel() → [[Calc...
などとなります。
利用するファイルを手動ではなくて ''loadComponentFromUrl''...
For 文の中を
MsgBox aFrames.getByIndex(i).Title
にするとタイトルバーに表示されている文字列が表示されます。
-どうもありがとうございます。まだよく理解できていない部分...
-どうもありがとうございます。まだよく理解できていない部分...
#comment
Page:
