VBA -Power Point-プログラムで形状のラップテキスト

Question

Sub ReadFromFile()

' CLIPBOARD
Dim MyData As DataObject
Dim strClip As String

' CLIPBOARD
Set MyData = New DataObject
MyData.GetFromClipboard
strClip = MyData.GetText

Set activeDocument = ActivePresentation.Slides(1)


 With activeDocument
        'Set QASlide = .Slides.Add(Index:=.Slides.Count + 0, Layout:=ppLayoutBlank)

        activeDocument.Shapes.AddTextEffect PresetTextEffect:=msoTextEffect28, _
        Text:=strClip, _
        FontName:="Garde Gothic", FontSize:=44, FontBold:=msoTrue, _
        FontItalic:=msoFalse, Left:=25, Top:=25

        With .Shapes(.Shapes.Count)
        .Width = 200
        .Height = 300
        End With

 End With

End Sub

上記のコードのように幅と高さが定義されている形状内にテキストを包むためのスクリプトを提供するのに役立つ人がいますか？

Answer 1

私があなたを正しく理解しているかどうかわからないが、追加する .TextFrame.WordWrap = msoTrue 下のブロックにあなたの問題を解決しますか？

    With .Shapes(.Shapes.Count)
    .Width = 200
    .Height = 300
    End With

Answer 2

あなたはこれを探していると思います：

.Shapes(.Shapes.Count).TextFrame.TextRange.Text = strClip

同じで設定できます With 高さと幅を設定していること

Answer 3

テキストを形状に包む場合は、テクステフの形状以外のものを使用する必要があります。