Compartilhar via

PictureFormat.ReplaceEx method (Publisher) (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 predefinido é pbPictureInsertAsOriginalState.
Fit Opcional PbPictureInsertFit Se a imagem inserida é adequada à moldura ou se preenche a moldura.

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 esta macro, substitua replacementPicturePath pelo caminho para a imagem que pretende utilizar 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.

  • Last updated on