ShapeRange.ScaleHeight 方法 (Excel)

按指定的比例調整圖案的高度。 對於圖片和 OLE 物件，可以指定是相對於原有大小還是相對於現有大小來調整圖案。 對於不是圖片和 OLE 物件的圖案，一律是相對於現有高度來調整其大小。

語法

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

表達 代表 ShapeRange 物件的 變數。

參數

名稱	必要/選用	資料類型	描述
因素	必要	Single	會指定圖案調整後的高度與其現有高度或原始高度之間的比例。 例如，如果要將矩形放大 50%，請將此引數設定為 1.5。
RelativeToOriginalSize	必要	MsoTriState	如果為 msoTrue，則會相對於圖案的原始大小來調整圖案。 msoFalse ，以相對於其目前的大小進行調整。 只有當指定的圖案為圖片或 OLE 物件時，才能將這個引數指定為 msoTrue。
向外	選用	Variant	MsoScaleFrom的其中一個常數，指定縮放圖形時，圖形的哪個部分會保留其位置。

範例

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

Set myDocument = Worksheets(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

支援和意見反應

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