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 PbImageFormat que representa el formato de imagen de una imagen determinada por la interfaz de dispositivo gráfico de Microsoft Windows (GDI+). Solo lectura.
Sintaxis
expresión. ImageFormat
expresión Variable que representa un objeto PictureFormat .
Valor devuelto
PbImageFormat
Observaciones
La propiedad ImageFormat se aplica a la imagen original, en lugar de la imagen de marcador de posición, si hay alguno.
El valor de la propiedad ImageFormat puede ser una de las constantes PbImageFormat declaradas en la biblioteca de tipos de Microsoft Publisher.
La propiedad ImageFormat indica el formato de la imagen después de que se ha importado en el entorno de Windows, en lugar de su formato de archivo original. Si el formato de archivo de la imagen no es compatible con el sistema operativo Windows de forma nativa, la imagen se convierte en un formato análogo que admiten de forma nativa. Como resultado, las constantes pbImageFormatCMYKJPEG, pbImageFormatDIB, pbImageFormatEMF, pbImageFormatGIF y pbImageFormatPICT se devuelven rara vez, si alguna vez, se devolverán.
Consulte la tabla siguiente para obtener conversiones de formato de archivo específicas.
| Formato de archivos | Constante devuelta |
|---|---|
| .bmp, .dib, .gif, .pict | pbImageFormatPNG |
| .emf, .eps, .epfs | pbImageFormatWMF |
| CMYK .jfif, .jpeg, .jpg | pbImageFormatJPEG |
Windows GDI+ es la parte del sistema operativo Windows y el sistema operativo Windows Server que proporciona gráficos vectoriales bidimensionales, imágenes y tipografía.
Ejemplo
En el siguiente ejemplo se imprime una lista de las imágenes .jpg y .jpeg que contiene la publicación activa.
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 .ImageFormat = pbImageFormatJPEG Then
Debug.Print .Filename
End If
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.