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

Статья
04/07/2023

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

Синтаксис

expression. EffectiveResolution

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

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

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

Замечания

Эффективное разрешение рисунка обратно пропорционально масштабу, при котором печатается рисунок. Чем больше масштабирование, тем ниже эффективное разрешение. Например, предположим, что изображение размером 4 на 4 дюйма было первоначально сканировано с разрешением 300 точек на дюйм. Если это изображение масштабируется до 2 дюймов на 2 дюйма, его эффективное разрешение составляет 600 точек на дюйм.

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

Используйте свойства HorizontalScale и VerticalScale для определения масштабирования рисунка.

Пример

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

Sub ListLowResolutionPictures() 
 Dim pgLoop As Page 
 Dim shpLoop As Shape 
 
 For Each pgLoop In ActiveDocument.Pages 
 For Each shpLoop In pgLoop.Shapes 
 
 If shpLoop.Type = pbPicture Or shpLoop.Type = pbLinkedPicture Then 
 
 With shpLoop.PictureFormat 
 If .IsEmpty = msoFalse Then 
 If .EffectiveResolution < 100 Then 
 Debug.Print .Filename 
 Debug.Print "Page " & pgLoop.PageNumber 
 Debug.Print "Resolution in publication: " & .EffectiveResolution 
 End If 
 End If 
 End With 
 
 End If 
 
 Next shpLoop 
 Next pgLoop 
 
End Sub

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

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

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