[WD-2007] MACRO [VBA] pour numérotation d'image

[buse33]

Bonsoir,

j'ai commencé à écrire un script pour une macro sous word et la je bloque sur un truc...
en fait j'ai besoin que le texte "PHOTOGRAPHIE N°" apparaisse au dessus de chaque images aligné a droite. ( et si possible qu'il y est une numérotation automatique de chaque images..PHOTOGRAPHIE N°1, PHOTOGRAPHIE N°2 etc)

je vous met mon début de code...en espérant que vous pussiez m'aider!
ce serait vraiment simpa de votre part!

Code :

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
 
Sub InsertionImages()
 
'Macro qui permet une insertion d'une série d'images d'un répertoire donné,
'Avec une ligne blanche entre chaque image
 
Dim Repertoire As String
Dim Extension As String
Dim Fichier As String
 
'Saisie du nom du répertoire
Repertoire = InputBox("Chemin complet du répertoire (\ à la fin)", "Répertoire", "D:\Mes images")
'Saisie du type d'extension
Extension = InputBox("Type de fichier (sans le point, ex : jpg, png, bmp)", "Type de fichier", "jpg")
 
'Récupération du premier fichier du répertoire
Fichier = Dir(Repertoire & "*" & Extension, vbDirectory)
 
Do While Fichier <> ""
    i = i + 1
    'Insertion de l'image
    Set objShape = Selection.InlineShapes.AddPicture(FileName:=Repertoire & Fichier)
    With objShape
        .LockAspectRatio = msoTrue
        If .Width > .Height Then
            .Width = 400
        Else
            .Height = 300
        End If
    End With
    'Insertion d'une ligne vide
    Selection.TypeParagraph
    Selection.TypeText Text:="PHOTOGRAPHIE N°"
    'Insertion d'une ligne vide
    Selection.TypeParagraph
    'Récupération du prochain fichier du répertoire
    Fichier = Dir
 
Loop
 
End Sub

[Heureux-oli]

Salut,

Je comprend pas le besoin de le faire en code ?

Word peut mettre une légende pour chaque objet graphique et cette légende est numérotée.

[buse33]

Envoyé par Heureux-oli

Salut,

Je comprend pas le besoin de le faire en code ?

Word peut mettre une légende pour chaque objet graphique et cette légende est numérotée.

Bonjour,

car cette légende automatique pour objet graphique ne comprend pas les images .jpg ( seulement les images bipmat,tableaux etc)

j'ai réussi à faire en sorte que la légende "photographie N°" s'aligne a droite de l'image, il ne me manque plus que la numérotation automatique de chaque image!

[Heureux-oli]

Envoyé par buse33

Bonjour,

car cette légende automatique pour objet graphique ne comprend pas les images .jpg ( seulement les images bipmat,tableaux etc)

Salut,

Aurais-tu une version spéciale de Word ?
Chez moi, il n'y a pas de filtre pour les légendes.

Tu peux toujours utuliser un champ séquence.
L'iconvénient de numéroter en VBA, c'est que si l'ordre change, la numérotation devient erronée.