GefObject.ScaleFromPoint (method)

Scales the object by the specified percents.
Syntax: object.ScaleFromPoint HorizontalPercent, VerticaltalPercent, X, Y
Parameters:
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.

Example:

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