Plate.Delete 方法 (Publisher)

會刪除指定的分色板。

語法

運算式。刪除 (PlateReplaceWith、 ReplaceTint)

表達 代表 Plate 物件的變數。

參數

名稱	必要/選用	資料類型	描述
PlateReplaceWith	選用	Variant	分色板 。 用來取代已刪除的分色板分色板。
ReplaceTint	選用	PbReplaceTint	指定如何取代已刪除分色板中的色彩。 可以為其中一個 PbReplaceTint 常數。

註解

如果您嘗試刪除 Plates 集合中的最後一個分色板，則會傳回「許可權遭拒」。

如果指定 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 方法會傳回「許可權遭拒」。

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 支援與意見反應。