اگر کمی با گرافیک کار می کنید، احتمالاً قبلاً با اصطلاح "تصویرهای کوچک" آشنا هستید. این‌ها نسخه‌های کوچک‌تری از گرافیک‌های شما هستند که در یک صفحه چاپ می‌شوند و به شما امکان می‌دهند از تمام گرافیک‌های خود یک "نمای چشم پرنده" داشته باشید. بسیاری از برنامه‌های گرافیکی و برنامه‌های انتشار دسکتاپ دارای یک ویژگی تصویر کوچک هستند که به شما امکان می‌دهد نمای کلی خود را به‌طور خودکار چاپ کنید. متأسفانه 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: emp" 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 موجود در فهرست را برگرداند). وقتی این ماکرو را اجرا می کنید، یک سند جدید ایجاد می شود و ماکرو شروع به ساخت جدولی با پنج ستون و هر تعداد سطر برای چاپ گرافیک شما می کند. بسته به تنظیماتی که در قالب پیش‌فرض خود استفاده می‌کنید، ماکرو حدود 40 تصویر کوچک را روی یک تکه کاغذ چاپ می‌کند.
یک هشدار برای استفاده از این ماکرو وجود دارد - باید توجه داشته باشید که اندازه سند شما بسیار بسیار سریع رشد خواهد کرد. در حالی که گرافیک ها در اندازه کوچک (تصویر کوچک) در سند نشان داده می شوند، در پشت صحنه، گرافیک ها در اندازه کامل خود حفظ می شوند. اگر تعداد زیادی گرافیک در حال پردازش دارید، اندازه سند ممکن است سخت شود و ممکن است در نهایت با زمان پاسخ بسیار کندی از سیستم خود مواجه شوید.
