On Wed, 6 Mar 2019 01:52:25 +0100, Nathan Ullberg <[email protected]>
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: [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
