將vba文本轉換爲文本框不適合寬度和高度

Question

我在PowerPoint中使用vba創建了一個文本框。對於我使用下面的代碼：

Set survey = cSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 20, 40, 400, 20) 
    survey.TextFrame.TextRange.text = Me.QuestionBox.text 


     survey.TextFrame.TextRange.font.SIZE = sh.GroupItems(1).TextFrame.TextRange.font.SIZE 
     survey.TextFrame.TextRange.font.name = sh.GroupItems(1).TextFrame.TextRange.font.name 
     survey.width = sh.GroupItems(1).width 
     survey.height = sh.GroupItems(1).height 
     survey.top = sh.GroupItems(1).top 
     survey.left = sh.GroupItems(1).left 

正如你可以看到我在用另一種形狀的大小，使其大小相同的。這是我使用（上）和我創建了（如下圖）形狀的外觀：

我希望它出現在2線而不是一個。你可以看到寬度和高度是正確的，但是當它到達它繼續的形狀的邊界時，不會進入第二行。如果你只是手動修改下面的形狀，並給出一點或多或少的寬度，它會自動把第二個單詞放在第二行，但是當我用vba做它時，我不能做到這一點。有什麼我可以用它來自動發生？

Answer 1

向幻燈片中添加新形狀時，形狀的默認設置可能會妨礙wordwrap。

請嘗試：

survey.TextFrame.WordWrap = msoTrue