Bonjour à tous,
/Sub LigneBrisee()
Dim monDocument As Object, maPage As Object
Dim maForme As Object
Dim lesPoints(4) As New com.sun.star.awt.Point
monDocument = thisComponent
maPage = monDocument.DrawPage
maForme = monDocument.createInstance(com.sun.star.drawing.PolyLineShape)
Bonsoir,
Le 26/04/07, Didier Dorange-Pattoret [EMAIL PROTECTED] a écrit :
Bonjour à tous,
/Sub LigneBrisee()
Dim monDocument As Object, maPage As Object
Dim maForme As Object
Dim lesPoints(4) As New com.sun.star.awt.Point
monDocument = thisComponent
maPage = monDocument.DrawPage
maForme =