LibreOffice Calc Basic 背景に設定した画像を前面に表示するマクロの実験 [LibreOffice Calc Basic]
LibreOffice Calc Basic 背面背景に設定した画像を前面に表示するマクロの実験
画像を背面背景に設定した場合前面に戻したい時があるのでマクロを作成した。
Sub ShapeLayerId()
'アクティブシートの背面背景に設定された画像を前面に表示
'https://forum.openoffice.org/en/forum/viewtopic.php?f=20&t=45027
Dim drawpage as Object
Dim Shape as Object
Dim i As Long
'設定
drawpage = ThisComponent.CurrentController.ActiveSheet.getDrawPage()
'Print drawpage.getcount
'index番号はゼロからなので、count-1
For i=drawpage.getCount-1 To 0 Step -1
Shape= drawpage.getByIndex(i)
'Print Shape.LayerId 0=前面 1=背面
If Shape.LayerId=1 Then
Shape.LayerId = 0
End If
Next i
End Sub
画像を背面背景に設定する操作をマクロの記録で取ると
sub Main4
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:SetObjectToBackground", "", 0, Array())
uno:SetObjectToBackgroundd で検索するとヒントが得られる。
LibreOfficeのマクロの記録はMsOfficeに比べ劣っているが、一応記録してみてuno XXXXXを検索するのが良いみたい。
Where To Buy Sildenafil [url=https://abuycialisb.com/]Buy Cialis[/url] Canadna Drugs <a href=https://abuycialisb.com/#>Cialis</a> Best Prices On Generic Viagra
by Bupsfutty (2020-06-06 12:59)