как я пробовал делать: на форме поместил Свободную рамку объекта.
- Код: Выделить всё
OLE1.Class = "Pbrush"
OLE1.OLETypeAllowed = acOLEEmbedded
OLE1.Action = OLE_CREATE_FROM_FILE
OLE1.SourceDoc = strFilePath
...
OLE1.SetFocus
DoCmd.RunCommand acCmdCopy
В итоге получается, что в рамку вставляется иконка файла, хотя свойство Тип вывода = Содержимое. А класс автоматически сменяется на "HTML Document" В некоторых случаях - "Package". И отображать картинку отказывается
меня вполне устроила бы какая-нибудь API-функция без использования OLE и форм..