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

Статья
04/07/2023

Возвращает константу PbImageFormat , представляющую формат изображения, определенный интерфейсом графического устройства Microsoft Windows (GDI+). Только для чтения.

Синтаксис

expression. ImageFormat

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

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

PbImageFormat

Замечания

Свойство ImageFormat применяется к исходному рисунку, а не к рисунку-заполнителю, если оно есть.

Значение свойства ImageFormat может быть одной из констант PbImageFormat , объявленных в библиотеке типов издателя Майкрософт.

Свойство ImageFormat указывает формат рисунка после импорта в среду Windows, а не исходный формат файла. Если формат файла изображения изначально не поддерживается операционной системой Windows, изображение преобразуется в аналогичный формат, который изначально поддерживается. В результате константы pbImageFormatCMYKJPEG, pbImageFormatDIB, pbImageFormatEMF, pbImageFormatGIF и pbImageFormatPICT возвращаются редко, если когда-либо.

Обратитесь к следующей таблице, чтобы ознакомиться с конкретными преобразованиями в формат файлов.

Формат файла	Возвращенная константой
.bmp, .dib, .gif, .pict	pbImageFormatPNG
.emf, .eps, .epfs	pbImageFormatWMF
CMYK .jfif, .jpeg, .jpg	pbImageFormatJPEG

Windows GDI+ — это часть операционной системы Windows и операционной системы Windows Server, которая предоставляет двумерную векторную графику, образы и типографику.

Пример

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

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 .ImageFormat = pbImageFormatJPEG Then 
 Debug.Print .Filename 
 End If 
 
 End If 
 End With 
 
 End If 
 
 Next shpLoop 
Next pgLoop

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

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

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