Shape.ScaleWidth 方法 (Project)

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

語法

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

表達 代表 Shape 物件的變數。

參數

名稱	必要/選用	資料類型	描述
因素	必要	Single	調整圖案大小之後的圖案寬度與目前寬度之間的比例。 例如，若要讓矩形更寬 50%，請為 Factor 參數指定 1.5。
RelativeToOriginalSize	必要	MsoTriState	msoFalse 會相對於圖案目前的大小調整圖形。 對於 Project，此值必須是 msoFalse。
fScale	選用	MsoScaleFrom	指定當調整圖案大小時，圖案的哪一部分要維持不動。
因素	必要	浮動
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

另請參閱

Shape 物件MsoTriStateMsoScaleFrom

支援和意見反應

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