Прочесть буфер обмена

Function строки_из_буфера()
 
    Dim tempData As DataObject
    Dim s() As String
    
    Set tempData = New DataObject
        
    'получить данные из буфера
    tempData.GetFromClipboard
        
    'разбить данные на строки и поместить в массив
    s() = Split(tempData.GetText, Chr(13) & Chr(10))
        
    'возврат значений
    строки_из_буфера = s()
    
End Function

строки_из_буфера = s()

Forms!Clipf!Result = ClipBoard_GetText
Forms!Clipf.Requery

Sub Добавить_строку_в_буфер_обмена()
 
Dim strCopyString As String
strCopyString = "texраt text"
ClipBoard_SetText strCopyString
 
End Sub

Sub CopyProp()
    Dim str As String
    With ActiveWindow.Selection.ShapeRange(1)
        If .HasChart = msoTrue Then
                str = "CHARTPROP**" & CStr(.Left) & "**" & CStr(.Top) & "**" & CStr(.Width) & "**" & CStr(.Height) 
            ClipBoard_SetText str
        End If
    End With
End Sub
Sub PasteProp()
    Dim str
    Dim pp
    With ActiveWindow.Selection.ShapeRange(1)
        If .HasChart = msoTrue Then
            str = ClipBoard_GetText
            If VBA.Left(str, 11) = "CHARTPROP**" Then
            pp = VBA.Split(str, "**")
                .Left = CSng(pp(1))
                .Top = CSng(pp(2))
                .Width = CSng(pp(3))
                .Height = CSng(pp(4))
            End If
        End If
    End With
End Sub