Se lavori molto con la grafica, probabilmente conosci già il termine “miniature”. Queste sono versioni più piccole della tua grafica, stampate su una singola pagina, che ti permettono di avere una “vista dall’alto” di tutta la tua grafica. Molti programmi di grafica e desktop publishing includono una funzione di anteprima che consente di stampare automaticamente la panoramica. Sfortunatamente, Word non include questa funzionalità, ma puoi aggiungerla con una macro. La seguente macro VBA crea una serie di immagini in miniatura dal contenuto di una singola directory:

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 questa macro, tutto ciò che devi fare è cambiare la riga specificando la variabile Directory per riflettere la directory in cui sono memorizzati i tuoi grafici. Puoi anche cambiare la specifica del file grafico cambiando l’assegnazione di FType (attualmente è impostato per restituire tutti i file JPG nella directory). Quando si esegue questa macro, viene creato un nuovo documento e la macro inizia a creare una tabella con cinque colonne e tuttavia sono necessarie molte righe per stampare la grafica. La macro stamperà circa 40 miniature su un pezzo di carta, a seconda delle impostazioni utilizzate nel modello predefinito.

C’è un avvertimento nell’usare questa macro: dovresti essere consapevole che le dimensioni del tuo documento cresceranno molto, molto velocemente. Mentre la grafica viene mostrata in una piccola dimensione (miniatura) nel documento, dietro le quinte la grafica viene mantenuta alla sua dimensione intera. Se si elaborano moltissime immagini grafiche, le dimensioni del documento potrebbero diventare poco maneggevoli e si potrebbero ottenere tempi di risposta molto lenti dal sistema.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (116) si applica a Microsoft Word 97, 2000, 2002 e 2003. È possibile trovare una versione di questo suggerimento per l’interfaccia a nastro di Word (Word 2007 e più tardi) qui:

Stampa di miniature grafiche.