如何在 Power Point VBA 中创建点，将它们向不同方向移动，同时保持它们与直线连接？

Question

我想在 PowerPoint VBA 中做一件事。

我想在主窗口中创建两个点 - 点 A 和点 B - 通过它们给定的坐标：例如，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

希望有帮助
祝你好运麦克D