Как работать с буфером

Чтобы получить текст из буфера:

Text = Clipboard.GetText

Чтобы получить картинку:

Picture1.Picture = Clipboard.GetData

Чтобы записать текст или картинку нужно вначале очистить буфер:

Clipboard.Clear
Clipboard.SetText Text

Аналогично для картинки:

Clipboard.Clear
Clipboard.SetData Picture1.Picture

Немного иначе работа с буфером происходит в VBA:

Dim Clipboard As New DataObject
Dim Text As String

' Чтобы считать текст
Clipboard.GetFromClipboard
Text = Clipboard.GetText

' Чтобы записать текст
Text = "hello"
Clipboard.SetText Text
Clipboard.PutInClipboard