Plate.Delete method (Publisher)

Deletes the specified plate.

Syntax

expression.Delete (PlateReplaceWith, ReplaceTint)

expression A variable that represents a Plate object.

Parameters

Remarks

Returns "Permission Denied" if you attempt to delete the last plate in the Plates collection.

If the pbReplaceTintMaintainLuminosity constant is specified, the percentage of replacement ink in each color is calculated based on the luminosity values of the inks represented by the deleted and replacement plates. Publisher performs the following calculation, where L1 is the deleted ink luminosity, and L2 is the replacement ink luminosity:

(100-L1)/(100-L2)

For example, red ink has a luminosity of 30, and black ink has a luminosity of 0. Suppose you replaced the red ink plate in a publication with a black ink plate. If pbReplaceTintKeepTints is specified, Publisher performs the following calculation to determine the percentage of black ink for each red color:

(100-30)/(100-0)

A color that was 100% red would now be 70% black; a color that was 50% red would now be 35% black, and so on.

If the pbReplaceTintKeepTints constant is specified, the percentage of the replacement ink in each color is the same as the deleted color. For example, if red ink is replaced with black ink, 100% tint of red is replaced by 100% tint of black, 50% red with 50% black, and so on.

You cannot specify the pbReplaceTintMaintainLuminosity or pbReplaceTintUseDefault constants if the replacement plate represents an ink that has a higher luminosity (that is, is lighter) than the deleted plate. This is because the lighter ink cannot be printed at more than 100%, so it will not be able to match the luminosity of the darker ink.

Example

The following example loops through the active publication's plates collection, determines which plates represent inks not used in the publication, and deletes them. This example assumes that at least one of the plates is in use (the Delete method returns "Permission Denied" if you attempt to delete the last plate in the collection).

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

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.