Plate.Delete メソッド (Publisher)

指定されたプレートを削除します。

構文

式。Delete (PlateReplaceWith, ReplaceTint)

式Plate オブジェクトを表す変数。

パラメーター

注釈

Plates コレクション内の最後のプレートを削除しようとすると、"アクセス許可が拒否されました" を返します。

pbReplaceTintMaintainLuminosity 定数が指定されている場合、各色の置換インクの割合は、削除されたプレートと置換プレートで表されるインクの輝度値に基づいて計算されます。 パブリッシャーは次の計算を実行します。 ここで、L1 は削除されたインク輝度、 L2 は代替インク輝度です。

(100-L1)/(100-L2)

たとえば、赤いインクの輝度は 30 で、黒インクの輝度は 0 です。 文書の赤のプレートを黒のプレートで置き換えるとします。 pbReplaceTintKeepTints が指定されている場合、Publisher は次の計算を実行して、赤の色ごとに黒インクの割合を決定します。

(100-30)/(100-0)

100% 赤だった色は、70% 黒になります。50% 赤だった色は、35% 黒になります。

PbReplaceTintKeepTints 定数を指定すると、各カラーの置換インクの割合が、削除した色と同じです。 たとえば、赤のインクを黒のインクで置き換える場合は、赤の濃淡が 100% は 50% の黒と赤、黒の 50% の濃淡が 100% で交換してください。

置換プレートがより高い輝度のあるインクを表す場合、 pbReplaceTintMaintainLuminosity または pbReplaceTintUseDefault 定数を指定することはできません (つまり、明るい) 削除されるプレートとします。 明るいインクは100%以上印刷できないため、濃いインクの明るさに合わせることができないためです。

例

次の例では、作業中の文書のプレート コレクションをループ処理し、文書で使用されていないインクを表すプレートを決定し、それらを削除します。 この例では、少なくとも 1 つのプレートが使用されていることを前提としています (コレクション内の最後のプレートを削除しようとすると、 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 のサポートおよびフィードバックを参照してください。