Печать графических эскизов

Если вы немного работаете с графикой, вы, вероятно, уже знакомы с термином «эскизы». Это уменьшенные версии вашей графики, напечатанные на одной странице, которые позволяют вам видеть всю вашу графику «с высоты птичьего полета». Многие графические программы и настольные издательские программы включают функцию эскизов, которая позволяет автоматически распечатать обзор. К сожалению, 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  "" Затем Documents.Add ActiveDocument.Tables.Add Range: = Selection.Range, NumRows: = 1  , _ NumColumns: = 5 Selection.Tables (1) .Select Selection.Cells.HeightRule = wdRowHeightAuto с Selection.Rows .Alignment = wdAlignRowCenter .AllowBreakAcrossPages = False .SetLeftIndent LeftIndent: = InchesToPoPo  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.  Selection.Font .Name = "Arial" .Size = 10. Полужирный шрифт = True End With  Selection.TypeText Текст: = Mid $ (FName, Len (Directory) + 2) Selection.MoveRight Unit: = wdCharacter, Count: = 1 ColCount = ColCount + 1 Если ColCount = 6, то 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 LoopEnd Sub 

В этом макросе все, что вам нужно для этого нужно изменить строку, определяющую переменную Directory, чтобы отразить каталог, в котором хранится ваша графика. Вы также можете изменить спецификацию графического файла, изменив назначение FType (в настоящее время он настроен на возврат всех файлов JPG в каталоге). Когда вы запускаете этот макрос, создается новый документ, и макрос начинает строить таблицу с пятью столбцами и тем количеством строк, которое необходимо для печати вашей графики. Макрос напечатает около 40 эскизов на листе бумаги, в зависимости от настроек, которые вы используете в шаблоне по умолчанию.

При использовании этого макроса есть предостережение – вы должны знать, что ваш размер документа будет расти очень и очень быстро. В то время как графика отображается в документе в небольшом размере (эскиз), за кулисами графика сохраняется в полном размере. Если у вас много-много обрабатываемой графики, размер документа может стать слишком большим, и вы можете получить очень медленное время отклика от вашей системы.

Оцените статью
Frestage.ru
Добавить комментарий