vba：图形基础，姓名导入图片

'Shapes 对象
'指定的工作表上的所有 Shape 对象的集合。
'说明
'每个 Shape 对象都代表绘图层中的一个对象，如自选图形、任意多边形、图片、图表等。

Sub abc()
Dim ob As Shape
n = Sheet1.Shapes.Count
For Each ob In Sheet1.Shapes
    k = k + 1
    ob.Select
    Cells(k + 1, "f") = ob.Name     '图形名称
    Cells(k + 1, "g") = ob.Type     '图形类型
    Cells(k + 1, "h") = ob.Top      '顶端坐标
    Cells(k + 1, "i") = ob.Left     '左端坐标
    Cells(k + 1, "j") = ob.Width    '宽度
    Cells(k + 1, "k") = ob.Height   '高度
Next ob
End Sub

 

Sub 图形插入()
Sheet3.Sha