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

这是PowerPoint 2013的一个问题。

解决方法是设置

Myshape.TextFrame2.WarpFormat = msoWarpFormat37

http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/2c1cf339-aa90-4d82-9475-0ff5f49ac1b1/上提供了解决方法。

Answer 2

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