Shape.ScaleWidth メソッド (Project)

指定した係数分だけ図形の幅を変更します。

構文

式。ScaleWidth (Factor, RelativeToOriginalSize, fScale)

式: Shape オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
要因 必須 Single サイズを変更した後の図形の幅と現在の幅の比率。 たとえば、四角形の幅を 50% 広げるには、[ 係数 ] パラメーターに 1.5 を指定します。
RelativeToOriginalSize 必須 MsoTriState msoFalse は、現在のサイズを基準にして図形をスケーリングします。 Project の場合、値は msoFalse である必要があります。
fScale 省略可能 MsoScaleFrom 図形を拡大縮小する場合、図形の位置を保持する部分を指定します。
要因 必須 FLOAT
RelativeToOriginalSize 必須 MSOTRISTATE
fScale 省略可能 MSOSCALEFROM
名前 必須 / オプション データ型 説明

戻り値

Nothing

注釈

msoTrue の RelativeToOriginalSize パラメーター値は、図形を元のサイズに対して相対的にスケーリングし、図または OLE オブジェクトにのみ適用します。

例

次の例では、2 つの円筒図形を作成してから、最初の図形の高さと幅を拡大縮小します。 最初の 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 のサポートおよびフィードバックを参照してください。

  • Last updated on