barre personnalisée

joums · 27 Novembre 2010

Bonjour à tous,
je souhaite créer une barre personnalisée avec des boutons et images

Question 1:
Le code ci-dessous marche sous excel 2003 et + mais pas sous excel 2000 pourquoi ?

Code:

  Dim CmdBar As CommandBar
 
    Dim Bouton As CommandBarButton
     Dim picImage1 As IPictureDisp
 Set picImage1 = LoadPicture("F:\image1.gif")

 'Création de la barre d'outils nommée 'MaBarrePerso'
    Set CmdBar = Application.CommandBars _
        .Add(Name:="MaBarre", Position:=msoBarTop, Temporary:=True)
    
    'Ajout de X boutons dans la barre d'outils
    Set Bouton1 = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton1
        'Définit "l'image" qui va s'afficher sur le bouton
            .Picture = picImage1 'c'est ici que ca bug
        

        'Définit quelle macro est associée au bouton.
        'Cette macro sera lancée à chaque fois que vous cliquez sur le bouton.
        .OnAction = "Macro1"
    End With
 CmdBar.Visible = True
End Sub

Question 2 :
Est-il possible d'agrandir l'image du bouton qui est par défaut 16 x 16

Merci de votre aide

kjin · 27 Novembre 2010

Re : barre personnalisée

Bonjour,
Essaies peut-être ceci

Code:

Sub Macro1()
Dim CmdBar As CommandBar
Dim Bouton As CommandBarButton
Dim Img As Object
'Création de la barre d'outils nommée 'MaBarrePerso'
Set CmdBar = Application.CommandBars _
.Add(Name:="MaBarre", Position:=msoBarTop, Temporary:=True)
'Ajout de X boutons dans la barre d'outils
Set bouton1 = CmdBar.Controls.Add(Type:=msoControlButton)
Set Img = ActiveSheet.Pictures.Insert("F:\image1.gif")
Img.Copy
With bouton1
    .PasteFace
    .OnAction = "Macro1"
End With
Img.Delete
CmdBar.Visible = True
End Sub

A+
kjin

joums · 27 Novembre 2010

Re : barre personnalisée

Merci pour ton aide,

effectivement cela marche, je connaissais cette méthode mais ce qui me soucis c'est que l'image est copiée dans un 1er temps dans la feuille, et on la voit apparaitre ce que je ne souhaite pas.

Le code pourtant marche sous excel 2003 ?

kjin · 27 Novembre 2010

Re : barre personnalisée

Re,
Sauf que c'est la seule qui existe sous 2000 !
Maintenant, rien ne t'empêche de désactiver le rafraîchissement d'écran en début de procédure.
A+
kjin

joums · 27 Novembre 2010

Re : barre personnalisée

kjin à dit:
Re,
Sauf que c'est la seule qui existe sous 2000 !
Maintenant, rien ne t'empêche de désactiver le rafraîchissement d'écran en début de procédure.
A+
kjin

Ok je m'en doutais, je vais désactiver le rafraîchissement comme tu me le conseilles.

Encore merci pour ces informations.

Saurais-tu s'il est possible d'agrandir les icônes ?

JNP · 27 Novembre 2010

Re : barre personnalisée

Bonsoir le fil ,

joums à dit:
Saurais-tu s'il est possible d'agrandir les icônes ?

Juste pour taquiner un peu ...
Passes sous 2007 ou 2010 !
Sinon, au lieu d'une CommandBar, passe par un USF non modal .
Bonne soirée

barre personnalisée

joums

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

joums

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

joums

XLDnaute Occasionnel

JNP

XLDnaute Barbatruc

Discussions similaires