PowerPoint) (Shape.ScaleWidth 方法

會依指定比例調整圖案的寬度。 如果是圖片及 OLE 物件，您可以指定是要相對於原來大小還是要相對於目前大小來調整圖案。 至於不是圖片及 OLE 物件的圖案，則一律相對於它目前的寬度來進行調整。

語法

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

表達 代表 Shape 物件的變數。

參數

名稱	必要/選用	資料類型	描述
因素	必要	Single	會指定圖案調整後的寬度與其現有寬度或原始寬度之間的比例。 例如，如果要將矩形放大 50%，請將此引數設定為 1.5。
RelativeToOriginalSize	必要	MsoTriState	會指定是要相對於目前大小或原來大小來調整圖案。
fScale	選用	MsoScaleFrom	調整圖案大小時，圖案中位置保持不變的部分。

註解

如果是圖片及 OLE 物件，可以指定在調整圖案大小時是要相對於原始大小還是相對於目前大小。 如果是圖片及 OLE 物件以外的其他圖案，則一律是相對於目前的寬度來調整其大小。

RelativeToOriginalSize參數值可以是下列其中一個MsoTriState常數。 您可以指定此參數的 msoTrue 只有當指定的圖案是圖片或 OLE 物件。

常數	描述
msoFalse	會相對於圖案目前的大小來調整它的比例。
msoTrue	會相對於圖案原來的大小來調整它的比例。

fScale參數值可以是下列其中一個MsoScaleFrom常數。 預設值為 msoScaleFromTopLeft 。

msoScaleFromBottomRight
msoScaleFromMiddle
msoScaleFromTopLeft

範例

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

Set myDocument = ActivePresentation.Slides(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 s

另請參閱

Shape 物件

支援和意見反應

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