Textframe2.Orientation ошибка при установке значения - PullRequest
Новая
       15

Textframe2.Orientation ошибка при установке значения

1 голос
/ 23 апреля 2020

Я использую Excel 365 и пытаюсь установить ориентацию текстового фрейма в пределах фигуры на 45 градусов. Свойство textframe2.orientation говорит, что оно должно принимать значение в диапазоне от 90 до -90, но оно выводит ошибку «Подстрочный индекс из диапазона», если я добавлю какое-либо значение в код, кроме одного из стандартов mso. Мне нужно выяснить, почему свойство не будет принимать значение для параметра. Секция кода выглядит следующим образом: 

' Place redaction block
    Set s = ActiveSheet.Shapes.AddShape(msoShapeRectangle, Left, Top, Width, Height)
    s.Fill.Visible = msoTrue
    s.Fill.Transparency = 0.85
    With s.Line
        .Visible = msoTrue
        .Weight = 1.5
    End With
    If Worksheets("Files").Cells(rowct, 10).Value = 31 Or Worksheets("Files").Cells(rowct, 10).Value = 35 Then
        With s.TextFrame2.TextRange.Font
            .Name = "Arial Black"
            .Size = 200
        End With
        With s.TextFrame2.TextRange.Font.Fill
            .Visible = msoTrue
            .ForeColor.RGB = RGB(0, 0, 0)
            .Transparency = 0.85
            .Solid
        End With
        With s
            .TextFrame2.Orientation = msoTextOrientationUpward
            .TextFrame2.WordWrap = msoTrue
            .TextFrame.Characters.Text = ExText
        End With
    End If
...