Re: [libreoffice-users] Basic macro to insert a custom shape into a page ?

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: users+unsubscribe@global.libreoffice.org
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