Bonjour,
Je souhaite via VB Express 2005 insérer un hyperlien dans la cellule d'un
tableau
j'utilise pour ce la la méthode suivante :
Sub InsererHyperLienDansTableauParPosition(ByVal sNomTableau As String, ByVal
sLigneCellule As Integer, ByVal sColonneCellule As Integer, ByVal
sTexteAAfficher As String, ByVal sURL As String)
Dim oMonTexte As Object
Dim oMonCurseur As Object
Dim oMonTableau As Object
Dim oMaCellule As Object
Dim sDocument As String
Dim Arguments(4) As Object
sDocument = ConvertToUrl(sURL)
If oDocument.TextTables.hasByName(sNomTableau) Then
oMonTexte = oDocument.Text
oMonCurseur = oMonTexte.CreateTextCursor
oMonCurseur.gotoNextParagraph(False)
oMonCurseur.gotoNextParagraph(False)
oMonTableau = oDocument.TextTables.getByName(sNomTableau)
oMaCellule = oMonTableau.getCellByPosition(sColonneCellule - 1, sLigneCellule -
1)
oMaCellule.string = " - "
oSel = oDocument.CurrentController.Frame
Arguments(0) = MakePropertyValue("Hyperlink.Text", sTexteAAfficher)
Arguments(1) = MakePropertyValue("Hyperlink.URL", sDocument)
Arguments(2) = MakePropertyValue("Hyperlink.Target", "")
Arguments(3) = MakePropertyValue("Hyperlink.Name", sTexteAAfficher)
Arguments(4) = MakePropertyValue("Hyperlink.Type", 1)
oDispatcher.executeDispatch(oSel, ".uno:SetHyperlink", "", 0, Arguments)
End If
End Sub
Mon hyperlien est bien insérer mais e dehors du tableau je pense qu'il sagit
d'une erreur de positionnement du curseur comment corriger ce bout de code ?
Merci d'avance pour votre aide précieuse
Bon Dev
Cezame
