Top > OOoBasic > Calc > drawpage

ドローページ Edit

ドローページとは,図形描写などがおかれる部分です。部分といっても,Calc では一つのシートごとに一つのドローページがセットになっています。

ドローページはシートコンテナのようにドキュメントないにあるドローページがまとめられたコンテナオブジェクトとして,ドローページコンテナがあります。

個別のドローページはシートオブジェクトからアクセスすることができます。また,ドローページコンテナから各ドローページへアクセスすることもできます。

いくつかの方法でドローページへアクセスしてみます。

ドローページへのアクセス Edit

ドローページへアクセスしてみます。ドローページオブジェクトを取得するといった方が正しいかもしれません。各ページのドローページへのアクセスおよびドローページコンテナへのアクセスを別々に取り上げます。

シートから Edit

Calc ではシートごとにドローページは存在するので,シートからそのシートのドローページへアクセスすることが多くなります。そこで,ここではシートからドローページへアクセスしてみます。

各ドキュメントに存在するシートオブジェクトからそのシートに対応したドローページへアクセスすることができます。このためには,シートオブジェクトの DrawPage プロパティーまたは getDrawPage メソッドを使用します。

Sub drawpage_1
Dim oDoc As Object, oSheets As Object
Dim oSheet As Object, oDrawPage As Object

  oDoc = ThisComponent
  oSheets = oDoc.getSheets()
  oSheet = oSheets.getByIndex(0)
  
  oDrawPage = oSheet.DrawPage // <<-
End Sub

上記の例ではプロパティーを使用してシートオブジェクトからそのシートに対応するドローページオブジェクトを取得しています。コメントアウトした次の行のメソッドによる方法も同じように使用することができます。

ドローページコンテナから Edit

そのドキュメントに存在するドローページすべてがまとめられたものがドローページコンテナです。このコンテナへはドキュメントオブジェクトからアクセスすることができます。

まずは,ドローページコンテナを取得します。このためには,ドキュメントオブジェクトから DrawPages プロパティーまたは,getDrawPages メソッドを使用します。

Sub drawpage_2
Dim oDoc As Object, oDrawPages As Object

  oDoc = ThisComponent
  oDrawPages = oDoc.DrawPages // <<-
End Sub

ここではプロパティーを使用してドローページコンテナを取得しましたが,コメントアウトした次の行のメソッドによる方法も有効です。


Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes