03-17-2022
02:47 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
03-17-2022
02:47 PM
Thanks Krieg.
Can you please inform me how I can add this to an Excel cell?
This is what I tried:
'----------------------------------------------------------------------------------------------------
' Add Picture
Dim oThumb As stdole.IPictureDisp
Do
oThumb = oDoc.Thumbnail
Loop While oThumb.Handle<0
Dim myPict As New AxHostConverter
Dim oImage As System.Drawing.Image=myPict.GetImageFromIPictureDisp(oThumb)
oImage.Save("C:\TEMP\bmptest.bmp",System.Drawing.Imaging.ImageFormat.Bmp)
oCells.Item(j + 2, 1).Value = oImage