[RESUELTO] Texto Oculto
[RESUELTO] Texto Oculto
Hola a todos, tengo una duda hay alguna forma para cuando se coloque mucho texto en una celda y pase el ratón por encima me muestre el texto completo algo parecido a los comentarios pero en la propia celda, es que no quiero que la celda se cambien de tamaño para tener mas espacio en las
columnas.
Gracias de antemano
columnas.
Gracias de antemano
Última edición por mauricio el Jue Jul 25, 2013 5:42 pm, editado 1 vez en total.
Razón: Marcar RESUELTO correctamente
Razón: Marcar RESUELTO correctamente
Re: Texto Oculto
¿No te vale con situarte en la celda colapsada y presionar F2? -como si fueras a editarla-
Todo es mejorable, estamos dispuestos a mejorar. ¿Yo? ... poco a poco.
Nunca hay acritud en mis comentarios, si lo pareciera, seguro que me he expresado mal.
Nunca hay acritud en mis comentarios, si lo pareciera, seguro que me he expresado mal.
Re: Texto Oculto
Bueno sería una opción un poco engorroso pero si no hay otra forma me conformare con esa.
Gracias.
Gracias.
Re: Texto Oculto
Otra posible opción:
Cada que quieras ver el contenido de una celda pulsa simultaneamente Alt-V
Saludos, Federico.
Cada que quieras ver el contenido de una celda pulsa simultaneamente Alt-V
Saludos, Federico.
- Adjuntos
-
- MostrarTexto.ods
- Mostrar Texto Con Alt-V
- (11.5 KiB) Descargado 236 veces
lo 6.2.0 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
Re: Texto Oculto
El texto en el Mgbox tiene la ventaja de que hay menos riesgo de modificar el contenido y el inconveniente que hay que cerrarlo (Esc o Aceptar) antes de poder pasar a otra celda.
(1) algo como ">>> "&contenido de la celda (seguramente habrá que definir las dimensiones del comentario)
(2)borrar todos (o uno a uno) los comentarios que empiecen por ">>> "
P.D.: En mi sistema la combinación Alt+V está reservada al menú «Ver» Daba por hecho que era así en todos, ya veo que no.
¿En su lugar la macro podría añadir un comentario a la celda (1) para con otra macro eliminar los comentarios añadidos por este motivo(2)?(1) algo como ">>> "&contenido de la celda (seguramente habrá que definir las dimensiones del comentario)
(2)borrar todos (o uno a uno) los comentarios que empiecen por ">>> "
P.D.: En mi sistema la combinación Alt+V está reservada al menú «Ver» Daba por hecho que era así en todos, ya veo que no.
Todo es mejorable, estamos dispuestos a mejorar. ¿Yo? ... poco a poco.
Nunca hay acritud en mis comentarios, si lo pareciera, seguro que me he expresado mal.
Nunca hay acritud en mis comentarios, si lo pareciera, seguro que me he expresado mal.
Re: Texto Oculto
Hola xiseme, solo como comentario, en mi Calc tambien Alt V esta reservado para el menú Ver si ambas teclas se pulsan por separado, si se pulsan simultaneamente la macro debe correr sin ningún problema (es decir, pulsar Alt y sin soltarla entonces pulsar V).
Saludos, Federico.
Saludos, Federico.
lo 6.2.0 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
Re: Texto Oculto
No es por llevar la contraria, pero ¿tan difícil es hacer doble clic sobre la celda, y una vez leido el texto, hacer clic en cualquier otro lugar?
Aunque sólo sea por Occam y su santa navaja.
Aunque sólo sea por Occam y su santa navaja.
+info en la web "no oficial" dedicada a OpenOffice en Español
AOO 4.1.2 y LibO 4.4.6 en W10 y en Lliurex
No respondo mensajes privados sobre AOO, por favor, utiliza el foro para tus preguntas
AOO 4.1.2 y LibO 4.4.6 en W10 y en Lliurex
No respondo mensajes privados sobre AOO, por favor, utiliza el foro para tus preguntas
Re: Texto Oculto
Hola...
Otra Opción.
Pulsar rapidamente la tecla Alt y sin soltarla pulsar X
Lo anterior hace que el texto de la celda pase a ser comentario tambien, a partir de ahi solo se pasa el mouse por la celda y se ve el texto completo.
Saludos, Federico.
Otra Opción.
Pulsar rapidamente la tecla Alt y sin soltarla pulsar X
Lo anterior hace que el texto de la celda pase a ser comentario tambien, a partir de ahi solo se pasa el mouse por la celda y se ve el texto completo.
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 |
- Adjuntos
-
- MostrarTexto (2).ods
- Mostrar Comentario
- (12.16 KiB) Descargado 266 veces
lo 6.2.0 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
[RESUELTO] Texto Oculto
Gracias a todos por la ayuda y especialmente a FORNELASA muy chula la macro la he probado y va muy bien.
Re: [RESUELTO] Texto Oculto
Macro basada en la de FORNELASA que no "machaca" comentarios previos si los hubiere
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 Sub
Todo es mejorable, estamos dispuestos a mejorar. ¿Yo? ... poco a poco.
Nunca hay acritud en mis comentarios, si lo pareciera, seguro que me he expresado mal.
Nunca hay acritud en mis comentarios, si lo pareciera, seguro que me he expresado mal.
Re: [RESUELTO] Texto Oculto
Hola xiseme, sin duda en excelente ejemplo de:
Saludos, Federico.
Todo es mejorable.
Saludos, Federico.
lo 6.2.0 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!