stdImage improvements

[sancarn]

Tracker

• CreateFromBinary(ByRef b() As Byte, ByVal format as stdImgFormat) As stdImage
• CreateFromDataURL(ByVal sURL as string) as stdImage
• CreateFromFile(ByVal sPath As String, Optional ByVal format as stdImgFormat = stdImgFormatDefault, optional byval transparentColor as Long = 0) As stdImage
  • BMP, GIF, JPEG, PNG, TIFF, WMF, EMF
  • WEBP
• CreateFromUrl(ByVal sURL As String, Optional ByVal format as stdImgFormat = stdImgFormatDefault) As stdImage
  • AutoProxy?
  • Possibly remove? stdHTTP should really be used...
• CreateFromHBitmap(ByVal hBitmap As LongPtr) As stdImage
• CreateFromClipboard() As stdImage
• CreateFromIPictureDisp(ByVal picture As stdole.IPictureDisp) As stdImage
  • Need an example
• CreateFromStdPicture(ByVal picture As stdole.stdPicture) As stdImage
• CreateFromIPicture(ByVal picture As stdole.IPicture) As stdImage
  • Need an example
• CreateFromExcelIPicture(ByVal picture As Excel.IPicture) As stdImage
  • Need an example
• CreateFromShape(ByVal shp As Object) As stdImage
• CreateFromChart(ByVal chart As Object) As stdImage
• CreateFromHICON(ByVal hicon as LongPtr) as stdImage
• Get HBitmap() as LongPtr
• Get HICON() as LongPtr
• ToBinary(Optional ByVal eFormat As stdImgFormat = stdImgFormatDefault) As Byte()
  • Remove hack
• ToFile(ByVal FileName As String, Optional format As stdImgFormat = stdImgFormatDefault, Optional ByVal Quality As Byte = 80, Optional ByVal TIFF_ColorDepth As Long = 24, Optional ByVal TIFF_Compression As Long = 6)
• ToClipboard()
  • Remove hack
• ToTempFile(Optional ByVal eFormat As stdImgFormat = stdImgFormatDefault) as string
• ToSheet(ByVal ws as Worksheet, Optional ByVal Top as Double = 0 , Optional ByVal Left as Double = 0, optional ByVal compress as MsoPictureCompress) as Object
• ToUIControl(Byval oControl as object)
• ToDataUrl(Optional ByVal eFormat As stdImgFormat = stdImgFormatDefault) as string
• ToShapeFill(ByVal shp As Object)
• ToStdPicture() as stdole.StdPicture
• CreateFromScreen() - I.E. Screenshot
• CreateFromWindow(ByVal hwnd as LongPtr) - Create screenshot from window
• Colors() as Long() - Obtain colors from image

Resources

https://stackoverflow.com/questions/1507385/how-do-i-convert-a-stdole-stdpicture-to-a-different-type

[sancarn]

Some examples functional now:

Private Sub UserForm_Initialize()
  With stdWindow.CreateFromIUnknown(Me)
    Call .setOwnerHandle(0)
    .HICON = stdWindow.CreateFromHwnd(Application.VBE.MainWindow.hWnd).HICON
'    .HICON = stdImage.CreateFromStdPicture(Image1.picture).HICON
'    .HICON = stdImage.CreateFromShape(Sheet1.Shapes("Picture 2")).HICON
'    .HICON = stdImage.CreateFromFile("C:\Users\sancarn\Pictures\yuumi.png").HICON
    
    Image1.PictureSizeMode = fmPictureSizeModeStretch
    Set Image1.picture = stdImage.CreateFromShape(Sheet1.Shapes("Picture 2")).ToStdPicture
'    Set Image1.picture = stdImage.CreateFromFile("C:\Users\sancarn\Pictures\yuumi.png").ToStdPicture
    
    Call stdImage.CreateFromShape(Sheet1.Shapes("Picture 2")).ToFile("C:\Temp\poop.png")
    Call stdImage.CreateFromShape(Sheet1.Shapes("Picture 2")).ToFile("C:\Temp\poop.bmp")
    Call stdImage.CreateFromShape(Sheet1.Shapes("Picture 2")).ToFile("C:\Temp\poop.jpeg")
    Call stdImage.CreateFromShape(Sheet1.Shapes("Picture 2")).ToFile("C:\Temp\poop.tiff")
  End With
End Sub