![Wink :wink:](./images/smilies/icon_wink.gif)
Gibt es in CALC die Möglichkeit den Textinhalt einer Zelle als 'Kleinbuchstaben' zu formatieren:?:
FORMAT - ZELLE oder FORMAT - ZEICHEN enthalten anscheinend nichts..
Grüße aus Frankfurt am Main....
HP
Moderator: Moderatoren
Code: Alles auswählen
REM Globale Variablen
Global oRecentSelection As Object
Global oListener As Object
Global oDocView As Object
' ===================================
REM Dieses Makro zur Initialisierung starten
Sub erstelle_Listener
oDocView = ThisComponent.getCurrentController
oListener = CreateUnoListener( "Programm_", "com.sun.star.view.XSelectionChangeListener" )
'registrieren
oDocView.addSelectionChangeListener(oListener)
End Sub
' ===================================
REM wieder entfernen
Sub entferne_Listener
On Error Resume Next
oDocView.removeSelectionChangeListener(oListener)
End Sub
' ===================================
REM Events überwachen
Sub Programm_SelectionChanged(oEvent)
'ON ERROR
On Error Goto Fehler
oSelection = oRecentSelection
oRecentSelection = oEvent.source.selection
if oSelection.supportsService ("com.sun.star.sheet.SheetCell") then
if oSelection.Type = com.sun.star.table.CellContentType.TEXT Then
'Formatvorlage Namens "klein" muß existieren
if oSelection.CellStyle = "klein" Then
inhalt = LCASE(oSelection.String)
oSelection.String = inhalt
end if
end if
end if
Fehler:
End Sub