Página 1 de 1
Tooltip en estos hyper enlaces ?
Publicado: Vie Nov 29, 2019 12:32 am
por 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 ?
Re: Tooltip en estos hyper enlaces ?
Publicado: Dom Dic 01, 2019 10:37 pm
por 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
Re: Tooltip en estos hyper enlaces ?
Publicado: Lun Dic 02, 2019 4:39 am
por mauricio
Creo que no es posible agregar un Tooltip
Re: Tooltip en estos hyper enlaces ?
Publicado: Mar Dic 03, 2019 8:31 am
por arfgh
no es posible ? eso si que va a ser raro....
gustavodiaz00 esto es base.
Re: Tooltip en estos hyper enlaces ?
Publicado: Mar Dic 03, 2019 5:15 pm
por mauricio
por que raro?, LibreOffice no es una aplicación web...
Re: Tooltip en estos hyper enlaces ?
Publicado: Vie Dic 06, 2019 3:17 pm
por 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..
Re: Tooltip en estos hyper enlaces ?
Publicado: Mar Dic 17, 2019 3:44 pm
por arfgh
alguien tiene alguna remota idea de por dónde tirar para lograr esto ?
Re: Tooltip en estos hyper enlaces ?
Publicado: Mar Dic 17, 2019 5:04 pm
por mauricio
si lo que quieres es definir un tooltip, ya te di la respuesta, no es posible.
Re: Tooltip en estos hyper enlaces ?
Publicado: Dom Ene 12, 2020 8:47 pm
por 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í ?