PowerPoint VBA：如何引用代码所在幻灯片索引设置选项按钮值

• 如果代码写在幻灯片的代码模块中：
  直接用Me关键字引用当前代码所属的幻灯片对象，彻底摆脱硬编码索引的局限。修改后的代码如下：

  Me.Shapes("optnUrgencyHigh").OLEFormat.Object.Value = True
  

  当幻灯片被复制时，副本的代码模块里的Me会自动指向副本幻灯片，无论幻灯片索引怎么变化，代码都能精准找到目标选项按钮。

• 如果代码在标准模块中（比如通过控件事件调用）：
  通过控件的Parent属性向上追溯到幻灯片对象。以选项按钮的点击事件为例：

  Private Sub optnUrgencyHigh_Click()
      Dim targetSlide As Slide
      ' 从控件追溯到所在幻灯片
      Set targetSlide = Me.Parent
      ' 设置选项按钮值
      targetSlide.Shapes("optnUrgencyHigh").OLEFormat.Object.Value = True
  End Sub
  

  这里的Me指代触发事件的选项按钮控件，Me.Parent会返回控件所在的幻灯片对象，完全不受索引变动影响。

内容的提问来源于stack exchange，提问作者jf974