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

Статья
04/07/2023

Возвращает значение String , представляющее имя файла указанного рисунка или объекта OLE. Только для чтения.

Синтаксис

expression. Имени файла

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

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

Строка

Замечания

Для связанных рисунков и объектов OLE возвращаемая строка представляет полный путь и имя файла рисунка. Для внедренных изображений и объектов OLE возвращаемая строка представляет только имя файла.

Чтобы определить, представляет ли фигура связанное изображение, используйте свойство Type объекта Shape или свойство IsLinked объекта PictureFormat .

Пример

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

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 "Horizontal Scaling: " & .HorizontalScale & "%" 
 Debug.Print "Vertical Scaling: " & .VerticalScale & "%" 
 Debug.Print "File size in publication: " & .FileSize & " bytes" 
 
 End If 
 
 End With 
 End If 
 Next shpLoop 
Next pgLoop

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

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

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