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"



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

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 textos más popular del mundo). Este consejo (8023) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365. Puede encontrar una versión de este consejo para interfaz de menú anterior de Word aquí:

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