クリップボードへ文字列を設定 ／ クリップボードの文字列を取得

' クリップボードへ文字列を設定
Sub SetClipboardText(ByVal Text As String)
    With New DataObject
        .SetText Text
        .PutInClipboard
    End With
End Sub

' クリップボードの文字列を取得
Function GetClipboardText() As String
    On Error Resume Next
    With New DataObject
        .GetFromClipboard
        GetClipboardText = .GetText
    End With
End Function