Publisher) (Shape.ScaleHeight 方法

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

語法

運算式。ScaleHeight (Factor， RelativeToOriginalSize， fScale)

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

參數

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

註解

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

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

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

使用 ScaleWidth 方法可調整圖形的寬度。

範例

本範例將使用中出版物首頁中所有的圖片和 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 支援與意見反應。

  • 上次更新時間：