Determine if clipboard object is text or image before pasting

[tomleitch]

Hi all,

Had a bit of a google but not sure if this is possible or not...

I have a sheet that imports data that is copied to the clipboard from another sheet... the other sheet data will open in protected view - so if people don't click enable editing then it copies the selection as an image and the workbook doesn't like it when it tries to import it.

It tries to paste it into my "import" sheet as an image and it makes autosave not work and causes errors.

Is there any way to determine if the clipboard content is an image or text before it is pasted into the sheet?


Thanks
Tom

 

[Jaafar Tribak]

You could perhaps use this custom function :

Function IsTextInClipBoard() As Boolean

    Dim sClipText As String
    
    On Error Resume Next
    With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        sClipText = .GetText
        IsTextInClipBoard = sClipText <> vbNullString
    End With

End Function


Sub Test()
    MsgBox IsTextInClipBoard
End Sub

 

[tomleitch]

Hi Jaafar

Only just seen your reply to my thread, I somehow missed it.

Thanks for your help


Cheers