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
slide......?
oShape = oDoc.createInstance("com.sun.star.drawing.CustomShape")
shapeGeometry(0).Name = "Type"
shapeGeometry(0).Value = "flowchart-process"
oSlide.add(oShape)
oShape.CustomShapeGeometry = shapeGeometry
oShape.Size = oSize
oPosition.X = (oSlide.width - oSize.width) / 2
oPosition.Y = (oSlide.height - oSize.height) / 2
oShape.setPosition(oPosition)
oShape.FillStyle = com.sun.star.drawing.FillStyle.SOLID
oShape.LineStyle = com.sun.star.drawing.LineStyle.NONE
oShape.FillColor = 2943070
end sub
========================
Thanks,
/Nathan
--
To unsubscribe e-mail to: users+unsubscr...@global.libreoffice.org
Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/global/users/
Privacy Policy: http://www.documentfoundation.org/privacy
