понимаю, что должно быть .MarginLeft и .MarginRight, но как?
вот такой вот код:
- Код: Выделить всё
ActiveSheet.TextBoxes.Add(x, y, a, b).Select
Selection.Name = "M_List"
Selection.Characters.Text = "Лист"
Selection.Border.LineStyle = xlNone
Selection.Interior.ColorIndex = 0
Selection.Placement = xlFreeFloating
With Selection.Font
.Name = "Times New Roman Cyr"
.FontStyle = "Полужирный"
.Size = 8
End With
With Selection
.Shadow = False
.RoundedCorners = False
.Interior.ColorIndex = 0
.Interior.Pattern = xlNone
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = xlHorizontal
.AutoSize = False
End With