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"



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

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 (8023) si applica a Microsoft Word 2007, 2010, 2013, 2016, 2019 e Word in Office 365. Puoi trovare una versione di questo suggerimento per vecchia interfaccia del menu di Word qui:

Stampa di miniature grafiche.