Re: [libreoffice-users] Basic macro in Impress to get current/active/selected slide?

On Wed, 6 Mar 2019 01:52:25 +0100, Nathan Ullberg <nathan.ullberg@gmail.com> wrote:

> Hi there,
>
> I was wondering:  I am trying to write a Basic macro which inserts a 
> rectangle in Impress in the current/active/selected slide.
> But the closest I have gotten is to specify which slide# it will end up 
> on....
> How do I get the current slide?  (No success after much googling.....)
>
> This is what I have:
> ========================
> sub InsertRectangle
> dim shapeGeometry(0) as new com.sun.star.beans.PropertyValue
> dim oSize as new com.sun.star.awt.Size
> dim oPosition as new com.sun.star.awt.Point
> oSize.width = 6000
> oSize.height = 3000
> oDoc = ThisComponent
> oSlide = oDoc.DrawPages(2)  'how do i get current/active/selected 


Hello...

Try...

Sub InsertRectangle()
Dim s As New com.sun.star.awt.Size

    doc = ThisComponent
    dp = doc.CurrentController.CurrentPage
    obj = doc.createInstance("com.sun.star.drawing.RectangleShape")

    s.Width = 2000
    s.Height = 1000
    obj.setSize(s)

    dp.add(obj)

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