Excel VBA Макросы: У прямоугольников автоматически установить белый фон и убрать контур и как выровнять текст в фигуре по середине и по левому краю?

[Maxx]

У меня на листе 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

[свернуть]

[Maxx]

Большое спасибо!