Tooltip en estos hyper enlaces ?

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...

Tooltip en estos hyper enlaces ?

Notapor arfgh » Vie Nov 29, 2019 12:32 am

a ver si alguien me puede echar un cable. Tengo unos hyper enlances que añado desde una macro en un informe de base. Funciona bien, pero el problema es que no soy capaz de encontrar una forma de añadir un texto tooltip a esos hyper enlaces.

Código: Seleccionar todo   Expandir vistaContraer vista
   Cell = Table.getCellByPosition(x, n)
   Content = Cell.Text
   Curs = Content.createTextCursor()
   Curs.gotoStart(False)
   Curs.gotoEnd(True)
   Curs.HyperLinkURL = "vnd.sun.star.script:standard.module1.HyperlinkFF?language=Basic&location=document"


Los enlaces los he añadido de esta forma... pero... cómo se podría hacer lo del tooltip ?
OpenOffice última versión, Windows XP X64, Windows 8.1 X64, Mageia Linux x64
arfgh
 
Mensajes: 16
Registrado: Mar Mar 05, 2013 4:40 pm

Re: Tooltip en estos hyper enlaces ?

Notapor gustavodiaz00 » Dom Dic 01, 2019 10:37 pm

No se si es lo que buscas pero algo de esto te peuede ayudar

Código: Seleccionar todo   Expandir vistaContraer vista
REM  *****  BASIC  *****

sub Main

  Dim x As Integer
  Dim n As Integer
 
   x = 2
   n = 6
   
   Cell = ThisComponent.getSheets.getByIndex(0)
   Cell = Table.getCellByPosition(x, n)
   Content = Cell.Text
   Curs = Content.createTextCursor()
   Curs.gotoStart(False)
   Curs.gotoEnd(True)
   'Curs.HyperLinkURL = "vnd.sun.star.script:standard.module1.HyperlinkFF?language=Basic&location=document"
   
   AgregarComentarioCelda(x, n, "Esto es un Comentario")
   ' BorrarComentario(x, n)
   
end sub

sub AgregarComentarioCelda(x As Integer, n As Integer, Comentario As String)

Dim oComentarios As Object

      oHoja = ThisComponent.getSheets.getByIndex(0)
      'La activamos
      ThisComponent.getCurrentController.setActiveSheet(oHoja)
      ' creo el comentario           
      oComentarios = oHoja.getAnnotations
      oCelda = oHoja.GetCellByPosition( x, n)
      oComentarios.insertNew( oCelda.CellAddress, Comentario )
      oCelda.Annotation.isVisible = False
         
      ' Tipo de letra - tamaño - color
      With oCelda.Annotation.getAnnotationShape()
        .charFontName = "Arial"
        .charHeight = 12
        .CharColor =  RGB(0,0,0)
       ' también con .setPropertyValue( "CharHeight" , nPuntos ), etc
      End With
     
      ' Tamaño del comentario
      Dim sFrameRectNew As New com.sun.star.awt.Rectangle
     
      sFrameRectNew.X = 10
      sFrameRectNew.Y = 10
      sFrameRectNew.width = 21000
      sFrameRectNew.height = 2000
      oCelda.Annotation.getAnnotationShape().FrameRect = sFrameRectNew
     
      ' Fin del comentario
end sub

Sub BorrarComentario(x As Integer, n As Integer)
 
  'Referencia a la nueva hoja o a la existente
  oHoja = ThisComponent.getSheets.getByIndex(0)
  'La activamos
  ThisComponent.getCurrentController.setActiveSheet(oHoja)
 
  Dim oComentaros As Object
 
  'Borramos solo los Comentarios
  oComentarios = oHoja.getAnnotations
  oCelda = oHoja.GetCellByPosition( x, n)
  oCelda.clearContents( 8 )
   
end sub


LibreOffice 6.1 en KDE Neon
Avatar de Usuario
gustavodiaz00
 
Mensajes: 53
Registrado: Mié Abr 26, 2017 1:29 am
Ubicación: Argentina, San Nicolás de los Arroyos

Re: Tooltip en estos hyper enlaces ?

Notapor mauricio » Lun Dic 02, 2019 4:39 am

Creo que no es posible agregar un Tooltip
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5991
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX

Re: Tooltip en estos hyper enlaces ?

Notapor arfgh » Mar Dic 03, 2019 8:31 am

no es posible ? eso si que va a ser raro....
gustavodiaz00 esto es base.
OpenOffice última versión, Windows XP X64, Windows 8.1 X64, Mageia Linux x64
arfgh
 
Mensajes: 16
Registrado: Mar Mar 05, 2013 4:40 pm

Re: Tooltip en estos hyper enlaces ?

Notapor mauricio » Mar Dic 03, 2019 5:15 pm

por que raro?, LibreOffice no es una aplicación web...
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5991
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX

Re: Tooltip en estos hyper enlaces ?

Notapor arfgh » Vie Dic 06, 2019 3:17 pm

es raro porque en una definición de hyperlink normal, sí que podemos poner un tooltip... por eso me parece raro que la api de AOO no tenga algo para ponerlo de esta manera..
OpenOffice última versión, Windows XP X64, Windows 8.1 X64, Mageia Linux x64
arfgh
 
Mensajes: 16
Registrado: Mar Mar 05, 2013 4:40 pm


Volver a Macros y API UNO

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado