Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1730 connectés 

  FORUM HardWare.fr
  Programmation
  Divers

  MACRO VBA pour numérotation d'image Word

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

MACRO VBA pour numérotation d'image Word

n°2091856
bmxeur33
Posté le 27-07-2011 à 22:13:26  profilanswer
 

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 :D

Code :
  1. Sub InsertionImages()
  2. 'Macro qui permet une insertion d'une série d'images d'un répertoire donné,
  3. 'Avec une ligne blanche entre chaque image
  4. Dim Repertoire As String
  5. Dim Extension As String
  6. Dim Fichier As String
  7. 'Saisie du nom du répertoire
  8. Repertoire = InputBox("Chemin complet du répertoire (\ à la fin)", "Répertoire", "D:\Mes images" )
  9. 'Saisie du type d'extension
  10. Extension = InputBox("Type de fichier (sans le point, ex : jpg, png, bmp)", "Type de fichier", "jpg" )
  11. 'Récupération du premier fichier du répertoire
  12. Fichier = Dir(Repertoire & "*" & Extension, vbDirectory)
  13. Do While Fichier <> ""
  14.     i = i + 1
  15.     'Insertion de l'image
  16.     Set objShape = Selection.InlineShapes.AddPicture(FileName:=Repertoire & Fichier)
  17.     With objShape
  18.         .LockAspectRatio = msoTrue
  19.         If .Width > .Height Then
  20.             .Width = 400
  21.         Else
  22.             .Height = 300
  23.         End If
  24.     End With
  25.     'Insertion d'une ligne vide
  26.     Selection.TypeParagraph
  27.     Selection.TypeText Text:="PHOTOGRAPHIE N°"
  28.     'Insertion d'une ligne vide
  29.     Selection.TypeParagraph
  30.     'Récupération du prochain fichier du répertoire
  31.     Fichier = Dir
  32.    
  33. Loop
  34. End Sub

mood
Publicité
Posté le 27-07-2011 à 22:13:26  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Divers

  MACRO VBA pour numérotation d'image Word

 

Sujets relatifs
VBA CATIA V5 - Récupérer la langue de l'interface utilisateur[Excel/VBA] Supprimer les 0 extérieurs dans une donnée alphanumérique
Focus sur une image ou gérer les ascenseursChamps Word /Date
[PPT/VBA] Changer tiret et couleurs de traits sur différents slides[Excel/VBA] Temps de calcul / Attente
Lien sur un background-image[Excel/VBA] Selectionner des cellules contenant une certaine valeur
Interface VBA/C++Macros VBA : Excel 2003 vs Excel 2007
Plus de sujets relatifs à : MACRO VBA pour numérotation d'image Word


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR