Top > OOobbs > 1
  • The added line is THIS COLOR.
  • The deleted line is THIS COLOR.
  • Go to OOobbs/1.

** [[OOobbs/1]]
-''サマリ'': 図の数を取得する方法
-''環境'': Writer
-''状態'': 解決
-''投稿者'': [[wata]]
-''投稿日'': 2003-11-28 (金) 22:04:42

*** 質問
wataと申します

現在開いている文書で使用している図の数を取得する方法を
教えて頂けないでしょうか。

メニューの ファイル>プロパティーで表示される「統計」タグに
ページ数や段落数と一緒に”図の数”がありますよね、アレを
BASICで取得したいのです

SDKのマニュアルなどを参照しましたが、目的のオブジェクトすら
判らず完全にお手上げ状態です(TT)
よろしくお願いします。



*** 回答

「図の数」ということですが,「図」はドキュメントのグラフィックオブジェクトにまとめられているので,その中の図の数を取得します。
(「図」と「OLE オブジェクト」は別々に管理されているみたいですね。)

たとえば,次のようにします。

 Sub numberoffigure
 Dim oDoc As Object
 Dim oGraphicObj As Object
 
   oDoc = ThisComponent
   oGraphicObj = oDoc.getGraphicObjects()
   
   MsgBox oGraphicObj.getCount()
 End Sub

表示されるのがドキュメント中の「図」の数です。

この oGraphicObj に含まれているそれぞれの図にはインデックスまたは名前でアクセスすることができます。
-無事取得することができました。アドバイス有難うございました。 -- [[wata]] &new{2003-12-01 (月) 11:13:03};

#comment

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