Changing the size of a shape in PowerPoint VBA Macros -

i'm trying resize shape (square) using vba in powerpoint when clicking on 1 of 4 circles in each vertex of square. when resize position of mouse works in right bottom vertex of square.

i want size in upper vertexes , left in left side vertexes. because sizes lower right. tried messing top property of shape , many codes, non of them worked.

edit: can use scaleheight , scalewidth property that? if yes, can me that, because property confusing, beacause have use factor...

here last code tried:

sub resizeshp_topright3() dim llcoord pointapi getcursorpos llcoord shapes("a").textframe.textrange.text = shapes("shp").height  shapes("shp").width = (llcoord.xcoord / 1.417323) - val(replace(shapes("shp").left, ",", ".")) shapes("shp").top = (llcoord.ycoord / 1.417323) shapes("shp").height = (llcoord.ycoord / 1.417323) - val(replace(shapes("shp").top, ",", ".")) end sub