LibreOffice-Forum

Hallo zusammen,

aus einem Basic-Makro heraus möchte ich in DRAW
ein bzw mehrere Kreissegmente erzeugen.

Wie ich eine leere Folie erzeuge ist mir bekannt.

Zum Kreisegment stellt mir das Basic-Makro die Koordinaten

x, y, i und j zur Verfügung.

Reichen diese Angaben aus oder um welche Informationen
muß die Angabe zur Erstellung eines Kreissegmentes ergänzt werden.

Wie sähe solch ein Beispielmakro aus?

Mit Gruß
Werner

Moin,
ein Beispiel:

Code: Alles auswählen

sub  Zeichne_ein_Kreissegment
    oDoc = ThisComponent
    oPage = oDoc.Drawpages(0)
    oEllipse = oDoc.createInstance("com.sun.star.drawing.EllipseShape")
    oPos = oEllipse.Position
    oPos.X = 4000
    oPos.Y = 4000
    oSize = oEllipse.Size
    oSize.Height = 6000*2
    oSize.Width = 6000*2
    oEllipse.Size = oSize
    oEllipse.Position = oPos
    oEllipse.CircleKind = com.sun.star.drawing.CircleKind.SECTION
    oEllipse.CircleStartAngle = 4500 '45°
    oEllipse.CircleEndAngle = 10500  '105°
    oEllipse.FillStyle = com.sun.star.drawing.FillStyle.SOLID
    oEllipse.FillColor = RGB(255,255,0)
    oEllipse.LineColor = RGB(0,0,0)    
   	oPage.add(oEllipse)	
end sub

Gruß R

Hallo R,

Danke für Dein Beispiel, das ist für mich schon mal ein
Ansatz.

mit Gruß
Werner

LibreOffice-Forum

[gelöst] Kreissegment mit Basic erzeugen, wie?

[gelöst] Kreissegment mit Basic erzeugen, wie?

Re: Kreissegment mit Basic erzeugen, wie?

Re: Kreissegment mit Basic erzeugen, wie?