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
Comments
Post a Comment