Compartir a través de

Método PictureFormat.ReplaceEx (Publisher)

Reemplaza la imagen especificada, opcionalmente, ajustando la imagen de reemplazo al marco o rellenar el marco. Devuelve el valor Nothing.

Sintaxis

expresión. ReplaceEx (PathName, InsertAs, Fit)

expresión Variable que representa un objeto PictureFormat .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
PathName Obligatorio String Nombre y ruta de acceso del archivo con el que desea reemplazar la imagen especificada.
InsertAs Opcional PbPictureInsertAs Modo en que se desea insertar el archivo de imagen en el documento: vinculado o incrustado. Puede ser una de las constantes PbPictureInsertAs declaradas en la biblioteca de tipos de Microsoft Publisher; el valor predeterminado es pbPictureInsertAsOriginalState.
Fit Opcional PbPictureInsertFit Si la imagen insertada se ajusta al marco o rellena el marco.

Ejemplo

El siguiente ejemplo de Microsoft Visual Basic para aplicaciones (VBA) muestra cómo utilizar el método ReplaceEx para reemplazar todas las imágenes en una publicación con una imagen distinta. En este ejemplo, la imagen de reemplazo se ajusta a los marcos de las imágenes anteriores, pero puede usar pbFill en lugar de pbFit si desea rellenar los marcos en su lugar. En este ejemplo se excluyen también las imágenes en las páginas maestras.

Antes de ejecutar esta macro, reemplace por replacementPicturePath la ruta de acceso a la imagen que desea usar como reemplazo.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.

  • Last updated on