Si vous travaillez un peu avec des graphiques, vous connaissez probablement déjà le terme «vignettes». Ce sont des versions plus petites de vos graphiques, imprimées sur une seule page, qui vous permettent d’avoir une «vue à vol d’oiseau» de tous vos graphiques. De nombreux programmes graphiques et programmes de PAO incluent une fonction de vignette qui vous permet d’imprimer automatiquement votre aperçu. Malheureusement, Word n’inclut pas cette fonctionnalité, mais vous pouvez ajouter une telle fonctionnalité avec une macro. La macro VBA suivante crée un ensemble d’images miniatures à partir du contenu d’un seul répertoire:

Sub Thumbnails()

Dim Directory As String    Dim FType As String    Dim FName As String    Dim ColCount As Integer, J As Integer

Directory = "d:\temp"

FType = "*.jpg"



With Application.FileSearch       .FileName = FType       .LookIn = Directory       .Execute       If .FoundFiles.Count > 0 Then          Documents.Add          ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, _              NumColumns:=5          Selection.Tables(1).Select          Selection.Cells.HeightRule = wdRowHeightAuto          With Selection.Rows             .Alignment = wdAlignRowCenter             .AllowBreakAcrossPages = False             .SetLeftIndent LeftIndent:=InchesToPoints(0), RulerStyle:= _                 wdAdjustNone          End With          Selection.HomeKey Unit:=wdLine          ColCount = 1       End If

For J = 1 To .FoundFiles.Count          FName = .FoundFiles(J)

Selection.InlineShapes.AddPicture FileName:=FName, _             LinkToFile:=False, SaveWithDocument:=True          Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter          Selection.TypeParagraph          With Selection.Font             .Name = "Arial"

.Size = 10             .Bold = True          End With          Selection.TypeText Text:=Mid$(FName, Len(Directory) + 2)

Selection.MoveRight Unit:=wdCharacter, Count:=1          ColCount = ColCount + 1          If ColCount = 6 Then             If J <> .FoundFiles.Count Then                Selection.InsertRows 1                Selection.EndKey Unit:=wdLine                Selection.MoveRight Unit:=wdCharacter, Count:=1                Selection.InsertRows 1                Selection.HomeKey Unit:=wdLine                ColCount = 1             End If          End If       Next J    End With End Sub

Dans cette macro, tout ce que vous avez à faire est de changer la ligne spécifiant la variable Directory pour refléter le répertoire dans lequel vos graphiques sont stockés. Vous pouvez également modifier la spécification du fichier graphique en modifiant l’affectation de FType (actuellement, il est configuré pour renvoyer tous les fichiers JPG du répertoire). Lorsque vous exécutez cette macro, un nouveau document est créé et la macro commence à créer une table avec cinq colonnes et cependant de nombreuses lignes sont nécessaires pour imprimer vos graphiques. La macro imprimera environ 40 vignettes sur une feuille de papier, selon les paramètres que vous utilisez dans votre modèle par défaut.

Il y a une mise en garde à l’utilisation de cette macro: vous devez être conscient que la taille de votre document augmentera très, très rapidement. Alors que les graphiques sont affichés dans une petite taille (miniature) dans le document, dans les coulisses, les graphiques sont conservés à leur taille réelle. Si vous avez beaucoup de graphiques en cours de traitement, la taille du document peut devenir lourde et vous pourriez vous retrouver avec des temps de réponse très lents de votre système.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (116) s’applique à Microsoft Word 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban de Word (Word 2007 et plus tard) ici:

lien: / wordribbon-Printing_Graphic_Thumbnails [Impression des miniatures graphiques].