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.
Cambia el alto de la forma en un factor especificado. Para imágenes y objetos OLE, puede indicar si desea aplicar una escala a la forma respecto al tamaño original o al tamaño actual.
Sintaxis
expresión. ScaleHeight (Factor, RelativeToOriginalSize, fScale)
expresión Variable que representa un objeto Shape.
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Factor | Obligatorio | Single | Especifica la relación entre el alto de la forma después de cambiar su tamaño y el alto original o actual. Por ejemplo, para crear un rectángulo un 50 por ciento más grande, especifique el valor 1,5 en este argumento. |
| RelativeToOriginalSize | Obligatorio | MsoTriState | Especifica si se va a aplicar una escala respecto al tamaño original o actual del objeto. |
| fScale | Opcional | MsoScaleFrom | Parte de la forma que conserva su posición cuando se ajusta la forma. Puede ser una de las constantes MsoScaleFrom declaradas en la biblioteca de tipos de Microsoft Office. |
Observaciones
El parámetro RelativeToOriginalSize puede ser una de las constantes MsoTriState declaradas en la biblioteca de tipos de Microsoft Office y mostradas en la tabla siguiente.
| Constante | Descripción |
|---|---|
| msoFalse | Escala las formas respecto a su tamaño actual. |
| msoTrue | Escala las formas respecto a su tamaño original. |
Las formas distintas de las imágenes y los objetos OLE siempre se escalan en relación con su alto actual; Si se especifica un valor RelativeToOriginalSize de msoTrue para formas distintas de imágenes u objetos OLE, se produce un error.
Use el método ScaleWidth para ajustar el ancho de una forma.
Ejemplo
En este ejemplo se aplica una escala del 175% de su alto y ancho originales a todas las imágenes y objetos OLE incluidos en la primera página de la publicación activa, y una escala del 175% de su alto y ancho actuales a todas las demás formas.
' Looping variable.
Dim shpLoop As Shape
' Loop through all the shapes on the first page.
For Each shpLoop In ActiveDocument.Pages(1).Shapes
With shpLoop
Select Case .Type
' If the shape is a picture or OLE object,
' scale relative to original size.
Case pbPicture, pbLinkedPicture, _
pbEmbeddedOLEObject, pbLinkedOLEObject, _
pbOLEControlObject
.ScaleHeight Factor:=1.75, _
RelativeToOriginalSize:=True
.ScaleWidth Factor:=1.75, _
RelativeToOriginalSize:=True
' If the shape is not a picture or OLE object,
' scale relative to the current size.
Case Else
.ScaleHeight Factor:=1.75, _
RelativeToOriginalSize:=False
.ScaleWidth Factor:=1.75, _
RelativeToOriginalSize:=False
End Select
End With
Next shpLoop
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.