Excel-VBA把所有图形对齐所在单元格左边框

应用场景

把所有图形批量对齐到所在单元格的左边框

知识要点

1：Shape.TopLeftCell 属性 返回一个 Range 对象，它代表位于指定对象左上角下方的单元格

Sub 图片批量对齐()

    Dim sh As Shape  '声明图形对象变量

    For Each sh In ActiveSheet.Shapes  '遍历本表所有图形对象

        sh.Left = sh.TopLeftCell.Left  '使图片的左边距等于其左上单元格的左边距

        sh.Top = sh.TopLeftCell.Top

    Next sh

End Sub