Kommentarfunktion: Schriftgröße für ganzes Dokument ändern

[Naturi]

Hallo
gibt es eine Möglichkeit die Schriftgröße der Kommentare fürs ganze Dokument oder sogar allgemein für Calc zu ändern? Oder geht das nur für jeden Kommentar extra, was leider sehr umständlich ist.

[miesepeter]

AlleKommentareFormatieren.png (26.11 KiB) 1100 mal betrachtet

[Naturi]

Danke für deine Bemühungen,
gefragt habe ich, wie man es bei LO-Calc macht, nicht bei Writer.
Bei Calc muss das anders gehen, aber ich kann nicht herausfinde, wie.

[mikele]

Hallo,
ich glaube, dass es dafür keine EInstellung gibt (im Gegensatz zu Writer). Am schnellsten wäre es, ein Makro dafür zu bauen.

Code: Alles auswählen

Sub Main
	oDoc=ThisComponent
	for i=0 to oDoc.Sheets.Count-1
		oTab=oDoc.Sheets(i)
		for k=0 to oTab.Annotations.Count-1
			oAnn=oTab.Annotations(k)
			oTxt=oAnn.Text
			oTxt.charheight=14
		next
	next
End Sub

[Naturi]

Hm...
danke! Leider verstehe ich jetzt davon so gut wie sehr wenig. Mit Makros habe ich noch nie was gemacht.
Heißt das, den Code einfach in ein Terminal eingeben und abschicken oder muss dazu noch mehr gemacht werden?

[miesepeter]

Oh, hatte ganz überlesen, dass sich die Anfrage auf Calc bezog. In Calc selbst fand ich keine Möglichkeit der Änderung; auch nicht in
Menü Extras | Optionen | LibreOffice | Erweitert | Experteneinstellungen

Es bleibt wohl nur der Ansatz von @mikele über ein Makro.

Ciao

[mikele]

Hallo,
um das Makro zu nutzen, gehst du über
->Extras->Makros->Makros verwalten->Basic
Im Dialog wählst du bei "Makros aus" unter "Meine Makros" die Bibliothek "Standard" und klickst auf "Module1" und dann auf die Schaltfläche bearbeiten. Damit landest du in der Oberfläche (IDE) für die Basic-Makros.
Hier fügst du das Makro ein.

Code: Alles auswählen

Sub kommentare_schrift
	eingabe=inputbox("Schriftgröße: ", "Kommentare","12")
	grad=int(eingabe)
	if grad>0  and grad<30 then
		oDoc=ThisComponent
		for i=0 to oDoc.Sheets.Count-1
			oTab=oDoc.Sheets(i)
			for k=0 to oTab.Annotations.Count-1
				oAnn=oTab.Annotations(k)
				oTxt=oAnn.Text
				oTxt.charheight=grad
			next
		next
	end
End Sub

Ich habe es mal um eine Eingabe ergänzt, sodass die gewünschte Schriftgröße eingegeben werden kann (ganzzahlig, nur bei >0 und <30 erfolgt eine Änderung).
Das Makro kannst du nun über ->Extras->Makros->Makros ausführen auswählen und ausführen oder auch ein Symbol in einer Symbolleiste dafür anlegen (->Extras->Anpassen->Symbolleisten)