GefObject.ScaleFromPoint (method)

Scales the object by the specified percents.
Syntax: object.ScaleFromPoint HorizontalPercent, VerticaltalPercent, X, Y
HorizontalPercent As float -
VerticaltalPercent As float -
X As long -
Y As long -
Description: The object is scaled such that the point specified by X and Y (in TWIPS) does not move.


Sub GefObject_ScaleFromPoint()
    Dim oCimObj As Gefobject
    Set oCimObj = CimGetObject
    oCimObj.ScaleFromPoint 10, 10, 100 * 20, 100 * 20
    CimGetScreen.Refresh False
End Sub