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 |