グラフィックをかなり使用している場合は、おそらく「サムネイル」という用語に既に精通しているでしょう。これらは、1ページに印刷されたグラフィックの小さいバージョンであり、すべてのグラフィックの「鳥瞰図」を取得できます。多くのグラフィックプログラムやデスクトップパブリッシングプログラムには、概要を自動的に印刷できるサムネイル機能が含まれています。残念ながら、Wordにはこの機能は含まれていませんが、マクロを使用してこのような機能を追加できます。次のVBAマクロは、単一のディレクトリのコンテンツからサムネイル画像のセットを作成します。

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

このマクロでは、グラフィックが保存されているディレクトリを反映するようにDirectory変数を指定する行を変更するだけです。 FTypeの割り当てを変更して、グラフィックファイルの仕様を変更することもできます（現在、ディレクトリ内のすべてのJPGファイルを返すように設定されています）。このマクロを実行すると、新しいドキュメントが作成され、マクロは5列のテーブルの作成を開始しますが、グラフィックを印刷するには多くの行が必要です。デフォルトのテンプレートで使用する設定に応じて、マクロは1枚の紙に約40個のサムネイルを印刷します。

このマクロを使用する場合は注意が必要です。ドキュメントのサイズが非常に速く大きくなることに注意してください。グラフィックはドキュメント内で小さい（サムネイル）サイズで表示されますが、舞台裏ではグラフィックはフルサイズで維持されます。処理中のグラフィックがたくさんある場合、ドキュメントサイズが扱いにくくなり、システムからの応答時間が非常に遅くなる可能性があります。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ wordribbon-WordTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（8023）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス：

link：/ word-Printing_Graphic_Thumbnails [グラフィックサムネイルの印刷]。