Perhaps using Shape.TopLeftCell , something like this: Sub CenterImages() Dim shp As Shape For Each shp In ActiveSheet.Shapes If shp.
確定! 回上一頁