bmxeur33 | 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
|
|
