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"



ChDir Directory     FName = Dir(FType)

If FName <> "" 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

Do While FName <> ""

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             Selection.InsertRows 1             Selection.EndKey Unit:=wdLine             Selection.MoveRight Unit:=wdCharacter, Count:=1             Selection.InsertRows 1             Selection.HomeKey Unit:=wdLine             ColCount = 1         End If         FName = Dir     Loop 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 (8023) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365. Vous pouvez trouver une version de cette astuce pour le ancienne interface de menu de Word ici:

lien: / word-Printing_Graphic_Thumbnails [Impression de miniatures graphiques].