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

 

タグ：セルに画像挿入