Plate.Delete, méthode (Publisher)
Supprime la plaque spécifiée.
Syntaxe
expression. Delete (PlateReplaceWith, ReplaceTint)
Expression Variable qui représente un objet Plate .
Parameters
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
PlateReplaceWith | Facultatif | Variant | Plaque. La plaque qui remplace la plaque supprimée. |
ReplaceTint | Facultatif | PbReplaceTint | Spécifie comment remplacer les couleurs d’une plaque supprimée. Il peut s’agir de l’une des constantes PbReplaceTint . |
Remarques
Renvoie « Autorisation refusée » si vous tentez de supprimer la dernière plaque de la collection Plates .
Si la constante pbReplaceTintMaintainLuminosity est spécifiée, le pourcentage d’encre de remplacement dans chaque couleur est calculé en fonction des valeurs de luminosité des encres représentées par les plaques supprimées et de remplacement. Publisher effectue le calcul suivant, où L1 est la luminosité de l’encre supprimée et L2 la luminosité d’encre de remplacement :
(100-L1)/(100-L2)
Par exemple, l’encre rouge a une luminosité de 30, et l’encre noire a une luminosité de 0. Supposons que vous avez remplacé la plaque d'encre rouge dans une composition par une plaque d'encre noire. Si pbReplaceTintKeepTints est spécifié, Publisher effectue le calcul suivant pour déterminer le pourcentage d’encre noire pour chaque couleur rouge :
(100-30)/(100-0)
Une couleur qui était 100 % rouge doit maintenant être 70 % de noir ; une couleur rouge à 50 % doit maintenant être 35 % noir et ainsi de suite.
Si la constante pbReplaceTintKeepTints n'est spécifiée, le pourcentage de l'encre de remplacement dans chaque couleur est identique à la couleur supprimée. Par exemple, si l'encre rouge est remplacée par l'encre noire, teinte de 100 % de rouge est remplacée par teinte de 100 % de noir, 50 % de rouge à noir de 50 % et ainsi de suite.
Vous ne pouvez pas spécifier les constantes pbReplaceTintMaintainLuminosity ou pbReplaceTintUseDefault si la plaque de remplacement représente une encre dont la luminosité supérieure (autrement dit, est plus fine) que celle de la plaque supprimée. Cela est dû au fait que l’encre plus claire ne peut pas être imprimée à plus de 100 %, de sorte qu’elle ne sera pas en mesure de correspondre à la luminosité de l’encre plus foncée.
Exemple
L'exemple suivant effectue une boucle à travers la collection de plaques de la composition active, détermine les plaques qui représentent les encres non utilisées dans la composition, puis les supprime. Cet exemple suppose qu’au moins une des plaques est en cours d’utilisation (la méthode Delete renvoie « Autorisation refusée » si vous tentez de supprimer la dernière plaque de la 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
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.