On Thu, 2021-02-11 at 19:08 +0100, Regina Henschel wrote:
> Hi all,
>
> does someone has a basic macro snippet for to insert a custom shape
> (e.g. a smiley) into a page?
>
> Background: For a unit test I need to insert a custom shape via code
> similar to as it is done via mouse. But I have no idea how to code
> it. A
> macro might give me an initial stage for a solution.
>
> Kind regards
> Regina
>
For Calc, for example:
Sub Main
Dim size As New com.sun.star.awt.Size
Dim args(0) As New com.sun.star.beans.PropertyValue
doc = ThisComponent
sheet = doc.getCurrentController.getActiveSheet()
dp = sheet.getDrawPage()
shape =
doc.createInstance("com.sun.star.drawing.CustomShape")
dp.add(shape)
size.Width = 5000
size.Height = 5000
shape.setSize(size)
args(0).Name = "Type"
args(0).Value = "smiley"
shape.setPropertyValue("CustomShapeGeometry", args)
End Sub
--
To unsubscribe e-mail to: [email protected]
Problems? https://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette
List archive: https://listarchives.libreoffice.org/global/users/
Privacy Policy: https://www.documentfoundation.org/privacy
