macos - 如何在mac excel vba上清除剪贴板

Question

Application.CutCopyMode=False在 windows excel 上清除虚线，剪贴板数据丢失，这是可取的。

但对于 Mac OS，情况并非如此。在 Mac 上，它会清除虚线，但剪贴板数据不会丢失。

是否有一行或任何方法可以清除 mac 和 windows 上的剪贴板？

Answer 1

我找到了这个代码 here ，我没有或没有使用 Mac，所以我无法对此进行测试，但通过阅读代码，它会将“”(换句话说，没有)分配给这个剪贴板。

希望这有效，或者至少让你朝着正确的方向前进

Public Function ClearMacClipBoard() As Boolean
    Dim myDO As DataObject

    On Error GoTo EndCMCB
    Set myDO = New DataObject
    myDO.SetText ""
    myDO.PutInClipboard
    Application.CutCopyMode = False
    ClearMacClipBoard = True
EndCMCB:
    On Error GoTo 0
End Function

编辑:

从评论略有变化，尝试在 Windows 和 Mac 上工作

这应该跳过任何会正常出错的代码行，因此当您尝试在 Windows 上运行 Mac 代码时，它只会跳过它，反之亦然

Public Function ClearMacClipBoard() As Boolean
    Dim myDO As DataObject

    On Error GoTo Resume Next
    Set myDO = New DataObject
    myDO.SetText ""
    myDO.PutInClipboard
    Application.CutCopyMode = False
    ClearMacClipBoard = True
    On Error GoTo 0
End Function