Gracias Gracias:  0
Me Gusta Me Gusta:  0
No me Gusta No me Gusta:  0
Mostrando resultados del 1 al 5 de 5

Tema: LibreOffice: mostrar contenido celdas pasando mouse

  1. #1
    Fecha de Ingreso
    18-mayo-2013
    Mensajes
    90
    Post Thanks / Like
    Poder de Credibilidad
    8

    LibreOffice: mostrar contenido celdas pasando mouse

    Hola, que tal?

    Hace tiempo que me pregunto como se podría conseguir que en LibreOffice se mostrara el contenido de las celdas, que contienen más información de la que cabe dentro de sus límites gráficos. Es algo que por defecto ocurre en Caligra Sheets. Espero explicarme es simple, cuando acercas el mouse a una celda con mucha info, aparece un recuadro mostrando todo el contenido de la celda y si sacas el mouse de la celda desaparece el recuadro. Me resulta muy cómodo, en vez que tener que hacer doble clic en la celda para pasar a modo edición y que se pueda ver todo el contenido.

    Existe algún complemento o añadido para LibreOffice que sirva para ello?

    Saludos y gracias anticipadas!

  2. #2
    Fecha de Ingreso
    08-septiembre-2005
    Ubicación
    ±43º21'N8º22'W
    Mensajes
    1.232
    Post Thanks / Like
    Poder de Credibilidad
    17
    Aunque puedes (y debes) buscar por si acaso, no creo que haya ninguna extensión (ni añadido ni complemento ) si no seguramente, en este tema del foro de OpenOffice se hubiera comentado.
    En él se propuso una interesante macro, que asignada a una combinación de teclas muestra el contenido de la celda como comentario o msgbox.
    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.

  3. #3
    Fecha de Ingreso
    18-mayo-2013
    Mensajes
    90
    Post Thanks / Like
    Poder de Credibilidad
    8
    Hola!

    Gracias por la respuesta!

    Efectivamente, buscando encontré algunas cosillas interesantes, aunque nada para esta necesidad concreta.

    La macro que mencionas es justo lo que estoy buscando, cuando paso el ratón por encima muestra el texto que no cabe en la celda.

    Ahora bien: No logro que esa macro pase a formar parte del documento base de LibreOffice, para así, disponer de esa macro en todos los documentos nuevos. Me resulta muy confusa la gestión de macros y no encontré información sobre ello. Tendría que editar el documento base o plantilla? Y como añado la macro?

    iComo puedo solucionar esto?

  4. #4
    Fecha de Ingreso
    18-mayo-2013
    Mensajes
    90
    Post Thanks / Like
    Poder de Credibilidad
    8
    Ay, creo que toque algo que no debía

    Aprendiendo a gestionar las macros con la ayuda de este documento http://www.pitonyak.org/OOME_3_0.pdf encontrado en la wiki de LibreOffice https://wiki.documentfoundation.org/...rew.27s_Macros
    tengo que haber modificado algo, que no logro saber, porque ahora, cuando abro el adjunto "MostrarTexto (2)" e intento ejecutar la macro, me devuelve el error: Error de ejecución de BASIC. Variable de objeto no establecida

    señalando la línea siguiente, del código de la macro:
    ThisComponent.GetCurrentSelection.GetAnnotation.ge tAnnotationShape().setPropertyValue("CharScaleWidt h", 62)

    Apenas tengo conocimientos sobre programación, si alguien pudiera ayudarme, o tendré que olvidarme del asunto.

    Gracias igualmente por tu respuesta, que me ofrecía una solución, que lamentablemente no se aprovechar

    Saludos!

  5. #5
    Fecha de Ingreso
    08-septiembre-2005
    Ubicación
    ±43º21'N8º22'W
    Mensajes
    1.232
    Post Thanks / Like
    Poder de Credibilidad
    17
    feroSUSEANDO hace mención a un adjunto de este tema del foro de OpenOffice
    Creo que tiene respuesta en ese foro, pero por si pudiera ser de interés a otros que lean esto ...
    La macro en cuestión debe situarse en Menú → herramientas → macros → organizar macros creando si es necesario un módulo en «Mis macros → Standard» Así la macro está disponible en toda la aplicación sin tener que ponerla en cada archivo que se quiera usar.
    Código:
    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 Añadidas contribuciones propias.
    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
    para asignar una macro a una combinación de teclas Menú → Herramientas → Personalizar → Pestaña «Teclado»
    combteclamacro.jpg
    Última edición por XisEme; 28-abr-2014 a las 23:41 Razón: Mejoras en la macro: más útil aún ;-) XD
    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.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Temas Similares

  1. Problema con tildes en LibreOffice
    By J_VM in forum Software
    Respuestas: 9
    Último mensaje: 01-nov-2014, 15:22
  2. problema con pci.
    By LUKE10 in forum Software
    Respuestas: 6
    Último mensaje: 19-feb-2014, 23:58
  3. Los click del mouse dejan de responder aleatoreamente
    By Jose Luis 1320 in forum Software
    Respuestas: 12
    Último mensaje: 10-nov-2013, 01:55
  4. Activar funciones del Touchpad
    By Alekhs in forum Portátiles y otros Dispositivos
    Respuestas: 4
    Último mensaje: 24-dic-2011, 09:01
  5. Suse se olvida que mouse tengo
    By seshomaru in forum Hardware
    Respuestas: 18
    Último mensaje: 27-jul-2005, 05:49

Marcadores

Normas de Publicación

  • No puedes crear nuevos temas
  • No puedes responder mensajes
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •