TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

می خواهید چنین متنی را ایجاد کنید

همانطور که می دانید، در هر TextBoxی می توانید با Shift+Enter بعد از حرف اینکار را انجام دهید، اما قصد داریم با ماکرو نویسی اینکار را انجام دهیم.

این وضعیت وقتی کاراتر به نظر خواهد رسید که با مجموعه بسیار زیادی متن روبرو باشید که مجبور باشید برای همه آنها چنین وضعیتی را بوجود آورید، در این وضعیت مجبور خواهید بود به تعداد حروف Shift+Enter بزنید، اما اینکار با کد نویسی نیز میسر است.

ایتدا متن را انتخاب کنید، و سپس کد زیر را اجرا کنید.

Sub VerticalizeText()

Dim oSh As Shape
Dim x As Long
Dim sTemp As String

Set oSh = ActiveWindow.Selection.ShapeRange(1)
With oSh.TextFrame.TextRange
    For x = 1 To Len(.Text)
        sTemp = sTemp & Mid$(.Text, x, 1) & Chr$(11)
    Next
    .Text = sTemp
End With

oSh.TextFrame.TextRange.ParagraphFormat.Alignment = _
 ppAlignCenter

End Sub