2

こんにちは MS Publisher VBA プログラマー :-)

とても単純に見えることは、実際には文書化されていません。私がする必要があるのは、プログラムでテキストをテキスト ボックスに挿入し、さらにテキストを追加するにつれてテキストのサイズを垂直方向に拡大できるようにすることだけです。

これは、TextBox を挿入し、TextBox の [書式] タブの [テキストに合わせる] ドロップダウンで [テキスト ボックスをサイズに合わせて拡大] オプションを選択して、手動で行うとうまく機能します。

このコードは機能しません:

Sub myGrowToFit()
        Set myTextBox = ActiveDocument.Pages(1).Shapes.AddTextbox _
             (Orientation:=pbTextOrientationHorizontal, _
             Left:=0, Top:=0, _
             Width:=100, Height:=40)
        myTextBox.TextFrame.TextRange.text = "Line1" & vbLf & "Line2" & vbLf & "Line3" & vbLf & "Line4"
        myTextBox.TextFrame.AutoFitText = pbTextAutoFitGrowToFit
        MsgBox ("Press OK to Continue After You View The Result")
        myTextBox.Delete
End Sub

何か案は？ありがとう。

4

1 に答える 1