Добавление изображения в примечание ячейки из буфера обмена

[rediffusion]

Нашёл решение неразрешимого казалось бы!

'Заливка картинкой в `Заметку` (диалог):
Sub Note_FiilPictureDialog(control As IRibbonControl)
    Dim img As FileDialog
    Dim i_add As String
    Dim myComm As Comment

    Set img = Application.FileDialog(msoFileDialogFilePicker)
        img.AllowMultiSelect = False
        img.Title = "Выберите изображение!"
        img.Show

    If img.SelectedItems.Count < 1 Then
    Exit Sub

    Else
        i_add = img.SelectedItems(1)
    End If

'Если ячейка содержит `Заметку` удаляем!
    If Not ActiveCell.Comment Is Nothing Then
        ActiveCell.Comment.Delete
    End If

    On Error GoTo nexterr
    ActiveCell.ClearComments

    Set myComm = ActiveCell.AddComment
        With myComm.Shape
          .Height = 110
          .Width = 200
          .AutoShapeType = 1             'форма
'          .Fill.UserTextured
          .Fill.UserPicture i_add        'Заливка картинкой.
          .Line.ForeColor.RGB = RGB(255, 0, 0)
          .DrawingObject.Font.Name = "Consolas"
          .DrawingObject.Font.FontStyle = "normal"
          .DrawingObject.Font.Size = 8
          
          'Эмулировать выбор "Изменить `Заметку`".
           SendKeys "+{F2}"
          Exit Sub
          
nexterr:
        MsgBox "Можно выбирать только изображения!", vbCritical, "Ошибка"
        ActiveCell.ClearComments
        End With
End Sub

[rediffusion]

@EducatedFool

Попробовал самовольно адаптировать под x64 не получилось! Пример того что я накалякал тут.
Посёрфил `Internet`... один чувак пишет:

Этот код не является `VBA` и не будет работать. Найдите "Stephen Bullen's PastePicture" модуль, а затем включите его в свой код.
Это не тривиальный код, поэтому в качестве альтернативы вы можете добавить пустую диаграмму где-нибудь, вставить в нее, а затем экспортировать диаграмму в виде изображения, чтобы вы могли использовать этот файл в качестве источника в своем коде выше.

Ещё нашёл интересный `Add-in` в принципе там есть это всё и больше... только платно всё это дело (видать поэтому не особо кто жаждит делиться кодами такого характера).

[Maksuron]

Сообщение от EducatedFool

Ральф Сэт, там очень много надо в коде менять
в том числе определения переменных внутри функций

Т.е. менять вот такие строки:

Dim h As Long, hPicAvail As Long, hPtr As Long, hPal As Long, hCopy As Long

на 5 строк типа

    #If VBA7 Then
        Dim H As LongPtr, hPicAvail As LongPtr, hPtr As LongPtr, hPal As LongPtr, hCopy As LongPtr
    #Else
        Dim H As Long, hPicAvail As Long, hPtr As Long, hPal As Long, hCopy As Long
    #End If

и так во всех функциях
и еще надо обходить один глюк 64-битных систем

Зачем вам вообще через буфер обмена картинку гонять?
Почему напрямую из файла не вставить?

Здравствуйте! Мне нужен этот макрос (который копирует изображения из буфера в примечание к ячейке), способный работать не только в 32bit, но и в 64bit. Также желательно,чтобы сохранял не в bmp, а в jpg. Хочу узнать, возможно ли это, и какова цена вопроса и сроки (2 варианта цен - с сохранением изображений в jpg и просто адаптация под 64bit). Спасибо.

[Maksuron]

Сообщение от rediffusion

@EducatedFool

Попробовал самовольно адаптировать под x64 не получилось! Пример того что я накалякал тут.
Посёрфил `Internet`... один чувак пишет:

Ещё нашёл интересный `Add-in` в принципе там есть это всё и больше... только платно всё это дело (видать поэтому не особо кто жаждит делиться кодами такого характера).

Мне помогли иностранные коллеги с адаптацией файла на 64 bit. На моей копии программы работает, просьба - проверить у себя. Как сказали, не все Long могут быть LongPtr, и используется oleaut32 вместо olepro32 - теперь ошибки "Буфер обмена пуст" нет, и все работает))) Приложил рабочую копию, вдруг кому пригодится.

[Aleksandr H.]

На практике данный функционал где используется?

[Maksuron]

Aleksandr H.,
Я веду в excel журнал, и мне нужно прикреплять скриншоты из программы. Делать через заливку фона примечания, о чем есть куча "уроков" от индусов на Ютуб - нереально долго. Макрос на вставку файла, который был в свободном доступе ранее - гораздо удобнее, но каждый раз сначала сохранять файл, потом через макрос его искать и вставлять - тоже не оч. А буфер обмена спасает. Макросом, который был описан в этой теме, пользуюсь давно (собственно, здесь его и взял). Но теперь часто приходится работать в офисе 64 бит, и макрос не работал...До недавней поры) Теперь работает.

[EducatedFool]

но каждый раз сначала сохранять файл, потом через макрос его искать и вставлять - тоже не оч

Большинство программ для снятия скриншотов (я пользуюсь бесплатной Lightshot) умеют сохранять в файл.
Просто нажимаете в программе для снятия скриншота не «Скопировать в буфер обмена», а «Сохранить в файл»
И в буфере обмена будет полный путь к созданной картинке

Останется макросом (простым, из 4 строк) вставить картинку в примечание
(первые 2 строки - взять путь из буфера обмена, еще 2 строки - вставить картинку)

Можно, конечно, переделать под 64-битный Office (я это делал), но там много сложного кода, - проще не связываться

PS: Еще вариант, если программа снятия скриншотов не копирует путь к созданному файлу.
В любом случае, созданный файл сохраняется в какую-то одну и ту же папку.
Задача макроса упрощается, - достаточно найти самый свежий файл в папке (по дате создания):
https://excelvba.ru/code/LastFile

[Maksuron]

Сообщение от EducatedFool

Можно, конечно, переделать под 64-битный Office (я это делал), но там много сложного кода, - проще не связываться
https://excelvba.ru/code/LastFile

Спасибо, я понял, и про фишку в Лайтшоте в курсе) Только лично для меня это все равно не очень. И макрос под 64 бит Офис мне уже переделали - я прикрепил его постом выше - он рабочий.

[Alexxxiy]

Maksuron, Спасибо тебе, добрый человек!��

[Vja4eslav]

Maksuron, спасибо!