Скопировать файл в буфер обмена

[cw_o]

Нужно скопировать файл (битмап) в буфер обмена для последующей его специальной вставки с линком. Вариант со вставкой типа Selection.InlineShapes.AddPicture не катит, поскольку там связывание другое получается. Итак, получаю имя файла примерно так:

    Dim fs, f, f1, fc, s, dateTime, name, folder
    folder = "D:\Work\Screenshots\"
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folder)
    Set fc = f.Files
    For Each f1 In fc
        dateTime = f1.DateLastModified
        name = f1.name
    Next

Дальше осталось поместить его в буфер обмена. Возможно ли это вообще?

[Казанский]

Линк на содержимое буфера обмена?! Это как: есть в буфере битмап - он отображается в документе, нет битмапа - не отображается?

[cw_o]

нет, линк будет на файл в файловой системе. Просто чтобы сделать специальную вставку, нужно чтобы данные были в буфере обмена.