VBA实用小程序67：绘制任意形状和箭头线

Sub MakeArch()
    Dim oFFB As FreeformBuilder
    '创建新的任意形状
    Set oFFB =ActiveSheet.Shapes.BuildFreeform(msoEditingCorner, 100, 300)
    '添加线条到创建的形状中
    With oFFB
        .AddNodes msoSegmentLine,msoEditingAuto, 100, 200
        .AddNodes msoSegmentCurve,msoEditingCorner, 150, 150, 0, 0, 200, 200
        .AddNodes msoSegmentLine,msoEditingAuto, 200, 300
        .AddNodes msoSegmentLine,msoEditingAuto, 100, 300
       '将其转换为形状
       .ConvertToShape
    End With
End Sub

Sub AddAndFormatLine()
    Dim oShp As Shape
    Dim oLF As LineFormat
    '添加线条形状
    Set oShp = ActiveSheet.Shapes.AddLine(100,100, 200, 250)
    '获得线条格式对象
    Set oLF = oShp.Line
    '设置线条格式
With oLF
  .BeginArrowheadStyle = msoArrowheadOval
  .EndArrowheadStyle =msoArrowheadTriangle
  .EndArrowheadLength = msoArrowheadLong
  .EndArrowheadWidth = msoArrowheadWide
  .Style = msoLineSingle
End With
End Sub