PowerPoint - VB宏添加OnClick动画来塑造

Question

我正在使用VB宏生成按钮。我生成了很多按钮，每个按钮都有动作 - 转到幻灯片xy。我想以某种方式在点击它们之后标记这些按钮 - 例如将颜色改变为灰度的动画，或者只是简单地改变它们的背景颜色或删除它们 - 我只需将这些按钮标记为单击即可。我不知道如何做到这一点。我正是这样设定目标：

With oshp.ActionSettings(ppMouseClick)
  .Action = ppActionHyperlink
  .Hyperlink.SubAddress = CStr(sldID) & "," & CStr(sldInd) & "," & sldTitle

如何在点击时将动画添加到oshp（操作按钮），或者在点击时执行一些额外的代码（例如按钮删除或背景颜色更改）？