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

Метод PictureFormat.ReplaceEx (Publisher)

  • Статья

Заменяет указанный рисунок, при необходимости подгонив замещающий рисунок к рамке или заполняя рамку. Возвращает значение Nothing.

Синтаксис

expression. ReplaceEx (PathName, InsertAs, Fit)

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

Параметры

Имя Обязательный или необязательный Тип данных Описание
PathName Обязательный String Имя и путь к файлу, которым требуется заменить указанный рисунок.
InsertAs Необязательный PbPictureInsertAs Способ вставки файла рисунка в документ: связанный или внедренный. Может быть одной из констант PbPictureInsertAs , объявленных в библиотеке типов издателя Майкрософт; значение по умолчанию — pbPictureInsertAsOriginalState.
Подходят Необязательный PbPictureInsertFit Указывает, подходит ли вставленный рисунок к рамке или заполняет рамку.

Пример

В следующем макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать метод ReplaceEx для замены всех рисунков в публикации другим рисунком. В этом примере замещающий рисунок соответствует рамкам предыдущих рисунков, но вместо pbFit можно использовать pbFill, если вы хотите заполнить кадры. В этом примере также исключаются изображения на главных страницах.

Перед выполнением этого макроса замените replacementPicturePath путем к рисунку, который вы хотите использовать в качестве замены.

Public Sub ReplaceEx_Example()
    
    Dim pubPage As Page
    Dim pubShape As Shape
    Dim strReplacePicturePath As String
    
    strReplacePicturePath = replacementPicturePath
    
    For Each pubPage In ActiveDocument.Pages
        
        For Each pubShape In pubPage.Shapes
            
            If pubShape.Type = pbPicture Then

                pubShape.PictureFormat.ReplaceEx strReplacePicturePath, pbPictureInsertAsOriginalState, pbFit

            End If
        
        Next pubShape
        
    Next pubPage
            
End Sub

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

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