ShapeRange to return all the shapes in the current selection. Dim objshaperange As Excel.ShapeRange. Set objshaperange = ActiveSheet.Shapes.
確定! 回上一頁