IPICTURE MSDN CODE

I'veĪlso tried calling 'Invalidate' just to see if it would change anything. Pt->Render (p, hdc, 0, 0, 32, 32, 0, h, w, -h, &rect) Īll the functions succeed (and I get meaningful data out of my IPicture object before calling 'Render'), but no matter what I do, I can't see anything on the screen, and excel always complains the answer to this command didn't return a valid thing. * And render, have also tried different ways. * Set a rect, have tried different ways */ 'OleCreatePictureIndirect', and call 'Render', but nothing happens, can somebody tell me what I'm doing wrong? This is what I'm doing, less error checking and other disturbing things: /* The IPicture object I receive. The Downloads section points to a VB Addin using this technique (and also allowing to automatically restore the last project when launching VB).I'm trying to load an image on a button, so after Excel 'Invoke's my add-in and I identify the request as one to load an image, I read one from disk (just 32x32 pixels BMP file, solid black color, 24BPP) through LoadImage, get an 'Ipicture' object through Your VB Addin buttons and menu items will now be displayed properly. We use a global variable for the COLORMAP because we may have to re-use it if the CommandBarControl changes its state and therefore changes its bitmap. Once we have a 'standard' VB picture, we can copy it to the clipboard and then paste it to the button face. So, you can assign the result of BitmapToPicture to a Picture object variable. It creates an IPicture interface from the bitmap handle (a picture in VB actually points to an IPicture COM interface). BitmapToPicture is a handy function that is partially described and implemented in the MSDN. However, CreateMappedBitmap returns a bitmap handle which we can’t use as-is. Here, we merely translate the bitmap background color (in that case RGB(192, 192, 192)) to the background color of menus and commandbars (which we get from GetSysColor) You can translate as many colors as you wish. The 'from' and 'to' colors are specified in a COLORMAP structure.

IPICTURE MSDN CODE

OleCreatePictureIndirect picdes, iidIPicture, true, IPicįinally, when your addin is about to add the bitmap representing your command in the VB menu or CommandBar, use the following code (assuming that mcbMenuCommandBarCtrl is the target CommandBarControl that you just created).Ĭlipboard.SetData BitmapToPicture(CreateMappedBitmap(App.hInstance, _īMP_ID being the resource identifier of the bitmap.Ī few explanations : CreateMappedBitmap is a Win32 API function creating a new bitmap from an existing bitmap resource by translating specified a specified color to another color. ' Code adapted from HardCore Visual Basic articles in MSDNĭim IPic as IPicture, picdes as PICTDESC, iidIPicture as IID Optional byval hPal as Long = 0) as IPicture Then add the following function to your addin:įunction BitmapToPicture( byval hBmp as Long, _

This declares Win32 API and OLE functions that we’ll need later.

Private Declare Function GetSysColor Lib 'user32' ( byval nIndex as Long) as Long Private Declare Function OleCreatePictureIndirect _ Lib 'comctl32.dll' ( byval hInstance as Long, _ Private Declare Function CreateMappedBitmap _ Since built-in addins display their bitmapped buttons properly, I guessed that there should be a way… Here it is.įirst add the following declarations to your General section in your addin: private Type COLORMAP I have this code: FileName:path & '' & 'image.png', LinkToFile:False, SaveWithDocument:True Selection.ParagraphFormat. This generally makes the button look very ugly, especially when the user has selected a fancy color scheme. int WINAPI ProcessIPictureDisp (HWND hWnd, IPictureDisp lpPic) With this prototype, I don't get lpPic->Type property.

Since we have to use the clipboard to transfer the image to the button, it can’t be an icon. In VC++, my header file and function prototype are: include .

When a VB Addin tries to add a button to a VB commandbar or menu, it has no simple way to properly specify a transparent background for the button or menu item bitmap.

Ipicture msdn