Seite 1 von 1
[gelöst] Text für Schaltfläche fett, FontDiscriptor
Verfasst: Do, 21.05.2015 11:28
von clag
Hallo Kenner und Könner,
per Makro möchte ich den "Label" Text einer Schaltfläche auf
fett 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: Alles auswählen
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
wie setze ich korrekterweise diese Werte für FontDescriptor?
- FontDescriptor.png (7.94 KiB) 2195 mal betrachtet
Re: Text für "Schaltfläche" fett
Verfasst: Do, 21.05.2015 12:01
von clag
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
)
Code: Alles auswählen
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
die Zeilen bewirken das gewünschte.
Re: [gelöst] Text für Schaltfläche fett, FontDiscriptor
Verfasst: Do, 21.05.2015 13:07
von balu
Hallo clag,
schön das Du eine Lösung gefunden hast. Es geht aber auch anders (einfacher), und das ohne
extra den FontDescriptor aufzurufen.
Code: Alles auswählen
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
per Makro möchte ich den "Label" Text einer Schaltfläche auf fett setzen,
habe mich mit MRI bzw Xray bis zum "FontDescriptor" einer Schaltläche vorgetastet
Ich weiß nicht wie Du wo MRI bzw Xray angesetzt hast, aber hiermit
Code: Alles auswählen
xray ThisComponent.Sheets(0).DrawPage.Forms.getByIndex(0).getByName("Schaltfläche 1")
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
Re: [gelöst] Text für Schaltfläche fett, FontDiscriptor
Verfasst: Do, 21.05.2015 15:24
von clag
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.