Bonjour Bernard,

Mon message précédent avait pour but de montrer certains emplacement au sein du document.

Pour ce qui concerne des manipulations via OOoBasic il est impératif de connaître des points d'entrée, des objets, des propriétés, etc. Aussi je ne saurai que te conseiller l'achat du livre de Bernard Marcelly et de Laurent Godard concernant la programmation sous OpenOffice. Voir à partir de ce lien : http://fr.openoffice.org/Documentation/Index.html

Les pages 439 et suivantes, l'annexe B en page 631 et suivantes apportent des éléments de réponses.

Par ailleurs, il est également nécessaire, pour appréhender ces éléments, d'utiliser l'excellent outil réalisé et mis à disposition par Laurent Godard dénommé Xray disponible à partir de : http://fr.openoffice.org/Documentation/How-to/Basic/XrayTool40_fr.sxw

Voici ce que l'on pourrait faire (à titre d'exemple) :

Sub RechercherImage() Dim monDocument As Object, maPage As Object, monImage As Object Dim titreBox As String, messageBox As String, nomImage As String monDocument = thisComponent ' Les images sont localisées dans une page spéciale dénommée ci-dessous maPage = monDocument.DrawPage ' saisi du nom de l'image à rechercher nomImage = InputBox("Nom de l'image : ","Recherche d'une image") ' appel de la fonction de recherche monImage = FindObjectByName(maPage, nomImage) if IsNull(monImage) then titreBox = "Recherche " & nomImage messageBox = "L'image " & nomImage & " n'a pas été trouvée." msgbox(messageBox,48,titreBox) else titreBox = "L'image " & nomImage & " a été trouvée." messageBox = "La propriété monImage.Name = " & monImage.Name & chr(10) messageBox = messageBox & "La propriété monImage.AlternativeText = " & monImage.AlternativeText & chr(10) 'messageBox = messageBox & "La propriété monImage.GraphicURL = " & monImage.GraphicURL msgbox(messageBox,,titreBox) monDocument.CurrentController.Select(monImage) end if End Sub

' retrouve un objet à partir de son nom Function FindObjectByName(unePage As Object, _ nomObj As String, Optional service As String) As Object Dim objX As Object, x As Long For x = 0 To unePage.Count - 1 objX = unePage(x) ' pour éviter les problèmes de casse on convertit la chaine en majuscules ' on pourrait ici tester également les approximations If Ucase(objX.Name) = Ucase(nomObj) Then if IsMissing(service) then FindObjectByName = objX ' objet trouvé Exit Function else if objX.supportsService(service) then FindObjectByName = objX ' objet trouvé Exit Function end if end if EndIf Next End Function

Bonne chance.

Bernard Gacongne a écrit :