Impresión Miniaturas Gráfico

August 1

Si usted trabaja con gráficos bastante, probablemente estará ya familiarizado con el término "miniaturas". Estas son versiones más pequeñas de sus gráficos, impresos 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 visión general. Desafortunadamente, Word no incluye esta característica, pero puede agregar una característica de este tipo con una macro. La siguiente macro VBA crea un conjunto de imágenes en miniatura de los contenidos de un solo directorio:

Miniaturas (Sub)
Dim Directorio As String
Dim FTYPE As String
Dim FName As String
Dim ColCount As Integer, J As Integer

Directorio = "d: \ temp"
FTYPE = "* .jpg"

Con Application.FileSearch
.FileName = FTYPE
.LookIn = Directorio
.Execute
Si .FoundFiles.Count> 0 Then
Documents.Add
ActiveDocument.Tables.Add Rango: = Selection.Range, NumRows: = 1, _
NúmeroColumnas: = 5
Selection.Tables (1) .Seleccionar
Selection.Cells.HeightRule = wdRowHeightAuto
Con Selection.Rows
.Alignment = WdAlignRowCenter
.AllowBreakAcrossPages = False
.SetLeftIndent LeftIndent: = InchesToPoints (0), RulerStyle: = _
wdAdjustNone
End With
Unidad Selection.HomeKey: = wdLine
ColCount = 1
End If

Para J = 1 Para .FoundFiles.Count
FName = .FoundFiles (J)
Selection.InlineShapes.AddPicture FileName: = FName, _
LinkToFile: = False, SaveWithDocument: = True
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.TypeParagraph
Con Selection.Font
.name = "Arial"
Clasifique = 10
.Bold = True
End With
Selection.TypeText Texto: = MID $ (FName, Len (Directorio) + 2)
Unidad Selection.MoveRight: = wdCharacter, Count: = 1
ColCount = ColCount + 1
Si ColCount = 6 Entonces
Si J <> Entonces .FoundFiles.Count
Selection.InsertRows 1
Unidad Selection.EndKey: = wdLine
Unidad Selection.MoveRight: = wdCharacter, Count: = 1
Selection.InsertRows 1
Unidad Selection.HomeKey: = wdLine
ColCount = 1
End If
End If
Siguiente J
End With
End Sub

En esta macro, todo lo que tiene que hacer es cambiar la línea que especifica la variable Directory para reflejar el directorio en el que sus gráficos se almacenan. También puede cambiar la especificación de archivo gráfico cambiando la asignación de FTYPE (actualmente se establece para devolver todos los archivos JPG en el directorio). Al ejecutar esta macro, se crea un nuevo documento y la macro se inicia la construcción de una tabla con cinco columnas y sin embargo muchas filas son necesarios para imprimir sus gráficos. La macro imprimir unos 40 o así miniaturas en un pedazo de papel, dependiendo de la configuración que utiliza en su plantilla predeterminada.

Hay una advertencia a la utilización de esta macro-usted debe ser consciente de que el tamaño del documento va a crecer muy, muy rápido. Mientras que los gráficos se muestran en una pequeña (thumbnail) de tamaño en el documento, detrás de las escenas de los gráficos se mantienen en su tamaño completo. Si usted tiene un montón y un montón de gráficos que se procesa, a continuación, el tamaño del documento puede llegar a ser difícil de manejar y que podría terminar con tiempos de respuesta muy lentos de su sistema.

WordTips es su fuente de formación de Microsoft Word rentable. (Microsoft Word es el procesador de textos más popular en el mundo.) Esta punta (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í: Impresión Miniaturas Gráficas.