Wenn Sie viel mit Grafiken arbeiten, kennen Sie den Begriff „Thumbnails“ wahrscheinlich bereits. Hierbei handelt es sich um kleinere Versionen Ihrer Grafiken, die auf einer einzigen Seite gedruckt sind und es Ihnen ermöglichen, alle Ihre Grafiken aus der Vogelperspektive zu betrachten. Viele Grafikprogramme und Desktop Publishing-Programme enthalten eine Miniaturansicht, mit der Sie Ihre Übersicht automatisch drucken können. Leider enthält Word diese Funktion nicht, aber Sie können eine solche Funktion mit einem Makro hinzufügen. Das folgende VBA-Makro erstellt eine Reihe von Miniaturbildern aus dem Inhalt eines einzelnen Verzeichnisses:

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

In diesem Makro müssen Sie lediglich die Zeile ändern, in der die Verzeichnisvariable angegeben ist, um das Verzeichnis wiederzugeben, in dem Ihre Grafiken gespeichert sind. Sie können die Grafikdateispezifikation auch ändern, indem Sie die Zuweisung von FType ändern (derzeit ist festgelegt, dass alle JPG-Dateien im Verzeichnis zurückgegeben werden). Wenn Sie dieses Makro ausführen, wird ein neues Dokument erstellt und das Makro beginnt mit der Erstellung einer Tabelle mit fünf Spalten. Es sind jedoch viele Zeilen erforderlich, um Ihre Grafiken zu drucken. Das Makro druckt ungefähr 40 Miniaturansichten auf ein Blatt Papier, abhängig von den Einstellungen, die Sie in Ihrer Standardvorlage verwenden.

Die Verwendung dieses Makros unterliegt einer Einschränkung: Sie sollten sich bewusst sein, dass Ihre Dokumentgröße sehr, sehr schnell zunimmt. Während die Grafiken im Dokument in einer kleinen Größe (Miniaturansicht) angezeigt werden, bleiben die Grafiken hinter den Kulissen in voller Größe erhalten. Wenn viele, viele Grafiken verarbeitet werden, kann die Dokumentgröße unhandlich werden und es kann zu sehr schleppenden Antwortzeiten auf Ihrem System kommen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (116) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Drucken von grafischen Thumbnails.