OpenOffice.info

Sorry. Meinte so etwas im Sinne von "(langfristig) sicher", wenn es danach geht, diese Funktion auch langfristig nutzen zu können.


Auch wenn das echt cool ist, mal so ein Makro vor den Augen zu haben, danke. :D

[quote]das schwebt mir nun nicht sinnvoll vor[/quote]

Was ist denn weniger "sinnvoll" als bei der anderen Funktion?

Ich habe jetzt mal die Makros in eine Extension gepackt, welche bei Installation auch eine Symbolleiste erzeugt (siehe Ansicht-SYmbolleisten-Schriftgröße ändern)

[color=#FF0000]Hinweis:
wegen Unterschieden hinsichtlich Symbolleisten in Extensions in OO/LO (siehe: https://wiki.openoffice.org/wiki/Extensions/Extensions_and_Apache_OpenOffice_4.0#addons.xcu_changes und https://wiki.openoffice.org/wiki/Extensions_Packager#BasicAddonBuilder_and_AOO_4.x) ist die angehängte Extension nur zur Nutzung mit LO verwendbar. (Für OO müste sie angepasst werden)[/color]


Gruß
Stephan

Ach, schade. Was eine komische Einstellung, dachte echt dass es bei mir etwas ver-konfiguriertes sei.

Danke aber. :)

(Die Makros nun stets dafür zu nutzen, das schwebt mir nun nicht sinnvoll vor.)

Sub EinPunktGroesser()
	anz = ThisComponent.getCurrentSelection.Count
	For i = 0 To anz-1
		With ThisComponent.getCurrentSelection.getByIndex(i)
			.CharHeight = .CharHeight + 1
		End With
	Next i
End Sub

Sub EinPunktKleiner()
	anz = ThisComponent.getCurrentSelection.Count
	For i = 0 To anz-1
		With ThisComponent.getCurrentSelection.getByIndex(i)
			.CharHeight = .CharHeight - 1
		End With
	Next i
End Sub

Sub EinPunktGroesser()
	With ThisComponent.getCurrentSelection
		.CharHeight = .CharHeight + 1
	End With
End Sub

Sub EinPunktKleiner()
	With ThisComponent.getCurrentSelection
		.CharHeight = .CharHeight - 1
	End With
End Sub

[quote]Lässt sich die Änderung, die über die Buttons durchgeführt wird, auch auf 1 pt umstellen? [/quote]

Nicht das ich wüsste.

Du könntest alternativ 4 Makros bemühen:
[b]z.B. für Writer:[/b]

[code]Sub EinPunktGroesser()
anz = ThisComponent.getCurrentSelection.Count
For i = 0 To anz-1
With ThisComponent.getCurrentSelection.getByIndex(i)
.CharHeight = .CharHeight + 1
End With
Next i
End Sub

Sub EinPunktKleiner()
anz = ThisComponent.getCurrentSelection.Count
For i = 0 To anz-1
With ThisComponent.getCurrentSelection.getByIndex(i)
.CharHeight = .CharHeight - 1
End With
Next i
End Sub[/code]

[b]z.B. für Calc:[/b]

[code]Sub EinPunktGroesser()
With ThisComponent.getCurrentSelection
.CharHeight = .CharHeight + 1
End With
End Sub

Sub EinPunktKleiner()
With ThisComponent.getCurrentSelection
.CharHeight = .CharHeight - 1
End With
End Sub
[/code]


ich schreibe "z.B." weil das noch nicht perfekt ist, denn jede Teil-markierung muss eine einheitliche Schriftgrösse haben


Gruß
Stephan

[list][*]System: Linux 5.14.14
LO-Version: libreoffice-fresh 7.2.2-1
[/list]

Hallo zusammen,

wenn ich, egal ob in Writer oder Calc, auf die Buttons
Schriftgröße vergrößern
oder
Schriftgröße verkleinern
klicke, ändert sich der Wert immer um 2 pt / Punkte.

Lässt sich die Änderung, die [i]über die Buttons[/i] durchgeführt wird, auch auf 1 pt umstellen?


[attachment=0]LibreOffice-Frage Schriftgröße vergrößern verkleinern.jpg[/attachment]