共用方式為

Shape.ScaleWidth 方法 (專案)

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

語法

表情。比例寬 度 (因子、 相對原始尺寸、 f比例)

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

參數

名稱 必要/選用 資料類型 描述
因素 必要 Single 調整尺寸後形狀寬度與當前寬度的比例。 例如，要讓一個矩形寬50%，則將 因子 參數指定為1.5。
相對到原始尺寸 必要 MsoTriState msoFalse 會根據目前大小縮放該形狀。 專案的值必須是 msoFalse。
f尺度 選用 MsoScaleFrom 指定當調整圖案大小時，圖案的哪一部分要維持不動。
因素 必要 浮
相對到原始尺寸 必要 三元星
f尺度 選用 MSOSCALE來源
名稱 必要/選用 資料類型 描述

傳回值

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

另請參閱

形狀物件msoTriStatemsoScale From

支援和意見反應

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

  • Last updated on