MACRO VBA pour numérotation d'image Word

Marsh Posté le 27-07-2011 à 22:13:26

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 image)

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

Code :

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

Marsh Posté le 27-07-2011 à 22:13:26

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *