怎么用vba宏代码在excel中插入直线单边箭头

1、点击开发工具下的VB编辑器进入vba代码编辑窗口。

2、在编辑器窗口的顶部，点击“插入” -> “模块”。

3、在代码编辑窗口输入以下代码，运行即可插入单边箭头。

Sub Macro1()

    ActiveSheet.Shapes.AddShape Type:=msoShapeMixed, Left:=85.5, Top:=37.5, Width:=150, Height:=0

    With .ConnectorFormat

        .BeginDisconnect

        .EndDisconnect

    End With

    .Select

End Sub