Tooltip en estos hyper enlaces ?

[arfgh]

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

	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 ?

[gustavodiaz00]

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

Código: Seleccionar todo

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

[mauricio]

Creo que no es posible agregar un Tooltip

[arfgh]

no es posible ? eso si que va a ser raro....
gustavodiaz00 esto es base.

[mauricio]

por que raro?, LibreOffice no es una aplicación web...

[arfgh]

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

[arfgh]

alguien tiene alguna remota idea de por dónde tirar para lograr esto ?

[mauricio]

si lo que quieres es definir un tooltip, ya te di la respuesta, no es posible.

[arfgh]

pero vamos a ver, es un hyperenlace, no se trata de definir un tooltip, ya que el hyperenlace ya tiene definido esa propiedad, no es así ?