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 ShapeRange .
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. El valor predeterminado es msoScaleFromTopLeft. |
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.