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

Статья
04/07/2023

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

Синтаксис

expression. Горизонтальное масштабирование

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

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

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

Замечания

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

Используйте свойство 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 = pbPicture Or shpLoop.Type = pbLinkedPicture Then 
 
 With shpLoop.PictureFormat 
 
 If .IsEmpty = msoFalse Then 
 Debug.Print "File Name: " & .Filename 
 Debug.Print "Resolution in Publication: " & .EffectiveResolution & " dpi" 
 Debug.Print "Horizontal Scaling: " & .HorizontalScale & "%" 
 Debug.Print "Height in publication: " & .Height & " points" 
 Debug.Print "Vertical Scaling: " & .VerticalScale & "%" 
 Debug.Print "Width in publication: " & .Width & " points" 
 End If 
 
 End With 
 End If 
 Next shpLoop 
Next pgLoop

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

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

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