(gelöst) Farbe des Textes der Maßlinien

[erikafuchs]

Hallo Ihr Lieben,
ich habe ja jetzt gelernt, die Masslinien ("MeasureShape"))selbst zu erstellen. Ich bräuchte aber eine andere Beschriftung und hatte die Idee einfach die Farbe des Textes der Masslinie weiß zu färben (damit man ihn nicht sieht) und einen neuen Text danebenzusetzen. Weiß jemand wie man den Text weiß färbt?
Vielen Dank
Pit

[erikafuchs]

Lieber Rocko,
vielen Dank, nein, ich habe mich nicht im Unterforum geirrt. Mein Makro erstellt Quader und Prismen (von denen die Schüler die Volumina bestimmen müssen). Diese werden mit Zufallszahlen erstellt und mit Maßlinien versehen. Die Maßlinie für die Tiefe ist nunmal nur halb so lang - daher stimmt der Text der Maßlinie nicht. In Draw direkt kann man das ändern - mit einem Makro, nach meiner Einschätzung, aber nicht.
Viele Grüße
Pit

[DPunch]

Aloha

MeasureShapes unterstützen den Service com.sun.star.drawing.Text, stellen also mehr oder weniger selber ein Textobjekt dar.
Du kannst also dieselben Eigenschaften verwenden, wie Du es auch bei einem stinknormalen Text tun würdest.

Einfach mal angehängt an den Code, den Du hier vor kurzem gepostet hattest:

Code: Alles auswählen

   oPage.add(oMass) 
   With oMass
     .StartPosition=Punkt
     .endPosition=Punkt2
     .MeasureDecimalPlaces=0
     .MeasureUnit=2
   End With
   oMass.String = "meinMesslinienText"
   oMass.CharColor = 155

[F3K Total]

... und mit diesem Code kannst Du den automatisch erzeugten Wert (hier in cm) auslesen, halbieren, und wieder zuweisen:

Code: Alles auswählen

sString=oMass.string
dvalue=CDbl(replace(sString,"cm",""))'umwandeln in Zahl (Double)
dvalue=dvalue/2'halbieren
sNewString=""+dvalue+"cm"'Wert wieder mit Einheit versehen
oMass.string=sNewString'und auf die Masslienie schreiben

Gruß R

[erikafuchs]

Oh Mann, vielen Dank. Danach suche ich schon lange. (Dazu hatte ich schon mehrere Anfragen hier laufen).
Pit