VBA入门到进阶常用知识代码总结44

第44集 图片与图形处理
198、 Shape对象的类型和属性
该对象代表工作表或图形工作表上的所有图形,它是sheets和chart的子对象（属性）。Sheet1.Shapes
Sub t2()
On Error Resume Next
Dim ms As Shape
k = 1
For Each ms In Sheet1.Shapes
k = k + 1
Cells(k, 1) = ms.Name '名称
Cells(k, 2) = ms.Type '类型
Cells(k, 3) = ms.BottomRightCell.Address '右下角在哪个单元格
Cells(k, 4) = ms.TopLeftCell.Address '左上角在哪个单元格
Cells(k, 5) = ms.Hyperlink.Address '链接
Cells(k, 6) = ms.Visible '显示属性
Cells(k, 7) = ms.OnAction '指定的宏名称
Cells(k, 8) = ms.Top '距离窗体顶端距离
Cells(k, 9) = ms.Width '宽度
Cells(k, 10) = ms.Height '高度
Cells(k, 11) = ms.Left '距离窗体左端距离
Next ms
End Sub
199、 图片导入示例
Shape的类型如下表：

Sub 图