VBA代码大全024：如何用vba打开显示office剪贴板？

我们都知道，当我们复制了内容，如果刚好也打开了office软件，复制的内容会出现在office剪贴板中。

如下图所示

在【开始】选项卡下可以打开office剪贴板，当在excel里面复制内容时，复制的内容会进入到office剪贴板中。

有时候我们希望这个剪贴板根据代码显示，也就是用代码自动打开这个office剪贴板，可以使用如下的代码：

Sub QQ1722187970()
    '作者微信公众号:水星Excel
    Application.CommandBars("Office Clipboard").Visible = True
End Sub

其中Office Clipboard是office剪贴板命令栏的名称，要注意中间有空格。

当然，我们还可以使用上述的方法实现office剪贴板的打开和关闭的切换，代码如下：

Sub office剪贴板的打开关闭切换()
    
    Application.CommandBars("Office Clipboard").Visible = Not Application.CommandBars("Office Clipboard").Visible

End Sub

除了上述方法，还可以使用Application  对象的DisplayClipboardWindow 属性设置剪贴板的显示或者判断剪贴板是否已经打开。

代码如下：

Sub QQ1722187970()
    '作者微信公众号:水星Excel
     '如果剪贴板已经打开
    If Excel.Application.DisplayClipboardWindow = True Then
        MsgBox "你的剪贴板已经打开"
        '关闭剪贴板
        Excel.Application.DisplayClipboardWindow = False
    Else
        MsgBox "你的剪贴板未打开"
        '打开剪贴板
        Excel.Application.DisplayClipboardWindow = True
    End If
End Sub