Plate.Delete 方法 (Publisher)
删除指定的印版。
语法
表达式。删除 (PlateReplaceWith、 ReplaceTint)
表达 一个代表 Plate 对象的变量。
参数
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
PlateReplaceWith | 可选 | Variant | 印版 。 要替换已删除的印版与印版。 |
ReplaceTint | 可选 | PbReplaceTint | 指定如何替换已删除的印版中的颜色。 可以是 PbReplaceTint 常量之一。 |
备注
如果尝试删除 Plate 集合中的最后一个印 版 ,则返回“权限被拒绝”。
如果指定 pbReplaceTintMaintainLuminosity 常量,则根据已删除的和替换的印版所表示的墨迹的亮度值计算每种颜色中替换墨迹的百分比。 Publisher 执行以下计算,其中 L1 是已删除的墨迹亮度, L2 是替换墨迹亮度:
(100-L1) / (100-L2)
例如,红色墨迹的亮度为 30,黑色墨迹的亮度为 0。 假定在出版物中的红色墨迹印版替换黑色墨迹印版。 如果指定 了 pbReplaceTintKeepTints ,Publisher 将执行以下计算,以确定每种红色的黑色墨迹的百分比:
(100-30) / (100-0)
红色的 100%的颜色应为 70%黑色;一种颜色,是红色的 50%应为 35%黑色,等等。
如果指定 pbReplaceTintKeepTints 常量,则替换墨迹中的每种颜色的百分比是已删除的颜色相同。 例如,如果红色墨迹将被替换为黑色油墨,100%色调,红色的被被 100%黑色,50%与 50%黑色等红色色调。
您不能指定 pbReplaceTintMaintainLuminosity 或 pbReplaceTintUseDefault 常量,如果更换印版表示墨迹的发光度高 (即是亮) 比已删除的印版。 这是因为较浅的墨迹不能打印在 100% 以上,因此它将无法与较深的墨迹的亮度相匹配。
示例
以下示例循环访问活动出版物的印版集合,确定哪些印版表示出版物中未使用的墨迹,并删除它们。 此示例假定至少有一个印版正在使用, (Delete 方法返回“Permission Denied”(如果尝试删除集合中的最后一个印版) )。
Sub DeleteUnusedInks()
Dim intCount As Integer
With ActiveDocument.Plates
For intCount = .Count To 1 Step -1
With .Item(intCount)
If .InUse = False Then
Debug.Print "Name: " & .Name
.Delete
End If
End With
Next
End With
End Sub
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。