Project) (Shape.ScaleHeight 方法

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

語法

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

expression 一個用於表示 Shape 物件的變數。

參數

名稱 必要/選用 資料類型 描述
因素 必要 Single 調整圖形大小時的高度與目前高度之間的比例。 例如，若要讓矩形高 50%，請指定 [ 因數] 參數的 1.5。
RelativeToOriginalSize 必要 MSOTRISTATE msoFalse 會相對於圖形目前大小縮放圖形。 若是 Project，此值必須是 msoFalse。
fScale 選用 MSOSCALEFROM 指定當調整圖案大小時，圖案的哪一部分要維持不動。
因素 必要 FLOAT
RelativeToOriginalSize 必要 MSOTRISTATE
fScale 選用 MSOSCALEFROM
名稱 必要/選用 資料類型 描述

傳回值

Nothing

註解

msoTrue 的 RelativeToOriginalSize 參數值會相對於圖形的原始大小縮放，這僅適用於圖片或 OLE 物件。

範例

下列範例會建立兩個圓柱形圖形，然後縮放第一個圖形的高度和寬度。 如果您在第一個 ScaleHeight 陳述式上設定中斷點，您可以逐步執行程式碼，並查看縮放比例和使用 fScale 參數的變更。

Sub ScaleShapes()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 As shape
    Dim reportName As String
    Dim sRange As ShapeRange
    
    reportName = "Scale Report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set shp1 = theReport.Shapes.AddShape(msoShapeCan, 20, 50, 20, 30)
    Set shp2 = theReport.Shapes.AddShape(msoShapeCan, 140, 50, 30, 50)
    
    shp1.ScaleHeight 2, msoFalse
    shp1.ScaleWidth 2, msoFalse

    shp1.ScaleHeight 2, msoFalse, msoScaleFromMiddle
    shp1.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
End Sub

另請參閱

圖形物件MsoTriStateMsoScaleFrom

支援和意見反應

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

  • Last updated on