Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Devuelve una constante MsoTriState que representa si la forma especificada es un marco de imagen vacío. Solo lectura.
Sintaxis
expresión. IsEmpty
Expresión Variable que representa un objeto PictureFormat .
Valor devuelto
MsoTriState
Comentarios
El valor de la propiedad IsEmpty puede ser una de las constantes MsoTriState declaradas en la biblioteca de tipos de Microsoft Office y se muestra en la siguiente tabla.
| Constante | Descripción |
|---|---|
| msoFalse | La forma especificada no es un marco de imagen vacío. |
| msoTriStateMixed | Indica una combinación de msoTrue y msoFalse en el intervalo de formas especificado. |
| msoTrue | La forma especificada es un marco de imagen vacío. |
Ejemplo:
En el siguiente ejemplo se comprueban las imágenes de la publicación activa y se imprimen las propiedades seleccionadas de las imágenes que estén vinculadas.
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
Debug.Print "File Name: " & .Filename
Debug.Print "Horizontal Scaling: " & .HorizontalScale & "%"
Debug.Print "Vertical Scaling: " & .VerticalScale & "%"
Debug.Print "File size in publication: " & .FileSize & " bytes"
End If
End With
End If
Next shpLoop
Next pgLoop
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.