Creating Custom Button Image

[glen.comerford]

Hey all,

Could anyone help with custom button images? I did create an add-in by using the image in the add-in and then using the "paste face"script. However, that method has its limitations! Is there any other method?

Thanks!

[martindwilson]

what buttons? what addin did you use?

[royUK]

Andy Pope's Button Editor might help

[Andy Pope]

What are the limitations that you have encountered?

[glen.comerford]

HI all,

I tried copying a picture into the add in file i created and wrote a script to paste that picture as a button image every time the add-in opens (i.e. when excel is loaded after the add in is installed) . However, since the image is copied in the clipboard, whenever a user performs a first operation on a sheet as "paste", the picture gets pasted in the current working (new)sheet. I'm looking for another way!

[glen.comerford]

Also, since I need to install the add-in on multiple computers, I need to be able to change the image right in the source add-in file!

[Andy Pope]

So maybe the solution is to clear the clipboard after pasting your image.

Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Sub ClearClipboard()
    Dim lngHWnd As Long
    
    lngHWnd = FindWindow("XLMAIN", Application.Caption)
    OpenClipboard lngHWnd
    EmptyClipboard
    CloseClipboard

End Sub

[glen.comerford]

Thanks Andy, this works - a great idea!