Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

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