ShapeRange Set S_RNG = ActiveWindow.Selection.ShapeRange S_W = S_RNG.Width S_L = S_RNG.Left S_T = S_RNG.Top End Sub Sub Paste_Shape() Dim S_RNG As ...
確定! 回上一頁