PictureFormat.Recolor 方法 (Publisher)

  • 项目

更改出版物中图片的颜色。

语法

表达式。重新着色 (Color、 LeaveBlackPartsBlack)

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

参数

名称 必需/可选 数据类型 说明
Color 必需 ColorFormat 用于重新着色的颜色。
LeaveBlackPartsBlack 必需 MsoTriState 如此 如果以黑色的原始图片的所有部分都都应保留为黑色。

备注

重新着色方法对应于“重新着色图片”对话框中可用的选项， (格式菜单“>图片>重新着色”) 。

示例

下面的 Microsoft Visual Basic for Applications (VBA) 宏显示如何使用 重新着色 方法来更改图片的颜色。 它 recolors 出版物第一页上的 Shapes 集合中的第一个形状。 之后运行的代码，可以使用 RestoreOriginalColors 方法恢复原始的颜色。

为使此示例正常运行，要重新着色的形状必须是图片或代表图片的 OLE 对象。

Public Sub Recolor_Example() 
 
 Dim pubPictureFormat As Publisher.PictureFormat 
 Dim pubShape As Publisher.Shape 
 Dim pubColorFormat As Publisher.ColorFormat 
 
 Set pubShape = ThisDocument.Pages(1).Shapes(1) 
 
 Set pubPictureFormat = pubShape.PictureFormat 
 Set pubColorFormat = pubShape.Fill.BackColor 
 
 pubPictureFormat.Recolor pubColorFormat, msoTrue 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。