VB-绕点旋转线

Question

我需要在VB Excel中绕其终点旋转一条水平线。 我尝试了各种在Internet上找到的解决方案，但效果不佳。

我给你一些关于我想做什么的图片：

这是我的台词：
点A（72; 378）
B点（165; 378）

我想将点A绕点B旋转，旋转角度是可变的。例如，这是60度旋转

在截图后使用照片编辑器添加了字母A和B

Answer 1

尝试一下。

Sub test()
    Dim x As Single, y As Single
    Dim nx As Single, ny As Single, l As Single
    Dim i As Single, ra As Single
    Dim Ws As Worksheet
    Dim shp As Shape

    Set Ws = ActiveSheet
    For Each shp In Ws.Shapes
        If shp.Type = msoLine Then
            shp.Delete
        End If
    Next
    x = 165
    y = 378
    l = 165 - 72
    For i = 90 To 150
        ra = WorksheetFunction.Radians(i)
        nx = x - Sin(ra) * l
        ny = y + Cos(ra) * l
        Set shp = Ws.Shapes.AddLine(x, y, nx, ny)
        With shp
            .Line.EndArrowheadStyle = msoArrowheadTriangle
            .Line.ForeColor.RGB = RGB(255, 0, 0)
            .Line.Weight = 2
        End With
        DoEvents
        Application.Wait Now + (TimeSerial(0, 0, 1) / 2)
        shp.Delete

    Next i
    Set shp = Ws.Shapes.AddLine(x, y, nx, ny)
    With shp
        .Line.EndArrowheadStyle = msoArrowheadTriangle
        .Line.ForeColor.RGB = RGB(255, 0, 0)
        .Line.Weight = 2
    End With
End Sub