So-net無料ブログ作成

LibreOffice Calc Basic アクティブシートの画像を全て削除するマクロの実験 [LibreOffice Calc Basic]

LibreOffice Calc Basic アクティブシートの画像を全て削除するマクロの実験

 

 Sub rmShape()
'アクティブシートのshape(画像)を全て削除する
'
 Dim drawpage as Object
 Dim shape as Object
 Dim i As Long
 
 '設定
         drawpage = ThisComponent.CurrentController.activesheet.getDrawPage()
         'Print drawpage.getcount
         'index番号はゼロからなので、count-1
 'shapeの削除
     '番号の大きい方から削除, i はインデックス番号
         For i=drawpage.getcount-1 To  0  Step -1
             shape= drawpage.getByIndex(i)
             drawpage.remove(shape)
         Next i
 
End Sub

 


nice!(6)  コメント(0)  トラックバック(0) 
共通テーマ:パソコン・インターネット

nice! 6

コメント 0

コメントを書く

お名前:[必須]
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

トラックバック 0


Linuxランキング