PowerPoint 2013中的Shape.Height和Shape.Width问题

Question

我正在使用一个小的VBA脚本在后台应用一些文本。 该脚本可以在PowerPoint 2007和PowerPoint 2010上正常运行。

但是，在PowerPoint 2013中，设置Shape.Height和Shape.Width无效。 这是代码片段。 任何帮助，将不胜感激。

Public Sub applyWatermark()

Dim curDesign As Design
Set curDesign = ActivePresentation.Designs.Item(1)
Dim masterSlide As Master
Set masterSlide = curDesign.SlideMaster

Dim shape As shape
Set shape = masterSlide.Shapes.AddTextbox(msoShapeRectangle, 0#, 0#, 100#, 100#)

shape.TextEffect.Text = "Watermark"

' Setting height and width works fine on PPT 2010 but does 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

Answer 1

我相信这是MS开发团队的已知限制-在某些情况下，它只是无法正确启动。 一种建议是改为更改字体大小，但是如果您实际上需要形状中的特定字体大小，这并没有太大帮助。

Answer 2

这是PowerPoint 2013的问题。

解决方法是设置

Myshape.TextFrame2.WarpFormat = msoWarpFormat37

可在http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/2c1cf339-aa90-4d82-9475-0ff5f49ac1b1/中找到解决方法。