|
|
|
|
|
|
 Code des Clipboard-Objekts
Public Property Get cfRTF() As Long
cfRTF = vbCFRTF
End Property
Public Property Get cfText() As Long
cfText = vbCFText
End Property
Public Sub Clear()
VB.Clipboard.Clear
End Sub
Public Function GetFormat(ByVal Format As Long) As Boolean
On Error Resume Next
GetFormat = VB.Clipboard.GetFormat(Format)
End Function
Public Function GetText(Optional ByVal Format As Variant) _
As String
With VB.Clipboard
If .GetFormat(Format) Then
GetText = .GetText(Format)
End If
End With
End Function
Public Sub SetText(Text As Variant, _
Optional ByVal Format As Variant, _
Optional ByVal ClearClipboard As Boolean = True)
With VB.Clipboard
If ClearClipboard Then
.Clear
End If
.SetText Text, Format
End With
End Sub
|
|
|