Iconbes personnalisées dans une barre d'outil sous excelRésolu

Question

Bonjour &#224; tous,

Alors voil&#224;, j'ai d&#233;j&#224; pos&#233; plusieurs fois ma question mais je n'ai jamais obtenu de r&#233;ponse (sniffff ).
Donc je la repose, au cas o&#249; quelqu'un aurait la solution...
Voil&#224; mon probl&#232;me : j 'ai cr&#233;e une macro sous Excel qui charge une commandbar au d&#233;marrage, mais les icones sont d&#233;finies par .FaceID=... et sont pas franchement terribles. Je voudrais donc les remplacer par des icones personnalis&#233;es. Quelqu'un saurait-il comment faire ?

Merci par avance pour votre aide

Utilisateur anonyme · Accepted Answer

Bonsoir,



Utilise tout simplement la propri&#233;t&#233; Picture et Mask

TonBouton.Picture = ...

TonBouton.Mask = ...



ChRB
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

Chouchensb · Answer

Salut ChRB,

Tout d'abord, merci de m'avoir r&#233;pondu  (je commencais &#224; &#234;tre desesp&#233;r&#233;...).
Voici le code que j'utilise pour cr&#233;er ma barre d'outil sous Excel. Pourrais-tu me dire comment utiliser les propri&#233;t&#233;s picture et mask dans ce code pour modofier l'apparence du bouton set-up...

    Dim Button_modification As Variant
    
   'Cr&#233;ation de la barre de commande 
   Application.CommandBars.Add(Name:=COMMAND_BAR_NAME).Visible = True
    With Application.CommandBars(COMMAND_BAR_NAME)
        .Controls.Add(Type:=msoControlButton).Caption = "Setup"
    End With


    'Set-up des boutons
    Set Button_modification = Application.CommandBars(COMMAND_BAR_NAME).Controls("Setup")
    With Button_modification
        .FaceId = 271
        .TooltipText = "General setup"
        .OnAction = "Macro_Setup"
        .Style = msoButtonIconAndCaption
    End With

Chouchensb · Answer

Bon, en fait, en regardant dans l'aide d'Excel, j'ai trouv&#233; des exemples (sorry !)
Donc si j'utilise le code recopi&#233; ci-dessous, &#231;a a l'air de marcher (cool !!!)

Juste deux derni&#232;res petites questions:
- Est-il possible d'utiliser un fichier .ico &#224; la place d'un bmp ? (sinon, comment puis g&#233;n&#233;rer les fichiers bmp n&#233;cessaires, existe il un logiciel ad&#233;quat?)
-  Ma macro s'installe &#224; partir d'un seul fichier .xla (le fichier .xla contient le code d'installation, de d&#233;sinstallation et les macros proprement dites): est-il possible d'incorporer les fichiers images des boutons dans le fichier .xla ou bien est-on contraint de les avoir d&#233;j&#224; pr&#233;sents sur le disque dur ?

-----------------------------
Voici mon code modifi&#233;:

   Dim Button_modification As Variant
   Dim picPicture As IPictureDisp   
 
   'Cr&#233;ation de la barre de commande 
   Application.CommandBars.Add(Name:=COMMAND_BAR_NAME).Visible = True
    With Application.CommandBars(COMMAND_BAR_NAME)
        .Controls.Add(Type:=msoControlButton).Caption = "Setup"
    End With 
    'Set-up des boutons
    Set picPicture = stdole.StdFunctions.LoadPicture( "d:\windows\image.bmp")
    Set Button_modification = Application.CommandBars(COMMAND_BAR_NAME).Controls("Setup")
    With Button_modification
        .Picture = picPicture
        .TooltipText = "General setup"
        .OnAction = "Macro_Setup"
        .Style = msoButtonIconAndCaption
    End With

Chouchensb · Answer

Bon,

En fait, j'ai trouv&#233; les r&#233;ponses &#224; mes questions:
- Pour cr&#233;er des fichiers bmp, il y a tout plein d'&#233;diteur d'icones dispos sur le net
- Pour int&#233;grer lesfichiers icones dans le fichier .xla, il suffit de cr&#233;er une feuille, d'y incroporer des images et de r&#233;cup&#233;rer ces images pour en faire les icones des boutons.

En tout cas, merci pour ton coup de pouce ChRB, &#231;a m'a d&#233;bloqu&#233; !

Iconbes personnalisées dans une barre d'outil sous excel

4 réponses

Discussions similaires