如何修改Visio的Ctrl+C/X/V仅实现形状文本的剪切/复制/粘贴？

简而言之：能否重新设置Visio的剪切/复制/粘贴功能仅传输形状文本？

我的Visio中有一些包含重复数据的形状（例如：日期/时间块）。用户习惯使用标准复制粘贴方法填充这些块，但会意外复制形状。部分受保护的形状还需要执行撤销操作才能移除，这十分令人困扰。我希望能够切换Ctrl + C/X/V（最好同时包含UI元素）的功能，使其仅传输形状文本，以避免此类问题。

当前尝试的代码实现 #

我目前使用Window.KeyUp事件来处理此需求，以下是简化版代码：

Private Sub vsoWindow_KeyUp(ByVal KeyCode As Long, ByVal KeyButtonState As Long, CancelDefault As Boolean)
    Dim shp as Visio.Shape: Set shp = ActiveWindow.Selection.PrimaryItem
    
    If shp is Nothing Then Exit Sub                           '未选中任何内容
    If KeyButtonState <> visKeyControl Then Exit Sub          '未按住Ctrl键
    
    Select Case KeyCode
        Case vbKeyC: CopyShapeText shp
        Case vbKeyX: CutShapeText shp                         '无法生效，形状保护会先触发
        Case vbKeyV: PasteShapeText shp
    End Select
End Sub

模块中的辅助函数如下：

Private Declare PtrSafe Function OpenClipboard Lib "User32" (ByVal hwnd As Long) As Long
Private Declare PtrSafe Function EmptyClipboard Lib "User32" () As Long
Private Declare PtrSafe Function CloseClipboard Lib "User32" () As Long
Private shpText as String

Sub CopyShapeText(shp As Visio.Shape)
    shpText = shp.Text
    ClearClipboard
End Sub

Sub CutShapeText(shp as Visio.Shape)
    shpText = shp.Text
    shp.Text = ""
    ClearClipboard
End Sub

Sub PasteShapeText(shp as Visio.Shape)
    shp.Text = shpText
End Sub

Sub ClearClipboard()
    DoEvents
    OpenClipboard 0
    EmptyClipboard
    CloseClipboard
End Sub

遇到的问题 #

• 复制/粘贴功能可以运行，但操作不够流畅。有时即使按住CTRL键，功能也不会触发。
• 剪切功能无法生效，因为形状保护会在事件触发前拦截操作。

已尝试的其他方案 #

• 使用KeyDown事件：完全无法触发（能检测到CTRL键，但无法检测CTRL + C组合键），而且可能无法正确清空剪贴板。
• 使用Application.EnterScope：遇到同样的问题，且粘贴时的ScopeID不一致。
• 直接使用新快捷键：采用CTRL+Shift+C/X/V的方案可行，但用户接受度不高。

更新 #

经过考虑，我决定采用直接方案，使用CTRL+Shift+C/X/V快捷键为用户提供灵活性。我已在下方发布了详细的解决方案，但关于拦截原有操作的核心问题仍未得到解答。

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