Si trabaja bastante con gráficos, probablemente ya esté familiarizado con el término «miniaturas». Estas son versiones más pequeñas de sus gráficos, impresas en una sola página, que le permiten obtener una «vista de pájaro» de todos sus gráficos. Muchos programas de gráficos y programas de autoedición incluyen una función de miniatura que le permite imprimir automáticamente su descripción general. Desafortunadamente, Word no incluye esta característica, pero puede agregarla con una macro. La siguiente macro de VBA crea un conjunto de imágenes en miniatura a partir del contenido de un solo directorio:

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

En esta macro, todo lo que necesita hacer es cambiar la línea que especifica la variable Directory para reflejar el directorio en el que se almacenan sus gráficos. También puede cambiar la especificación del archivo gráfico cambiando la asignación de FType (actualmente está configurado para devolver todos los archivos JPG en el directorio). Cuando ejecuta esta macro, se crea un nuevo documento y la macro comienza a construir una tabla con cinco columnas y cuantas filas sean necesarias para imprimir sus gráficos. La macro imprimirá alrededor de 40 miniaturas en una hoja de papel, dependiendo de la configuración que use en su plantilla predeterminada.

Hay una advertencia al utilizar esta macro: debe tener en cuenta que el tamaño de su documento aumentará muy, muy rápido. Si bien los gráficos se muestran en un tamaño pequeño (miniatura) en el documento, detrás de escena los gráficos se mantienen en su tamaño completo. Si tiene muchos gráficos en proceso, entonces el tamaño del documento puede volverse difícil de manejar y podría terminar con tiempos de respuesta muy lentos de su sistema.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (116) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Printing_Graphic_Thumbnails [Impresión de miniaturas gráficas].