У меня на листе Excel есть прямоугольники (фигуры) с надписями.
Как можно у прямоугольников автоматически установить белый фон, убрать контур фигуры и как выровнять текст в фигуре по середине и по левому краю?
Пример сделан для одной фигуры. Адаптируйте код в свой макрос.
Макрос
Sub Макрос()
Dim shape As shape
'1. Присваиваем имя фигуре. В скобках порядковый номер фигуры.
' Порядковый номер присваивается при создании фигуры.
Set shape = ActiveSheet.Shapes(1)
'2. Оформление фигуры.
'1) Белая заливка.
shape.Fill.ForeColor.RGB = RGB(255, 255, 255)
'2) Убираем обрамление (границы).
shape.Line.Visible = False
'3) Выравнивание текста внутри фигуры.
shape.TextFrame2.VerticalAnchor = msoAnchorMiddle
shape.TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignLeft
End Sub
Большое спасибо!