barres d'outils attachées

M

michel

Guest

• 8 Novembre 2003

• #2

bonsoir Polo

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

bonne soirée
michel

 

Pièces jointes

• barre_outils_v02.zip

  11.6 KB · Affichages: 206

Dernière modification par un modérateur: 3 Mai 2019

Vote positif 0 Vote négatif

P

polo

Guest

• 9 Novembre 2003

• #3

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 !

 

Vote positif 0 Vote négatif

N

nicolas 65

Guest

• 16 Septembre 2004

• #4

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.

 

Pièces jointes

• email.zip

  34.1 KB · Affichages: 15

Vote positif 0 Vote négatif

N

nicolas 65

Guest

• 17 Septembre 2004

• #5

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.

 

Vote positif 0 Vote négatif

N

Nicolas 65

Guest

• 19 Septembre 2004

• #6

S'il vous plait.

Merci

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 19 Septembre 2004

• #7

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

 

Vote positif 0 Vote négatif

N

Nicolas 65

Guest

• 19 Septembre 2004

• #8

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

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 19 Septembre 2004

• #9

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.

 

Vote positif 0 Vote négatif

N

Nicolas 65

Guest

• 19 Septembre 2004

• #10

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

 

Vote positif 0 Vote négatif