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? 2003-12-01 (月) 11:13:03