1.图形/图片 With ActiveSheet.Shapes.Range(Array("Rectangle 1")) '图片对象 .Width '宽 .Height '高 .Left '左 .Top '上