Darren.NET

指定圖片和OLE物件是相對於初始大小還是相對於當前大小來調整圖案的長度和寬度。 對於不是圖片和OLE 物件的圖形，總是相對於當前大小來調整其長度和寬度。

        expression. ScaleWidth ( Factor , RelativeToOriginalSize , Scale )

expression - 圖片或OLE物件或其他物件.
Factor - Singl 型別,欲變更之比例值.(必要)
RelativeToOriginalSize - MsoTriState 型別,若為 msoFalse為相對於目前的大小來調整圖案,若為 msoTrue為相對於圖案的原始大小來調整圖案;僅當圖形為圖片或OLE物件時才能設msoTrue或False,若是其他物件僅能設False.
        MsoTriState 資料類型       

msoCTrue  不套用至這個屬性。

msoFalse  相對於圖案目前的大小來調整圖案。

msoTriStateMixed  不套用至這個屬性。

msoTriStateToggle  不套用至這個屬性。

msoTrue  相對於圖案原始的大小來調整圖案。

 

Scale - MsoScaleFrom 調整圖案時，哪一部份的位置將保持不變。
        MsoScaleFrom 資料類型
 

msoScaleFromBottomRight

msoScaleFromMiddle

msomsoScaleFromTopLeft  預設值

Sub S_Object_EachObjectResize(ws As Worksheet, slHeight As Single, slWidth As Single) Dim myDocument As Worksheet Set myDocument = ws Dim spObject As Shape For Each spObject In myDocument.Shapes Select Case spObject.Type Case msoEmbeddedOLEObject, _ msoLinkedOLEObject, _ msoOLEControlObject, _ msoLinkedPicture, msoPicture spObject.ScaleHeight slHeight, msoTrue, msoScaleFromTopLeft spObject.ScaleWidth slWidth, msoTrue, msoScaleFromTopLeft Case Else spObject.ScaleHeight slHeight, msoFalse, msoScaleFromTopLeft spObject.ScaleWidth slWidth, msoFalse, msoScaleFromTopLeft End Select Next End Sub