vba - Shape.Height and Shape.Width problems in PowerPoint 2013 -
i using small vba script apply text in background. script works fine on powerpoint 2007 , powerpoint 2010.
however, in powerpoint 2013, setting shape.height , shape.width has no effect. here snippet of code. appreciated.
public sub applywatermark() dim curdesign design set curdesign = activepresentation.designs.item(1) dim masterslide master set masterslide = curdesign.slidemaster dim shape shape set shape = masterslide.shapes.addtextbox(msoshaperectangle, 0#, 0#, 100#, 100#) shape.texteffect.text = "watermark" ' setting height , width works fine on ppt 2010 not work on ppt 2013 shape.height = 200 shape.width = 300 shape.textframe2.wordwrap = msotrue shape.textframe2.warpformat = msowarpformat1 shape.left = 200 shape.top = 200 end sub
i believe known limitation ms development team - in instances doesn't fire correctly. 1 suggestion change font size instead, doesn't if need specific font size in shape.
Comments
Post a Comment