Object Model Reference : Classes : B : Bitmap : Properties : Bitmap.Embedded
|
|
| Object Model Reference : Classes : B : Bitmap : Properties : Bitmap.Embedded |
Property Embedded As Boolean
Member of Bitmap
The Embedded property returns True if the bitmap is embedded.
The Embedded property returns a read-only value.
The following VBA example displays the number of bitmaps that are embedded in the active page.
Sub Test() |
Dim s As Shape, n As Long |
n = 0 |
For Each s In ActivePage.Shapes |
If s.Type = cdrBitmapShape Then |
If s.Bitmap.Embedded Then n = n + 1 |
End If |
Next s |
MsgBox "There are " & n & " embedded bitmaps" |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.