Below is what I am trying to use. Sub Start() Dim s As Shape Dim sr As ShapeRange ' ActivePage.Shapes.All.CreateSelection. Set sr = ...
確定! 回上一頁