Los foros en español de la comunidad de Apache OpenOffice (y LibreOffice). En tu idioma desde el 2008, ayudándote a usar tu libertad.
https://forum.openoffice.org/es/forum/
| Editado: Bueno, para asignar la macro a las teclas Alt-X debemos hacer lo que nos comenta SLV-es en su blog http://blog.open-office.es/index.php/ba ... ibreoffice |
Código: Seleccionar todo
Sub ContidoANotaDaCelda
' Asignar a una combinación de teclas para que inserte contenido de la celda como un comentario. Éste se mostrará al pasarle el ratón por encima.
' Se usan los dos puntos : al inicio de la linea como indicador de que lo que sigue es el contenido de ls celda
' Si ya tiene un comentario distinto del contenido de la celda, lo añade después de insertar un salto de línea extra
' Idea original: FORNELASA - forum.openoffice.org
Dim Hoja
Dim Celda
Dim DirCelda
Dim Notas
Dim TamNota
Dim NotaPrev
Dim PosMarca As Integer
Dim MarcaSep
MarcaSep = Chr(10)&Chr(10)&":" '<<<< marca de separación entre coment. original y añadido
Celda = ThisComponent.GetCurrentSelection
'si no es una única celda o no tiene nada → salir, no hay nada que hacer
If Celda.ImplementationName <> "ScCellObj" Or Celda.String="" Then
Exit Sub
Else
NotaPrev = Celda.GetAnnotation.GetString 'nota previa
PosMarca = InStr(NotaPrev, MarcaSep)
If Left(NotaPrev, 1)=":" Or NotaPrev ="" Then
NotaPrev = ":"
GoTo ANOTA 'Comienza por : luego es el contenido previo de la celda
ElseIf PosMarca > 0 Then 'preserva todo lo que haya antes de la marca salto_lin+:
NotaPrev = Left(NotaPrev, PosMarca-1) & MarcaSep
Else 'si no hay marca preservar todo y añadirsela
NotaPrev = NotaPrev & MarcaSep
End If
ANOTA:
Celda.ClearContents(8) 'borra la nota previa si la hubiera o hubiese
Hoja =ThisComponent.CurrentController.ActiveSheet 'la hoja activa
Notas = Hoja.getAnnotations() 'las notas de la hoja activa (todas)
Celda = ThisComponent.GetCurrentSelection 'la celda seleccionada
DirCelda = Celda.CellAddress 'la dirección de la celda seleccionada
Notas.InsertNew(DirCelda, NotaPrev & Celda.String) 'nueva nota en la dir.celda con el texto de ella
Celda.Annotation.IsVisible = False 'nota no visible permanentemente
'
With ThisComponent.GetCurrentSelection.GetAnnotation.getAnnotationShape()
.setPropertyValue("CharScaleWidth", 75) 'Se supone mucho texto => tam.letra nota al 75% o el que se ponga
TamNota = .getSize 'tamaño de la nota
TamNota.Width = TamNota.Width * 3 '<<<< triplicamos anchura nota
.setSize(TamNota) 'aplicamos cambio tamaño
.FillColor = RGB(247,247,247) '<<<< color de fondo al gusto para diferenciar
'.CharColor = RGB(25,25,225) '<<<< color del texto si se desea
End With
End If
End SubTodo es mejorable.
