[RESUELTO] Texto Oculto

Discute sobre la aplicación de hojas de cálculo

[RESUELTO] Texto Oculto

Notapor karret » Mar Jul 23, 2013 6:17 pm

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 ;)
Última edición por mauricio el Jue Jul 25, 2013 5:42 pm, editado 1 vez en total
Razón: Marcar RESUELTO correctamente
karret
 
Mensajes: 31
Registrado: Lun Ene 19, 2009 4:12 pm

Re: Texto Oculto

Notapor xiseme » Mar Jul 23, 2013 6:39 pm

¿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.
xiseme
 
Mensajes: 1888
Registrado: Lun Nov 24, 2008 1:13 pm

Re: Texto Oculto

Notapor karret » Mar Jul 23, 2013 6:54 pm

Bueno sería una opción un poco engorroso pero si no hay otra forma me conformare con esa.



Gracias.
karret
 
Mensajes: 31
Registrado: Lun Ene 19, 2009 4:12 pm

Re: Texto Oculto

Notapor fornelasa » Mar Jul 23, 2013 7:40 pm

Otra posible opción:
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) 99 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!
Avatar de Usuario
fornelasa
 
Mensajes: 3219
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: Texto Oculto

Notapor xiseme » Mar Jul 23, 2013 9:37 pm

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.
mostrar22.png

¿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.
xiseme
 
Mensajes: 1888
Registrado: Lun Nov 24, 2008 1:13 pm

Re: Texto Oculto

Notapor fornelasa » Mar Jul 23, 2013 9:50 pm

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.
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!
Avatar de Usuario
fornelasa
 
Mensajes: 3219
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: Texto Oculto

Notapor SLV-es » Mié Jul 24, 2013 12:36 am

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.
+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
Avatar de Usuario
SLV-es
 
Mensajes: 4894
Registrado: Jue Ago 26, 2010 1:25 am
Ubicación: España

Re: Texto Oculto

Notapor fornelasa » Mié Jul 24, 2013 2:26 am

Hola... :D
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 


Saludos, Federico.
Adjuntos
MostrarTexto (2).ods
Mostrar Comentario
(12.16 KiB) 129 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!
Avatar de Usuario
fornelasa
 
Mensajes: 3219
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

[RESUELTO] Texto Oculto

Notapor karret » Jue Jul 25, 2013 5:06 pm

Gracias a todos por la ayuda y especialmente a FORNELASA muy chula la macro la he probado y va muy bien.
karret
 
Mensajes: 31
Registrado: Lun Ene 19, 2009 4:12 pm

Re: [RESUELTO] Texto Oculto

Notapor xiseme » Lun Abr 28, 2014 10:32 pm

Macro basada en la de FORNELASA que no "machaca" comentarios previos si los hubiere
Código: Seleccionar todo   Expandir vistaContraer vista
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.
xiseme
 
Mensajes: 1888
Registrado: Lun Nov 24, 2008 1:13 pm

Re: [RESUELTO] Texto Oculto

Notapor fornelasa » Mar Abr 29, 2014 12:16 am

Hola xiseme, sin duda en excelente ejemplo de:
Todo es mejorable.

:P :super:
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!
Avatar de Usuario
fornelasa
 
Mensajes: 3219
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.


Volver a Calc

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot] y 7 invitados