Método Shape.ScaleWidth (PowerPoint)
Cambia el ancho de la forma en un factor especificado. Para imágenes y objetos OLE, puede indicar si desea cambiar la escala de la forma respecto al tamaño original o respecto al tamaño actual. La escala de las formas que no son imágenes y objetos OLE siempre se cambia respecto a su ancho actual.
Sintaxis
expresión. ScaleWidth (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 ancho de la forma después de cambiar su tamaño y el ancho 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 aplica la escala a la forma respecto al tamaño actual o al original. |
fScale | Opcional | MsoScaleFrom | Parte de la forma que conserva su posición cuando se ajusta la forma. |
Comentarios
Para imágenes y objetos OLE, puede indicar si desea ajustar el tamaño de la forma con relación al tamaño original o al tamaño actual. El tamaño de las formas distintas de imágenes y objetos OLE siempre se ajusta con relación a su ancho actual.
El valor del parámetro RelativeToOriginalSize puede ser una de las siguientes constantes MsoTriState . Puede especificar msoTrue para este parámetro sólo si la forma especificada es una imagen o un objeto OLE.
Constante | Descripción |
---|---|
msoFalse | Escala las formas respecto a su tamaño actual. |
msoTrue | Escala las formas respecto a su tamaño original. |
El valor del parámetro fScale puede ser una de las siguientes constantes MsoScaleFrom . El valor predeterminado es msoScaleFromTopLeft.
msoScaleFromBottomRight |
msoScaleFromMiddle |
msoScaleFromTopLeft |
Ejemplo:
En este ejemplo, se ajusta el tamaño de todas las imágenes y los objetos OLE de myDocument a un 175 por ciento de su alto y ancho originales, y se ajusta el tamaño de todas las demás formas a un 175 por ciento de su alto y ancho actuales.
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
Select Case s.Type
Case msoEmbeddedOLEObject, msoLinkedOLEObject, _
msoOLEControlObject, msoLinkedPicture, msoPicture
s.ScaleHeight 1.75, msoTrue
s.ScaleWidth 1.75, msoTrue
Case Else
s.ScaleHeight 1.75, msoFalse
s.ScaleWidth 1.75, msoFalse
End Select
Next s
Consulte también
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