barres d'outils attachées

[POLO]

Bonjour tout le monde,

Est-ce que quelqu'un sait comment on peut attacher une barre d'outil à un doc excel, et à lui seulement. Je voudrais en fait qu'elle disparaisse automatiquement à l'ouverture d'un nouveau document, ou à la fermeture du document auquel elle est attachée.

Merci d'avance.

POLO

 

[michel]

bonsoir Polo

j'espere que le fichier joint répondra à ta demande .

bonne soirée
michel

 

[polo]

Bonjour Michel,

Merci beaucoup pour ton message !
La pièce jointe me montre en effet tout à fait comment gérer les barres d'outils.
Cela m'a permis de virer à l'ouverture du classeur, toutes les barres d'outils que je ne souhaite pas et de charger la mienne.
Il suffit ensuite de faire l'inverse à la fermeture...

J'ai un autre problème que je vais soumettre au forum. sous l'intitulé : "activation d'une macro lors de la sélection". Si tu as une idée, je suis preneur.

Merci

PS : Ton lapin en .gif est assez génial !

 

[nicolas 65]

Bonjour,

J'ai essayé d'attacher la barre d'outils de Michel à mon classeur en recopiant le code. Je voudrais maintenant savoir comment il faut faire lorsque j'ai une image que je voudrais metre dans cette barre d'outil pour plus tard attacher une macro à cette photo.

Merci d'avance pour tout ceux qui voudront bien m'aider à régler ce problème.

 

[nicolas 65]

Au secours
Quelqu'un pourait-il au moins me donner la démarche. C'est relatuvement urgent.
Grand Merci à tout ceux qui pourront me donner une piste.

 

[Nicolas 65]

S'il vous plait.

Merci

 

[Ti]

si je comprends bien, tu veux que l'image qui est sur ta feuille devienne l'icone de ton bouton. Voici comment procéder, mais le résultat ne sera pas terrible :

Private Sub Workbook_Open()
Dim BO As CommandBar
Dim Image1 As CommandBarControl
On Error Resume Next
Set BO = Application.CommandBars.Add("BO")
BO.Position = msoBarFloating
BO.Protection = msoBarNoChangeVisible
With BO
Feuil1.Shapes(1).CopyPicture
Set Image1 = .Controls.Add(msoControlButton)
Image1.PasteFace
End With
End Sub

 

[Nicolas 65]

Bonjour Ti,

Effectivement le résultat est un peu petit. Y-a-t- il un moyen pour agrandir la barre d'outils et les icones?

Merci

 

[Ti]

les icones sont limitées à un format 16x16 dans Excel (un peu plus dans excel 2003).
Le plus simple est de créer une icone spécifique directement dans l'éditeur d'icones intégré, ainsi tu auras exactement ce que tu cherches. Ensuite tu peux copier l'image de l'icone, et la coller dans ta feuille pour la réutiliser comme dans ma macro ci-dessus avec un PasteFace.

 

[Nicolas 65]

Re...

Je ne suis pas très doué pour créer des icones. Quelqu'un connaitrait-il un site où je pourrais trouver des icones libre de droit ayant un format 16x16 que je pourrais utiliser?

Merci