次の方法で共有

PictureFormat.ColorsInPalette プロパティ (Publisher)

  • [アーティクル]

長い 図のパレット内の色の数を表す値を返します。 読み取り専用です。

構文

式。ColorsInPalette

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

戻り値

Long

注釈

このプロパティは、TrueColor 以外の画像 (つまり、チャネルあたり 24 ビット未満の色データを含む画像) にのみ適用されます。 TrueColor の図を表す図形の "アクセス許可が拒否されました" を返します。

IsTrueColor プロパティを使用して、画像にチャネルあたり 24 ビット以上のカラー データが含まれているかどうかを判断します。

例

次の例では、作業中の文書内の各画像をテストし、画像が TrueColor かどうかを出力します。 画像が TrueColor でない場合は、画像のパレット内の色の数を出力します。

For Each pgLoop In ActiveDocument.Pages 
 For Each shpLoop In pgLoop.Shapes 
 If shpLoop.Type = pbLinkedPicture Or shpLoop.Type = pbPicture Then 
 
 With shpLoop.PictureFormat 
 If .IsEmpty = msoFalse Then 
 Debug.Print .Filename 
 If .IsTrueColor = msoTrue Then 
 Debug.Print "This picture is TrueColor" 
 Else 
 Debug.Print "This picture contains " & .ColorsInPalette & " colors." 
 End If 
 End If 
 End With 
 
 End If 
 Next shpLoop 
Next pgLoop

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

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