create a new page, using OOoBasic/Draw/drawpage as a template.
Front page
Search
掲示板
Reload
Help
Browse Log
掲示板の使い方
OOo 掲示板３
OOo 掲示板２
OOo 掲示板
掲示板
雑談掲示板
New
List of pages
Recent changes
Backup
簡単ヘルプ
整形ルール
Start:
*DrawPage [#qca159a6]
Draw では Calc などのようにシートやセル，セル範囲といった...
Draw ではさまざまな図形を描きますが，それらはシェープオブ...
#contents
**ドローページコンテナ [#y44802af]
ドローページオブジェクトはドローページコンテナオブジェク...
ドローページコンテナオブジェクトを取得する簡単な例を見て...
Sub drawpage_1
Dim oDoc As Object
Dim oDrawPages As Object
oDoc = ThisComponent
oDrawPages = oDoc.Drawpages
'oDrawPages = oDoc.getDrawPages
End Sub
ここでは oDrawPages 変数にドローページコンテナオブジェク...
**ドローページ [#s929d80c]
ドローページは上記のドローページコンテナから取得すること...
取得する方法は二つです。
+ドローページの名前指定で取得
+ドローページのインデックスで取得
ドローページの名前で取得するときには，Draw のウィンドウの...
ドローページのインデックスで取得するときのインデックスは ...
***ドローページの名前で取得 [#ue5ec0d6]
ドローページの名前で特定のドローページを取得するには，''g...
Sub drawpage_2
Dim oDoc As Object
Dim oDrawPages As Object
Dim oDrawPage As Object
oDoc = ThisComponent
oDrawPages = oDoc.getDrawPages()
oDrawPage = oDrawPages.getByName("Slide 1")
End Sub
また，取得したい名前のページがあるかどうかを調べるための...
Sub drawpage_3
Dim oDoc As Object
Dim oDrawPages As Object
Dim oDrawPage As Object
Dim sPageName As String
sSlideName = "Slide 1"
oDoc = ThisComponent
oDrawPages = oDoc.getDrawPages()
If oDrawPages.hasByName(sPageName) Then
oDrawPage = oDrawPages.getByName(sPageName)
End If
End Sub
ドローページコンテナに含まれている全てのページ名を知りた...
Sub drawpage_4
Dim oDoc As Object
Dim oDrawPages As Object
Dim aPageNames As String
Dim sPageName As String
Dim i As Integer
sSlideName = "Slide 1"
oDoc = ThisComponent
oDrawPages = oDoc.getDrawPages()
aPageNames = oDrawPages.getElementNames()
For i = 0 To UBoud(aPageNames)
MsgBox aPageNames(i)
Next i
End Sub
***ドローページのインデックスで取得 [#gaed2cbc]
特定のドローページオブジェクトをインデックスで取得するに...
Sub drawpage_5
Dim oDoc As Object
Dim oDrawPages As Object
Dim oDrawPage As Object
oDoc = ThisComponent
oDrawPages = oDoc.getDrawPages()
oDrawpage = oDrawPages.getByIndex(0)
End Sub
ここでは，インデックス "0" のドローページオブジェクトを取...
ドローページコンテナにいくつのページが含まれているのかを...
Sub drawpage_6
Dim oDoc As Object
Dim oDrawPages As Object
Dim oDrawPage As Object
oDoc = ThisComponent
oDrawPages = oDoc.getDrawPages()
MsgBox oDrawPages.getCount()
End Sub
**ドローページの取り扱い [#qf6188fe]
新規のドローページを追加したり，ドローページを削除するに...
***ドローページの新規作成 [#h6db0401]
ドローページを新しく追加するにはドローページコンテナオブ...
Sub drawpage_7
Dim oDoc As Object
Dim oDrawPages As Object
oDoc = ThisComponent
oDrawPages = oDoc.getDrawPages()
oDrawpages.insertNewByIndex(1)
End Sub
最後のインデックスに新しいドローページを挿入したいときに...
Sub drawpage_8
Dim oDoc As Object
Dim oDrawPages As Object
oDoc = ThisComponent
oDrawPages = oDoc.getDrawPages()
MsgBox oDrawPages.getCount()
End Sub
***ドローページの削除 [#aaadb63e]
ドローページの削除にはドローページコンテナオブジェクトの ...
Sub drawpage_9
Dim oDoc As Object
Dim oDrawPages As Object
Dim oDrawPage As Object
oDoc = ThisComponent
oDrawPages = oDoc.getDrawPages()
oDrawPages.insertNewByIndex(1)
oDrawPage = oDrawPages.getByIndex(1)
oDrawPages.remove(oDrawPage)
End Sub
**現在のページ [#y4e48fff]
現在表示中のスライドは CurrentController から取得します。
oController = ThisComponent.getCurrentController()
oPage = oController.CurrentPage
** ページの複製 [#ca5382ee]
ページをまるごと複製します。
Sub DuplicateDrawPage1
doc = ThisComponent
pages = doc.getDrawPages()
newpage = doc.duplicate(pages.getByIndex(0))
End Sub
複製されたページは元のページの次に挿入されます。
End:
*DrawPage [#qca159a6]
Draw では Calc などのようにシートやセル，セル範囲といった...
Draw ではさまざまな図形を描きますが，それらはシェープオブ...
#contents
**ドローページコンテナ [#y44802af]
ドローページオブジェクトはドローページコンテナオブジェク...
ドローページコンテナオブジェクトを取得する簡単な例を見て...
Sub drawpage_1
Dim oDoc As Object
Dim oDrawPages As Object
oDoc = ThisComponent
oDrawPages = oDoc.Drawpages
'oDrawPages = oDoc.getDrawPages
End Sub
ここでは oDrawPages 変数にドローページコンテナオブジェク...
**ドローページ [#s929d80c]
ドローページは上記のドローページコンテナから取得すること...
取得する方法は二つです。
+ドローページの名前指定で取得
+ドローページのインデックスで取得
ドローページの名前で取得するときには，Draw のウィンドウの...
ドローページのインデックスで取得するときのインデックスは ...
***ドローページの名前で取得 [#ue5ec0d6]
ドローページの名前で特定のドローページを取得するには，''g...
Sub drawpage_2
Dim oDoc As Object
Dim oDrawPages As Object
Dim oDrawPage As Object
oDoc = ThisComponent
oDrawPages = oDoc.getDrawPages()
oDrawPage = oDrawPages.getByName("Slide 1")
End Sub
また，取得したい名前のページがあるかどうかを調べるための...
Sub drawpage_3
Dim oDoc As Object
Dim oDrawPages As Object
Dim oDrawPage As Object
Dim sPageName As String
sSlideName = "Slide 1"
oDoc = ThisComponent
oDrawPages = oDoc.getDrawPages()
If oDrawPages.hasByName(sPageName) Then
oDrawPage = oDrawPages.getByName(sPageName)
End If
End Sub
ドローページコンテナに含まれている全てのページ名を知りた...
Sub drawpage_4
Dim oDoc As Object
Dim oDrawPages As Object
Dim aPageNames As String
Dim sPageName As String
Dim i As Integer
sSlideName = "Slide 1"
oDoc = ThisComponent
oDrawPages = oDoc.getDrawPages()
aPageNames = oDrawPages.getElementNames()
For i = 0 To UBoud(aPageNames)
MsgBox aPageNames(i)
Next i
End Sub
***ドローページのインデックスで取得 [#gaed2cbc]
特定のドローページオブジェクトをインデックスで取得するに...
Sub drawpage_5
Dim oDoc As Object
Dim oDrawPages As Object
Dim oDrawPage As Object
oDoc = ThisComponent
oDrawPages = oDoc.getDrawPages()
oDrawpage = oDrawPages.getByIndex(0)
End Sub
ここでは，インデックス "0" のドローページオブジェクトを取...
ドローページコンテナにいくつのページが含まれているのかを...
Sub drawpage_6
Dim oDoc As Object
Dim oDrawPages As Object
Dim oDrawPage As Object
oDoc = ThisComponent
oDrawPages = oDoc.getDrawPages()
MsgBox oDrawPages.getCount()
End Sub
**ドローページの取り扱い [#qf6188fe]
新規のドローページを追加したり，ドローページを削除するに...
***ドローページの新規作成 [#h6db0401]
ドローページを新しく追加するにはドローページコンテナオブ...
Sub drawpage_7
Dim oDoc As Object
Dim oDrawPages As Object
oDoc = ThisComponent
oDrawPages = oDoc.getDrawPages()
oDrawpages.insertNewByIndex(1)
End Sub
最後のインデックスに新しいドローページを挿入したいときに...
Sub drawpage_8
Dim oDoc As Object
Dim oDrawPages As Object
oDoc = ThisComponent
oDrawPages = oDoc.getDrawPages()
MsgBox oDrawPages.getCount()
End Sub
***ドローページの削除 [#aaadb63e]
ドローページの削除にはドローページコンテナオブジェクトの ...
Sub drawpage_9
Dim oDoc As Object
Dim oDrawPages As Object
Dim oDrawPage As Object
oDoc = ThisComponent
oDrawPages = oDoc.getDrawPages()
oDrawPages.insertNewByIndex(1)
oDrawPage = oDrawPages.getByIndex(1)
oDrawPages.remove(oDrawPage)
End Sub
**現在のページ [#y4e48fff]
現在表示中のスライドは CurrentController から取得します。
oController = ThisComponent.getCurrentController()
oPage = oController.CurrentPage
** ページの複製 [#ca5382ee]
ページをまるごと複製します。
Sub DuplicateDrawPage1
doc = ThisComponent
pages = doc.getDrawPages()
newpage = doc.duplicate(pages.getByIndex(0))
End Sub
複製されたページは元のページの次に挿入されます。
Page:
