LibreOffice Calc Basic アクティブシートの画像に影をつけるマクロの実験

LibreOffice Calc Basic アクティブシートの画像に影をつけるマクロの実験

つぎはぎで作ったので、何かおかしいですが、動作します。

 

 

Sub shadow_test1()
'アクティブシートの画像に影を設定する
'影が設定されていれば解除、設定されていなければ設定する

    drawPage=ThisComponent.CurrentController.ActiveSheet.drawPage
    '画像の数
    drawCount= ThisComponent.CurrentController.ActiveSheet.DrawPage.count
    'Print drawCount
    'uno:FillShadow用設定
        document   = ThisComponent.CurrentController.Frame
        dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    '影shadow設定
        For i=0 To drawCount-1
            '画像選択
            ThisComponent.CurrentController.select(drawPage.getByIndex(i))
            '選択画像の影のプロパティ設定
            with ThisComponent.CurrentController.activesheet.getDrawPage().getByIndex(i)
                '.FillShadow =1　NG
                .ShadowColor=rgb(200,200,200)
                .ShadowXDistance=150
                .ShadowYDistance=150
                '.setString="test"   NG
                .setString("No." + i)    文字を挿入
            End With
        '影表示、非表示
        dispatcher.executeDispatch(document, ".uno:FillShadow", "", 0, Array())
    Next i
End Sub