Método Shapes.AddEmptyPictureFrame (Publisher)
Devuelve un objeto Shape que representa un marco de imagen vacío insertado en las coordenadas especificadas.
Sintaxis
expresión. AddEmptyPictureFrame (Left, Top, Width, Height)
expresión Variable que representa un objeto Shapes.
Parameters
Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
---|---|---|---|
Left | Obligatorio | Variant | Posición del borde izquierdo de la forma que representa la imagen. |
Top | Obligatorio | Variant | Posición del borde superior de la forma que representa la imagen. |
Width | Opcional | Variant | Ancho de la forma que representa la imagen. El valor predeterminado es -1, que significa que el ancho de la forma se establece automáticamente en 72 puntos si se deja en blanco este parámetro. |
Height | Opcional | Variant | Alto de la forma que representa la imagen. El valor predeterminado es -1, que significa que el alto de la forma se establece automáticamente en 54 puntos si se deja en blanco este parámetro. |
Valor devuelto
Forma
Comentarios
Para los argumentos Left, Top, Width y Height , los valores numéricos se evalúan en puntos; Las cadenas pueden estar en cualquier unidad admitida por Microsoft Publisher (por ejemplo, "1,5 in").
El marco de imagen en blanco tiene la información sobre herramientas predeterminada "Marco de imagen vacío". Esto se cambia a "Imagen" cuando se selecciona una imagen para la forma.
Ejemplo:
En este ejemplo se coloca un marco de imagen vacío en el centro de la primera página de la publicación y se gira 45 grados. La propiedad AlternativeText se establece en Marcador de posición de imagen 1 para la web.
Dim shpPlaceholder As Shape
Set shpPlaceholder = _
ActiveDocument.Pages(1).Shapes.AddEmptyPictureFrame( _
230, 320, 150, 150)
With shpPlaceholder
.AlternativeText = "Picture Placeholder 1"
.Rotation = 45
End With
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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de