Método PictureFormat.ReplaceEx (Publisher)

Substitui a imagem especificada, opcionalmente, ajustando a imagem de substituição ao quadro ou preenchimento do quadro. Retornará Nothing.

Sintaxe

expressão. ReplaceEx (PathName, InsertAs, Fit)

Expressão Uma variável que representa um objeto PictureFormat .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
PathName	Obrigatório	String	O nome e o caminho do arquivo que substituirá a imagem especificada.
InsertAs	Opcional	PbPictureInsertAs	A maneira na qual você deseja inserir o arquivo da imagem no documento: vinculada ou incorporada. Pode ser uma das constantes PbPictureInsertAs declaradas na biblioteca de tipos do Microsoft Publisher; o valor padrão é pbPictureInsertAsOriginalState.
Fit	Opcional	PbPictureInsertFit	Se a imagem inserida é adequada ao quadro ou preenche o quadro.

Exemplo

Os seguintes Microsoft Visual Basic for Applications (VBA) macro mostra como usar o método ReplaceEx para substituir todas as imagens em uma publicação com uma imagem diferente. Neste exemplo, a imagem de substituição se ajusta a quadros das imagens anteriores, mas você pode usar pbFill no lugar de pbFit se você desejar preencher quadros em vez disso. Este exemplo também exclui imagens em páginas mestras.

Antes de executar essa macro, substitua replacementPicturePath pelo caminho para a imagem que você deseja usar como substituição.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.