FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

Nombre d'auteurs : 10, nombre de questions : 359, dernière mise à jour : 15 juillet 2017 Ajouter une question

Bienvenue sur la FAQ, elle a été réalisée pour répondre aux questions concernant les suites bureautiques Apache OpenOffice (AOO) et LibreOffice (LibO).

Si vous souhaitez participer pour l'améliorer, pour proposer vos contributions ou si vous constatez des erreurs dans cette page, n'hésitez-pas !!! Participez.

Sommaire →Programmation OBasic →OBasic : Traitement de texte →Les images dans le traitement de texte (1)

Comment créer une planche contact dans Traitement de texte, à partir de toutes les images JPG d'un répertoire ?

Comment créer une planche contact dans Traitement de texte, à partir de toutes les images JPG d'un répertoire ?

Cette procédure Traitement de texte permet de choisir un répertoire à partir d'une boîte de dialogue. Toutes les images .jpg sont ensuite affichées en miniature dans le document.

Remarque :
La procédure est sensible à la casse: jpg n'est pas identique à JPG.

Code vb :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub CreationPlancheContact_Writer  
  
'Testé avec WinXP et OOo 2.0.3  
  
Dim sGraphicURL As String , Chemin As String , NextFile as String  
Dim oDrawPage As Object , oGraphic As Object  
Dim oFolderDialog as Object, oUcb as Object  
Dim choix As Integer 
Dim Taille as new com.sun.star.awt.Size  
Dim Emplacement as new com.sun.star.awt.Point  
Dim oLeft As Double , oTop as Double 
  
oCurseur = ThisComponent.getCurrentController().getViewCursor() 
  
'--- Affiche la boîte de dialogue pour sélectionner le répertoire contenant les fichiers .jpg ---  
oFolderDialog = CreateUnoService("com.sun.star.ui.dialogs.FolderPicker")  
oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")  
  
choix = oFolderDialog.Execute()  
If choix = 1 Then Chemin=ConvertFromUrl(oFolderDialog.getDirectory())  
  
'Boucle sur toutes les images du répertoire cible 
'Attention la procédure est sensible à la casse 
'(jpg n'est pas identique à JPG)  
NextFile=Dir(Chemin & "\*.JPG",0)  
  
Do While Len(NextFile) >0  
  
  sGraphicURL =ConvertToURL(Chemin & "\" & NextFile)  
  
  oDrawPage =ThisComponent.getDrawpage()  
  oGraphic =ThisComponent.createInstance("com.sun.star.drawing.GraphicObjectShape")  
  oGraphic.GraphicURL =sGraphicURL  
  oDrawPage.add(oGraphic)  
  
  Taille.width = 3000 'Dimension horizontale image  
  Taille.height = 3000 'Dimension verticale image  
  oGraphic.setsize(Taille)  
  Emplacement.X = oLeft  
  Emplacement.Y = oTop  
  oGraphic.setposition(Emplacement)  
  oGraphic.AnchorType = com.sun.star.text.TextContentAnchorType.AS_CHARACTER 
  
  NextFile=Dir()  
Loop  
End Sub

Mis à jour le 26 août 2013 SilkyRoad

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça

Titre de la question

Réponse à la question

Liens sous la question

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2024 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.