Shape.ScaleWidth 方法 (Publisher)

會依指定比例調整圖案的寬度。 對於圖片和 OLE 物件，可以指定是相對於原有大小還是相對於現有大小來調整圖案的寬度。

語法

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

表達 代表 Shape 物件的變數。

參數

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

註解

RelativeToOriginalSize參數可以是 Microsoft Office 類型程式庫中所宣告的MsoTriState常數之一，如下表所示。

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

圖片和 OLE 物件以外的圖形一律會相對於其目前的寬度進行縮放;為圖片或 OLE 物件以外的圖形指定msoTrue的RelativeToOriginalSize值會導致錯誤。

使用 ScaleHeight 方法可調整圖形的高度。

範例

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

' Looping variable. 
Dim shpLoop As Shape 
 
' Loop through all the shapes on the first page. 
For Each shpLoop In ActiveDocument.Pages(1).Shapes 
 With shpLoop 
 Select Case .Type 
 ' If the shape is a picture or OLE object, 
 ' scale relative to original size. 
 Case pbPicture, pbLinkedPicture, _ 
 pbEmbeddedOLEObject, pbLinkedOLEObject, _ 
 pbOLEControlObject 
 .ScaleHeight Factor:=1.75, _ 
 RelativeToOriginalSize:=True 
 .ScaleWidth Factor:=1.75, _ 
 RelativeToOriginalSize:=True 
 ' If the shape is not a picture or OLE object, 
 ' scale relative to the current size. 
 Case Else 
 .ScaleHeight Factor:=1.75, _ 
 RelativeToOriginalSize:=False 
 .ScaleWidth Factor:=1.75, _ 
 RelativeToOriginalSize:=False 
 End Select 
 End With 
Next shpLoop 

支援和意見反應

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