PowerPoint () 的 Shape.ScaleHeight 方法

會依指定的比例，調整圖案的高度。

語法

運算式。ScaleHeight (Factor、 RelativeToOriginalSize、 fScale)

表達 代表 Shape 物件的變數。

參數

名稱	必要/選用	資料類型	描述
因素	必要	Single	會指定圖案調整後的高度與其現有高度或原始高度之間的比例。 例如，如果要將矩形放大 50%，請將此引數設定為 1.5。
RelativeToOriginalSize	必要	MsoTriState	會指定是要相對於目前大小或原來大小來調整圖案。
fScale	選用	MsoScaleFrom	調整圖案大小時，圖案中位置保持不變的部分。

註解

如果是圖片及 OLE 物件，您可以指定是要相對於原來大小還是要相對於目前大小來調整圖案。 至於不是圖片及 OLE 物件的圖案，則一律會相對於它目前的高度來進行調整。

RelativeToOriginalSize參數值可以是下列其中一個MsoTriState常數。 您可以指定此參數的 msoTrue 只有當指定的圖案是圖片或 OLE 物件。

常數	描述
msoFalse	會相對於圖案目前的大小來調整它的比例。
msoTrue	會相對於圖案原來的大小來調整它的比例。

fScale參數值可以是下列其中一個MsoTriState常數。 預設值為 msoScaleFromTopLeft 。

msoScaleFromBottomRight
msoScaleFromMiddle
msoScaleFromTopLeft

範例

本範例將 myDocument 中所有的圖片和 OLE 物件的高度和寬度調整為原有尺寸的 175%，而將所有其他圖案的高度和寬度調整為現有尺寸的 175%。

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

另請參閱

Shape 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。