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.
Utilice la propiedad SizeMode para especificar cómo ajustar el tamaño de una imagen u otro objeto en un marco de objeto enlazado, un marco de objeto sin enlazar o un control de imagen.
Sintaxis
expresión. SizeMode
expresión Variable que representa un objeto Image .
Observaciones
La propiedad SizeMode utiliza los valores siguientes.
| Configuración | Visual Basic | Descripción |
|---|---|---|
| Recortar | acOLESizeClip | (Valor predeterminado) Muestra el objeto con su tamaño real. Si el objeto es mayor que el control, su imagen se recorta por la parte derecha y la parte inferior según los bordes del control. |
| Extender | acOLESizeStretch | Cambia el tamaño del objeto para rellenar el control. Este valor puede distorsionar las proporciones del objeto. |
| Zoom | acOLESizeZoom | Muestra todo el contenido del objeto después de cambiar su tamaño para que llene el alto o el ancho del gráfico o del marco de objeto sin distorsionar las proporciones del objeto. Este valor puede dejar espacio extra si se cambia el tamaño del control. |
Use Recortar para conseguir una presentación más rápida. Use la opción Stretch para gráficos de barras y gráficos de líneas sin preocuparse por los ajustes de tamaño. El valor Extender puede distorsionar círculos y fotografías.
Ejemplo
En el ejemplo siguiente se crea un objeto OLE vinculado mediante un marco de objeto sin enlazar denominado OLE1 y se ajusta el tamaño del control para mostrar todo el contenido del objeto cuando el usuario elige un botón de comando.
Sub Command1_Click
OLE1.Class = "Excel.Sheet" ' Set class name.
' Specify type of object.
OLE1.OLETypeAllowed = acOLELinked
' Specify source file.
OLE1.SourceDoc = "C:\Excel\Oletext.xls"
' Specify data to create link to.
OLE1.SourceItem = "R1C1:R5C5"
' Create linked object.
OLE1.Action = acOLECreateLink
' Adjust control size.
OLE1.SizeMode = acOLESizeZoom
End Sub
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.