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

3、在代码编辑窗口输入以下代码,运行即可插入单边箭头。Sub Macro1() ActiveSheet.Shapes.AddShape Type:=msoShapeMixed, Left:=85.5, Top:=37.5, Width:=150, Height:=0 With .ConnectorFormat .BeginDisconnect .EndDisconnect End With .SelectEnd Sub

1、点击开发工具下的VB编辑器进入vba代码编辑窗口。
3、在代码编辑窗口输入以下代码,运行即可插入单边箭头。Sub Macro1() ActiveSheet.Shapes.AddShape Type:=msoShapeMixed, Left:=85.5, Top:=37.5, Width:=150, Height:=0 With .ConnectorFormat .BeginDisconnect .EndDisconnect End With .SelectEnd Sub