Powerpoint VBA - Как повернуть прямоугольный треугольник? - PullRequest
Новая
       11

Powerpoint VBA - Как повернуть прямоугольный треугольник?

1 голос
/ 23 октября 2019

У меня есть следующий код VBA, адаптированный с здесь : 

Sub Risk(ByVal control As IRibbonControl)

    Dim tri As Shape
    Set tri = ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShapeRightTriangle, 886, 0, 74, 74)

    With tri
        .Fill.ForeColor.RGB = RGB(255, 0, 0)

        With .Line
        .Weight = 0
        .ForeColor.RGB = RGB(255, 0, 0)
        End With ' Outline

        With .TextFrame.TextRange
          .Text = "Risk"

           With .Font
            .Name = "Arial"
            .Size = 10
            .Bold = msoTrue
            .Italic = msoFalse
            .Underline = msoFalse
            .Shadow = msoFalse
            .Emboss = msoFalse
            .BaselineOffset = 0
            .AutoRotateNumbers = msoFalse
            .Color.RGB = RGB(255, 255, 255)
        End With   ' Font

       End With   ' TextRange

    End With ' Shape itself

    End Sub

Это успешно создает прямоугольный треугольник, но он имеет неправильную ориентацию (правильный угол должен бытьвплотную к углу). Как мне повернуть его?

Примечание. Вопрос был отредактирован для включения комментария и стал более конкретным.

...