VBA实用小程序50： 在指定的单元格中插入指定的形状

Function AddShapeToRange( _
    ShapeType As MsoAutoShapeType, _
    sAddress As String) As Shape
    With ActiveSheet.Range(sAddress)
        Set AddShapeToRange = _
            ActiveSheet.Shapes.AddShape( _
            ShapeType, _
            .Left, .Top, .Width, .Height)
    End With
End Function

Sub AddShape()
    Dim shp As Shape
    Dim rng As Range
    For Each rng In Range("B2:B184")
        Set shp = AddShapeToRange(rng.Value,"C" & rng.Row)
    Next rng
End Sub