Can we place an Icon and a Caption on a CommandButton ?

[Jaafar Tribak]

Hi,

I have a commandbutton on a userform and I want place on it an icon and a descriptive text below it.

Based on a couple of testings, I managed to add an icon to the commandbutton without obscuring the caption text BUT it only works if the icon is very small (16x16) which results in a slightly blurry icon due to the icon small size ... Adding a bigger sharper icon doesn't seem to work as it completly obscures the caption text.

Any ideas\workarounds ?

Regards.

 

[diddi]

what if you superimposed a transparent label over the commandbutton and transfer the event back to the commandbutton code, that way the icon can be bigger and the text can be fitted to a light area... just thinking out loud here

 

[Jaafar Tribak]

what if you superimposed a transparent label over the commandbutton and transfer the event back to the commandbutton code, that way the icon can be bigger and the text can be fitted to a light area... just thinking out loud here

Thanks diddi.

That sounds like a good workaround, but might be a little tricky to implement for multiple buttons added at runtime.

This is for a little game involving the creation of images and buttons on the fly.

 

[Logit]

 

[diddi]

"but might be a little tricky to implement for multiple buttons added at runtime."
i guess as a beginner you might find that

 

[Jaafar Tribak]

Thanks.

I saw that video already while searching the net before posting my question here, but I was looking at something that would allow for larger icons/bitmaps and that would felxibly allow for assigning the icon + text programmatically at runtime.

 

[Logit]

The following will create a button on the active sheet and assign text :

Sub butonekle()
ActiveSheet.Buttons.Add(11.5, 3.25, 80.75, 26.25).Select
Selection.OnAction = "formac"
Selection.Characters.Text = "Form"
Sayfa1.Buttons.Copy
For i = 2 To Sheets.Count
    Sheets(i).Activate
    Range("a1").Select
    ActiveSheet.Paste
    Range("A1").Select
Next
End Sub

You should be able to add the button image in the code as well.

Don't know if this will assist any : Dynamic macro button label