Power Point VBA에서 점을 생성하는 방법, 직선과 연결하면서 다른 방향으로 이동하는 방법은 무엇입니까?

Question

PowerPoint VBA에는하고 싶은 일이 있습니다.

메인 창에 주어진 좌표로 메인 창에서 두 개의 점을 만들고 싶습니다 : 예를 들어 A (232, 464) 및 B (109, 567). PowerPoint VBA에서 수행하는 방법을 모르겠습니다. 간단한 직선을 만드는 방법을 알고 있습니다. 이 매크로 코드를 사용합니다.

Sub CreateLine()
    ActiveWindow.Selection.SlideRange.Shapes.AddLine(192#, 180#, 360#, 252#).Select
End Sub

그러나 나는 여전히 라인이 아닌 점을 만듭니다.

그런 다음 어떻게 든 그 점을 움직이고 싶습니다. 다시, 나는 전체 줄이나 다른 객체를 움직일 수 있다는 것을 알고 있습니다.이 코드를 사용하기 때문에 다음과 같습니다.

Sub move()
    ActiveWindow.Selection.ShapeRange.IncrementLeft 6#
End Sub

그러나 나는 점을 움직이는 방법을 모른다. 특히 하나의 점을 한 방향으로 움직이고 싶다면 (예를 들어, 위로 이동) 다른 방법 (예 : 왼쪽으로 이동).

왜 내가하고 싶습니까? 나중에 나는 그 점들을 직선으로 "연결"으로 유지할 계획이기 때문에 방향이 어떤 방향 으로든 그 점을 움직일 것입니다.

답을 알고 있다면 여기에서 나와 공유하십시오.

미리 감사드립니다.

Answer 1

"도트"를 만들려면 "타원형"모양, 즉 작은 원을 사용하여 선을 설정하고 색상을 동일하게 채울 수 있습니다.

Sub DoDot()

    'create a circular shape    
    ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShapeOval, 144.5, 150.88, 11.38, 11.38).Select

    With ActiveWindow.Selection.ShapeRange

        ' color it
        .Line.ForeColor.SchemeColor = ppAccent1
        .Line.Visible = msoTrue
        .Fill.ForeColor.SchemeColor = ppAccent1
        .Fill.Visible = msoTrue
        .Fill.Solid

        ' move it
        .Top = 10
        .Left = 10

    End With
End Sub

여기에서 schemecolor 속성을 사용하여 모양을 채색했습니다. 물론 명시적인 RGB 색상도 사용할 수 있습니다.

나중에 도트를 라인으로 연결하려면 도트를 움직이고 도트를 이동해야합니다.

Sub LineWithEndType()
    ActiveWindow.Selection.SlideRange.Shapes.AddLine(195.62, 162.25, 439.38, 309.75).Select
    With ActiveWindow.Selection.ShapeRange
        .Line.Visible = msoTrue
        .Fill.Transparency = 0#
        .Line.BeginArrowheadStyle = msoArrowheadOval
        .Line.EndArrowheadStyle = msoArrowheadOval
        .Line.BeginArrowheadLength = msoArrowheadLong
        .Line.BeginArrowheadWidth = msoArrowheadWide
        .Line.EndArrowheadLength = msoArrowheadLong
        .Line.EndArrowheadWidth = msoArrowheadWide
    End With

End Sub

행운을 빕니다