次の方法で共有

PictureFormat.EffectiveResolution プロパティ (Publisher)

  • [アーティクル]

長 を表す、ドット/インチ (dpi)、画像の実効解像度を返します。 読み取り専用です。

構文

式。EffectiveResolution

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

戻り値

Long

注釈

図の実効解像度は、図が印刷される拡大/縮小率に反比例します。 拡大/縮小率が大きいほど、実効解像度は小さくなります。 たとえば、大きさが 4 x 4 インチ (10.16 x 10.16 センチ) の図が最初に 300 dpi でスキャンされたとします。 この図が 2 x 2 インチ (5.08 x 5.08 センチ) に縮小された場合、実効解像度は 600 dpi になります。

OriginalResolution プロパティを使用して、リンクされた図または OLE オブジェクトの解像度を決定します。

図の倍率を判定するには、 HorizontalScale プロパティおよび VerticalScale プロパティを使用します。

例

次の使用例は、作業中の文書内で、指定したしきい値 (100 dpi) よりも解像度が低い図のリストを取得します。

Sub ListLowResolutionPictures() 
 Dim pgLoop As Page 
 Dim shpLoop As Shape 
 
 For Each pgLoop In ActiveDocument.Pages 
 For Each shpLoop In pgLoop.Shapes 
 
 If shpLoop.Type = pbPicture Or shpLoop.Type = pbLinkedPicture Then 
 
 With shpLoop.PictureFormat 
 If .IsEmpty = msoFalse Then 
 If .EffectiveResolution < 100 Then 
 Debug.Print .Filename 
 Debug.Print "Page " & pgLoop.PageNumber 
 Debug.Print "Resolution in publication: " & .EffectiveResolution 
 End If 
 End If 
 End With 
 
 End If 
 
 Next shpLoop 
 Next pgLoop 
 
End Sub

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

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