1

小さな 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
4

2 に答える 2

1

I believe this is a known limitation to the MS development team - in some instances it just doesn't fire correctly. One suggestion is to change the font size instead, but that doesn't help much if you actually need a specific font size in the shape.

于 2013-05-31T21:32:13.917 に答える
0

これは PowerPoint 2013 の問題です。

回避策は設定することです

Myshape.TextFrame2.WarpFormat = msoWarpFormat37

回避策はhttp://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/2c1cf339-aa90-4d82-9475-0ff5f49ac1b1/で提供されています。

于 2013-06-07T05:11:45.140 に答える