在变量下存储多个形状

Question

VBA 新手，寻求帮助。

我选择了几个形状，进行了修改，然后我想再次选择相同的形状。我希望将最初选择的形状存储在变量下。

Sub TEst()
   ' Call format_select
    'Call Resize_selected_row_Click
Dim S As Shape
    On Error Resume Next
Set S = ActiveSheet.Shapes(Selection)
For Each shp In Selection
    shp.Select
    'Call format_select
Next shp

S.Select
On Error GoTo 0
End Sub