Excel VBA-带组的形状放置行为

我有许多组和按钮连接到数据透视表。我想将所有这些设置为不随单元格移动和调整大小。我正在使用下面的代码来实现这一点。这适用于组，但不能访问组中的按钮

这些按钮位于嵌套组中。如何访问这些组中的按钮

我试过了

Sheet1.Shapes.SelectAll
Selection.UnGroup

。。在代码开头，清除所有组。这允许我更新嵌套在组中的按钮。我如何编写不同的代码来访问各个组中的按钮，而不首先清除页面上的所有组

Group 26          (A group containing slicers and buttons)
  Group box 28    (A Form Control Group Box)
   Group 24       (A Grouping of the buttons)
      btn_do_this
      btn_do_that

有什么想法吗

Private Sub Cmd_Move_and_size_Click()
Dim sh As Shape
Dim StrText As String
For Each sh In ActiveSheet.Shapes
  '  If sh.Type = 12 Then sh.Visible = True 'show button!
   ' Debug.Print (CStr(sh.Type) + " " + sh.Name
   StrText = " Shape will not move and size with cells"
    If sh.Placement <> xlFreeFloating Then
       sh.Placement = xlFreeFloating
       Else
       sh.Placement = xlMoveAndSize
       StrText = " Shape WILL move and size with cells"
    End If
Next
MsgBox StrText
End Sub

Private Sub Cmd\u Move\u和\u size\u Click（）
像形状一样暗淡
将StrText设置为字符串
对于ActiveSheet.Shapes中的每个sh
“如果sh.Type=12，则sh.Visible=True”显示按钮！
'Debug.Print（CStr（sh.Type）+''+sh.Name
StrText=“形状不会随单元格移动和调整大小”
如果sh.是自由浮动的，那么
sh.位置=xl自由浮动
其他的
sh.位置=xlMoveAndSize
StrText=“形状将随单元格移动并调整大小”
如果结束
下一个
MsgBox StrText
端接头