OpenOffice.info

Hallo Balu,

ja manchmal ist man blind, man steht genau vor dem Scheunentor und sucht es immernoch, zuerst hatte ich genau da
wodu es jetzte zeigst gesucht aber möglichereweise war ich auf "bold" oder so etwas fixiert und habe "weight" nicht als fett erkannt?
Gut das du mir noch aufzeigst, das ich zu tief gebohrt habe und die Eigenschaft doch viel einfacher zu erreichen ist.

Besten Dank dadafür.

Sub ButtonDrawpage
	vForm = ThisComponent.Sheets(0).DrawPage.Forms.getByIndex(0)

	StartButton = vForm.getByName("Schaltfläche 1")
	StartButton.Label = "Mein Name ist Hase."
	StartButton.BackgroundColor = &H7e0021
	StartButton.TextColor = &H000000
	StartButton.FontHeight = 20
	StartButton.FontName = "Verdana"

	StartButton.FontWeight = 150
End Sub

xray ThisComponent.Sheets(0).DrawPage.Forms.getByIndex(0).getByName("Schaltfläche 1")

Hallo clag,

schön das Du eine Lösung gefunden hast. Es geht aber auch anders (einfacher), und das ohne [b][u]extra[/u][/b] den FontDescriptor aufzurufen.

[code]
Sub ButtonDrawpage
vForm = ThisComponent.Sheets(0).DrawPage.Forms.getByIndex(0)

StartButton = vForm.getByName("Schaltfläche 1")
StartButton.Label = "Mein Name ist Hase."
StartButton.BackgroundColor = &H7e0021
StartButton.TextColor = &H000000
StartButton.FontHeight = 20
StartButton.FontName = "Verdana"

StartButton.FontWeight = 150
End Sub
[/code]

[quote]
per Makro möchte ich den "Label" Text einer Schaltfläche auf [b]fett[/b] setzen,
habe mich mit MRI bzw Xray bis zum "FontDescriptor" einer Schaltläche vorgetastet
[/quote]
Ich weiß nicht wie Du wo MRI bzw Xray angesetzt hast, aber hiermit
[code]
xray ThisComponent.Sheets(0).DrawPage.Forms.getByIndex(0).getByName("Schaltfläche 1")
[/code]
bekommst Du eigentlich alles was man braucht um eine Schaltfläche auf der Drawpage zu bearbeiten, oder zu manipulieren.

Ich weiß das das Suchen mit MRI bzw Xray nicht immer einfach ist, aber manschmal gehts doch recht leicht.



gruß
balu

dim xFont As New com.sun.star.awt.FontDescriptor
xFont.Weight = 100

oCalc.Sheets(0).Drawpage.Forms.getByIndex(0).getbyName("Schaltfläche 1").FontDescriptor=xFont

Hallo zusammen,

tschuldigung für meine Fragerei ..
habe gerade bei Herrn Dannenhöfer eine Antwort gefunden (warum habe ich nicht gleich den richtigen Suchbegriff eingegeben :roll: )

[code]
dim xFont As New com.sun.star.awt.FontDescriptor
xFont.Weight = 100

oCalc.Sheets(0).Drawpage.Forms.getByIndex(0).getbyName("Schaltfläche 1").FontDescriptor=xFont
[/code]

die Zeilen bewirken das gewünschte.

dim FontDescriptor(0) as new com.sun.star.beans.PropertyValue
FontDescriptor(0).Name = "weight"
FontDescriptor(0).Value = "150"

oCalc.Sheets(0).Drawpage.Forms.getByIndex(0).getbyName("Schaltfläche 1").FontDescriptor

Hallo Kenner und Könner,

per Makro möchte ich den "Label" Text einer Schaltfläche auf [b]fett[/b] setzen,
habe mich mit MRI bzw Xray bis zum "FontDescriptor" einer Schaltläche vorgetastet
aber scheinbar kann ich da nur lesen und nicht schreiben?

FontDescriptor.weight = 100 (normal)
FontDescriptor.weight = 150 (fett)

Die folgenden Zeilen zeigen jedenfalls hier keine Wirkung aber auch keinen Fehler

[code]
dim FontDescriptor(0) as new com.sun.star.beans.PropertyValue
FontDescriptor(0).Name = "weight"
FontDescriptor(0).Value = "150"

oCalc.Sheets(0).Drawpage.Forms.getByIndex(0).getbyName("Schaltfläche 1").FontDescriptor
[/code]

wie setze ich korrekterweise diese Werte für FontDescriptor?

[attachment=0]FontDescriptor.png[/attachment]