Center Text

[hata77]

Здравствуйте
Shapes.AddTextbox(msoTextOrientatio nUpward, 15, 10, 20, 43.89).Select

как можно отцентровать текст???
кроме подбором MarginRight и MarginBottom

[EducatedFool]

Так надо было?

Sub test()
    Dim sh As Worksheet: Set sh = ActiveSheet
    
    With sh.Shapes.AddTextbox(msoTextOrientationUpward, 15, 10, 20, 43.89)
        .TextFrame.Characters.Text = "текст"
        .TextFrame.HorizontalAlignment = xlHAlignCenter
        .TextFrame.VerticalAlignment = xlVAlignCenter
    End With
End Sub