PictureFormat.ReplaceEx 方法 (Publisher)

  • 项目

替换指定的图片中，可以选择管接头替换图片框架或填充框架。 不返回 任何内容 。

语法

表达式。ReplaceEx (PathName、 InsertAs、 Fit)

表达 一个代表 PictureFormat 对象的变量。

参数

名称 必需/可选 数据类型 说明
PathName 必需 String 要用来替换指定图片的文件的名称和路径。
InsertAs 可选 PbPictureInsertAs 希望图片文件插入文档的方式：链接或嵌入。 可以是在 Microsoft 发布服务器类型库中声明的 PbPictureInsertAs 常量之一;默认值为 pbPictureInsertAsOriginalState。
Fit 可选 PbPictureInsertFit 插入的图片是否适合框架或填充框架。

示例

下面的 Microsoft Visual Basic for Applications (VBA) 宏显示如何使用 ReplaceEx方法来使用其他图片替换出版物中的所有图片。 在此示例中，替换图片调整为帧的前一个图片，但如果要改为填充框架，您可以使用 pbFillpbFit的位置。 本例中还不包括在主页面上的图片。

在运行此宏之前，请将 替换为 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。