ColorsInUse オブジェクト (Publisher)

  • [アーティクル]

指定された文書に存在するカラーを表す ColorFormat オブジェクトのコレクションです。

注釈

ColorsInUse コレクションは、すべての文書のカラー モデルをサポートしています: RGB、プロセス カラー、およびスポット カラーです。

プロセス カラーおよびスポット カラーの文書の場合、カラーはインクに基づきます。 与えられたインクに対して、文書にはそのインクの濃淡または網掛けが異なる複数のカラーが含まれます。 文書に対して定義されているインクを表すプレートにアクセスするには、 Plates コレクションを使用します。

例

次の使用例は、作業中の文書の指定されたインクに基づく各カラーのプロパティを表示します。 この使用例では、文書のカラー モードがスポット カラーまたはプロセスおよびスポット カラーに定義されていると仮定します。

Sub ListColorsBasedOnInk() 
Dim cfLoop As ColorFormat 
 
For Each cfLoop In ActiveDocument.ColorsInUse 
 
 With cfLoop 
 If .Ink = "2" Then 
 Debug.Print "BaseRGB: " & .BaseRGB 
 Debug.Print "RGB: " & .RGB 
 Debug.Print "TintShade: " & .TintAndShade 
 Debug.Print "Type: " & .Type 
 End If 
 End With 
 
Next cfLoop 
 
End Sub

次の例では、文書の 2 番目の色のプロパティを返します。

Sub ColorProperties() 
 
 With ActiveDocument.ColorsInUse(2) 
 Debug.Print "Color RBG: " & .RGB 
 Debug.Print "Ink RBG: " & .BaseRGB 
 Debug.Print "Tint: " & .TintAndShade 
 
 End With 
 
End Sub

プロパティ

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。