03-17-2022
03:19 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
03-17-2022
03:19 PM
Sorry Krieg, here I am again.
I see that PNG is also possible with some of the same file sizes like max 400 Kb, so that's great.
Then I like to know how to get these in or over a cell.
Thanks in advance.
'---------------------------------------------------------------------------
' 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)
oImage.Save(pair.Key & "-Test.Png",System.Drawing.Imaging.ImageFormat.Png)
'oCells.Item(j + 2, 1).Value = oImage