shapes与shaperange区别

dogingate

不错，一直没有搞懂，原来如此啊
Sub test()
Dim strFilePathAndName As String
Dim oShp As Object
Dim oShpRng As Object
strFilePathAndName = ThisWorkbook.Path & "\" & "test.JPG"
With Worksheets("test")
    Set oShp = .Shapes.AddShape(msoShapeRectangle, 50, 50, 800, 200)
    oShp.Name = "桩1"
    Set oShpRng = .Shapes.Range(Array("桩1"))
    oShpRng.Fill.UserPicture strFilePathAndName
End With

End Sub

jiangjiang211

不错，记号学习。