Свойство PictureFormat.OriginalResolution (Publisher)

Статья
04/07/2023

Возвращает значение Long , представляющее разрешение ,в точках на дюйм (точек на дюйм), при котором был первоначально сканирован связанный рисунок. Только для чтения.

Синтаксис

expression. OriginalResolution

Выражение Переменная, представляющая объект PictureFormat .

Возвращаемое значение

Длинное целое

Замечания

Это свойство применяется только к связанным изображениям. Возвращает значение "Отказано в разрешении" для фигур, представляющих внедренные или вставленные изображения.

Используйте одно из следующих свойств, чтобы определить, представляет ли фигура связанное изображение:

Свойство Type объекта Shape
Свойство IsLinked объекта PictureFormat

Используйте свойство EffectiveResolution , чтобы определить разрешение, с которым изображение или объект OLE печатается в указанном документе.

Пример

В следующем примере проверяется каждое изображение в активной публикации и возвращается выбранные свойства изображения для связанных рисунков.

Dim pgLoop As Page 
Dim shpLoop As Shape 
 
For Each pgLoop In ActiveDocument.Pages 
 For Each shpLoop In pgLoop.Shapes 
 If shpLoop.Type = pbLinkedPicture Then 
 
 With shpLoop.PictureFormat 
 
 Debug.Print "File Name: " & .Filename 
 Debug.Print "Resolution in Publication: " & .EffectiveResolution & " dpi" 
 Debug.Print "Original Resolution: " & .OriginalResolution & " dpi" 
 
 End With 
 End If 
 Next shpLoop 
Next pgLoop

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через