PictureFormat.OriginalColorsInPalette プロパティ (Publisher)

長 リンクされた図のパレット内の色の数を表す値を返します。 読み取り専用です。

構文

式。OriginalColorsInPalette

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

戻り値

Long

注釈

このプロパティは、リンクされた図または TrueColor ではない OLE オブジェクトにのみ適用されます (つまり、チャネルあたり 24 ビット未満のカラー データが含まれています)。 埋め込みまたは貼り付けされた図と OLE オブジェクト、または TrueColor であるリンクされた図を表す図形の "アクセス許可が拒否されました" を返します。

図形がリンクされた図を表しているかどうかを調べるには、次のいずれかのプロパティを使用します。

• Shape オブジェクトの Type プロパティ
• PictureFormat オブジェクトの IsLinked プロパティ

リンクされた図が 1 チャネルあたり 24 ビット以上の色のデータを含んでいるかどうかを調べるには、 OriginalIsTrueColor プロパティを使用します。

例

次の例では、TrueColor ではない作業中の文書内のすべての画像の一覧を返します。 各図のパレットの色の数が返され、図がリンクされていて、リンクされた図が TrueColor でない場合は、そのパレット内の色の数も返されます。

Sub PictureColorInformation() 
Dim pgLoop As Page 
Dim shpLoop As Shape 
 
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 
 
 If .IsTrueColor = msoFalse Then 
 Debug.Print .Filename 
 Debug.Print "This picture has " & .ColorsInPalette & " colors." 
 If .IsLinked = msoTrue Then 
 If .OriginalIsTrueColor = msoFalse Then 
 Debug.Print "The linked picture has " & _ 
 .OriginalColorsInPalette & " colors." 
 End If 
 End If 
 End If 
 
 End If 
 End With 
 
 End If 
 Next shpLoop 
Next pgLoop 
 
End Sub

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

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