Вот это кладу в буфер: https://prnt.sc/vpktd1 _______________________________________________________________________________ А вот это вставляется: https://prnt.sc/vpkuo0 _______________________________________________________________________________ Мсджбокс показывает верно: https://prnt.sc/vpkv0n ________________________________________________________________________________ В винде вставляется верно: https://prnt.sc/vpkvbg
Пробовал переустановить офис, думал что библиотека косячит. Не помогло. Мною дополнительно был задан этот вопрос в телеграмм канале https://t.me/eh_chat ответа нет Прошу прощения картинки почему-то не вставлялись никакие - пишет что превышен максимальный размер изображения
так. А где же Вы код запускаете? Не в винде? Пробовали Obj передавать как String? Другой тип передавать все равно ведь смысла нет - встроенный DataObject все равно другие типы не понимает. Плюс непонятно как Вы в ячейку текст помещаете - кода такого нигде не видать. Типа догадайтесь: через код или руками делаю вставку.
P.S. Не прикладывать сам файл с кодом, а только картинки - вообще не понимаю подобный подход...
Вот еще нашел тему, в которой предложено и возможное лекарство (альтернативный способ для помещения текста в буфер обмена), А в этом сообщении выдвинута гипотеза о возможной причине этой беды.
Есть еще такой вариант функций для надежной работы с буфером обмена:
Код
Function SetClipBoardText(ByVal Text As Variant) As Boolean
SetClipBoardText = CreateObject("htmlfile").ParentWindow.ClipboardData.SetData("Text", Text)
End Function
Function GetClipBoardText() As String
On Error Resume Next
GetClipBoardText = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("Text")
End Function
Function ClearClipBoardText() As Boolean
ClearClipBoardText = CreateObject("htmlfile").ParentWindow.ClipboardData.СlearData("Text")
End Function