je souhaite modifier le faceid d'un bouton d'une barre d'outils fraîchement créée.
Qu'est-ce qui ne va pas dans mon code ? CommandBars("nombarreoutils").nombouton.FaceId = 343
Merci d'avance !
Modeste
Bonsour® Microsoft VBA Excel avec ferveur ;o))) vous nous disiez :
je souhaite modifier le faceid d'un bouton d'une barre d'outils fraîchement créée. Qu'est-ce qui ne va pas dans mon code ? CommandBars("nombarreoutils").nombouton.FaceId = 343
une procédure éprouvée d'un de nos plus eminent MPV francophone: 'Attribute VB_Name = "BOAvecIconePersonnalisee" 'Comment faire référence à ce bouton personnalisé dans l'instruction Faceid ?
Public Const nomBO = "MaBarreOutils" 'fs, mpfe Sub CreateBO() Dim bo As CommandBar, wbk As Workbook On Error Resume Next deleteBO 'en cas de plantage d'Excel :-)
Set bo = Application.CommandBars.Add(nomBO)
' (Noms et chemins à adapter) ' 1-ouvrir le classeur "spécial icones" Set wbk = Workbooks.Open("E:Cheni2001Boeticonesexcel.xls") ' 2-copier l'icone voulue wbk.Worksheets("Feuil1").Shapes("Image 97").Copy ' 3-refermer le classeur "spécial icones" wbk.Close False
With bo.Controls.Add(msoControlButton) .Caption = "LanceMacro1" ' coller l'icone personnalisée .PasteFace .OnAction = "Macro1" End With bo.Visible = True End Sub
Sub Macro1() MsgBox "Et voilà le travail !" End Sub
Sub deleteBO() On Error Resume Next Application.CommandBars(nomBO).Delete End Sub'*********************plus de procs Barres d'outils là : http://frederic.sigonneau.free.fr/BO.htm-- -- @+;o)))
Bonsour® Microsoft VBA Excel avec ferveur ;o))) vous nous disiez :
je souhaite modifier le faceid d'un bouton d'une barre d'outils
fraîchement
créée.
Qu'est-ce qui ne va pas dans mon code ?
CommandBars("nombarreoutils").nombouton.FaceId = 343
une procédure éprouvée d'un de nos plus eminent MPV francophone:
'Attribute VB_Name = "BOAvecIconePersonnalisee"
'Comment faire référence à ce bouton personnalisé dans l'instruction Faceid
?
Public Const nomBO = "MaBarreOutils"
'fs, mpfe
Sub CreateBO()
Dim bo As CommandBar, wbk As Workbook
On Error Resume Next
deleteBO 'en cas de plantage d'Excel :-)
Set bo = Application.CommandBars.Add(nomBO)
' (Noms et chemins à adapter)
' 1-ouvrir le classeur "spécial icones"
Set wbk = Workbooks.Open("E:Cheni2001Boeticonesexcel.xls")
' 2-copier l'icone voulue
wbk.Worksheets("Feuil1").Shapes("Image 97").Copy
' 3-refermer le classeur "spécial icones"
wbk.Close False
With bo.Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
' coller l'icone personnalisée
.PasteFace
.OnAction = "Macro1"
End With
bo.Visible = True
End Sub
Sub Macro1()
MsgBox "Et voilà le travail !"
End Sub
Sub deleteBO()
On Error Resume Next
Application.CommandBars(nomBO).Delete
End Sub'*********************plus de procs Barres d'outils là :
http://frederic.sigonneau.free.fr/BO.htm-- -- @+;o)))
Bonsour® Microsoft VBA Excel avec ferveur ;o))) vous nous disiez :
je souhaite modifier le faceid d'un bouton d'une barre d'outils fraîchement créée. Qu'est-ce qui ne va pas dans mon code ? CommandBars("nombarreoutils").nombouton.FaceId = 343
une procédure éprouvée d'un de nos plus eminent MPV francophone: 'Attribute VB_Name = "BOAvecIconePersonnalisee" 'Comment faire référence à ce bouton personnalisé dans l'instruction Faceid ?
Public Const nomBO = "MaBarreOutils" 'fs, mpfe Sub CreateBO() Dim bo As CommandBar, wbk As Workbook On Error Resume Next deleteBO 'en cas de plantage d'Excel :-)
Set bo = Application.CommandBars.Add(nomBO)
' (Noms et chemins à adapter) ' 1-ouvrir le classeur "spécial icones" Set wbk = Workbooks.Open("E:Cheni2001Boeticonesexcel.xls") ' 2-copier l'icone voulue wbk.Worksheets("Feuil1").Shapes("Image 97").Copy ' 3-refermer le classeur "spécial icones" wbk.Close False
With bo.Controls.Add(msoControlButton) .Caption = "LanceMacro1" ' coller l'icone personnalisée .PasteFace .OnAction = "Macro1" End With bo.Visible = True End Sub
Sub Macro1() MsgBox "Et voilà le travail !" End Sub
Sub deleteBO() On Error Resume Next Application.CommandBars(nomBO).Delete End Sub'*********************plus de procs Barres d'outils là : http://frederic.sigonneau.free.fr/BO.htm-- -- @+;o)))
Microsoft VBA Excel
Elle est pas mal cette macro,
mais il me semble qu'il n'y a pas de changement de faceid, mais que le faceid est déterminé dès la création du bouton. Comment, après coup, modifier le faceID d'un bouton "toto" ?
Mon problème concerne en plus le changement de faceID de plusieurs boutons...
mais merci quand même pour le code !
"Modeste" a écrit dans le message de news: e718$
Bonsour® Microsoft VBA Excel avec ferveur ;o))) vous nous disiez :
je souhaite modifier le faceid d'un bouton d'une barre d'outils fraîchement créée. Qu'est-ce qui ne va pas dans mon code ? CommandBars("nombarreoutils").nombouton.FaceId = 343
une procédure éprouvée d'un de nos plus eminent MPV francophone: 'Attribute VB_Name = "BOAvecIconePersonnalisee" 'Comment faire référence à ce bouton personnalisé dans l'instruction Faceid ?
Public Const nomBO = "MaBarreOutils" 'fs, mpfe Sub CreateBO() Dim bo As CommandBar, wbk As Workbook On Error Resume Next deleteBO 'en cas de plantage d'Excel :-)
Set bo = Application.CommandBars.Add(nomBO)
' (Noms et chemins à adapter) ' 1-ouvrir le classeur "spécial icones" Set wbk = Workbooks.Open("E:Cheni2001Boeticonesexcel.xls") ' 2-copier l'icone voulue wbk.Worksheets("Feuil1").Shapes("Image 97").Copy ' 3-refermer le classeur "spécial icones" wbk.Close False
With bo.Controls.Add(msoControlButton) .Caption = "LanceMacro1" ' coller l'icone personnalisée .PasteFace .OnAction = "Macro1" End With bo.Visible = True End Sub
Sub Macro1() MsgBox "Et voilà le travail !" End Sub
Sub deleteBO() On Error Resume Next Application.CommandBars(nomBO).Delete End Sub'*********************plus de procs Barres d'outils là : http://frederic.sigonneau.free.fr/BO.htm-- -- @+;o)))
Elle est pas mal cette macro,
mais il me semble qu'il n'y a pas de changement de faceid, mais que le
faceid est déterminé dès la création du bouton. Comment, après coup,
modifier le faceID d'un bouton "toto" ?
Mon problème concerne en plus le changement de faceID de plusieurs
boutons...
mais merci quand même pour le code !
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
e718$eLhGHA.3376@TK2MSFTNGP03.phx.gbl...
Bonsour® Microsoft VBA Excel avec ferveur ;o))) vous nous disiez :
je souhaite modifier le faceid d'un bouton d'une barre d'outils
fraîchement
créée.
Qu'est-ce qui ne va pas dans mon code ?
CommandBars("nombarreoutils").nombouton.FaceId = 343
une procédure éprouvée d'un de nos plus eminent MPV francophone:
'Attribute VB_Name = "BOAvecIconePersonnalisee"
'Comment faire référence à ce bouton personnalisé dans l'instruction
Faceid ?
Public Const nomBO = "MaBarreOutils"
'fs, mpfe
Sub CreateBO()
Dim bo As CommandBar, wbk As Workbook
On Error Resume Next
deleteBO 'en cas de plantage d'Excel :-)
Set bo = Application.CommandBars.Add(nomBO)
' (Noms et chemins à adapter)
' 1-ouvrir le classeur "spécial icones"
Set wbk = Workbooks.Open("E:Cheni2001Boeticonesexcel.xls")
' 2-copier l'icone voulue
wbk.Worksheets("Feuil1").Shapes("Image 97").Copy
' 3-refermer le classeur "spécial icones"
wbk.Close False
With bo.Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
' coller l'icone personnalisée
.PasteFace
.OnAction = "Macro1"
End With
bo.Visible = True
End Sub
Sub Macro1()
MsgBox "Et voilà le travail !"
End Sub
Sub deleteBO()
On Error Resume Next
Application.CommandBars(nomBO).Delete
End Sub'*********************plus de procs Barres d'outils là :
http://frederic.sigonneau.free.fr/BO.htm-- -- @+;o)))
mais il me semble qu'il n'y a pas de changement de faceid, mais que le faceid est déterminé dès la création du bouton. Comment, après coup, modifier le faceID d'un bouton "toto" ?
Mon problème concerne en plus le changement de faceID de plusieurs boutons...
mais merci quand même pour le code !
"Modeste" a écrit dans le message de news: e718$
Bonsour® Microsoft VBA Excel avec ferveur ;o))) vous nous disiez :
je souhaite modifier le faceid d'un bouton d'une barre d'outils fraîchement créée. Qu'est-ce qui ne va pas dans mon code ? CommandBars("nombarreoutils").nombouton.FaceId = 343
une procédure éprouvée d'un de nos plus eminent MPV francophone: 'Attribute VB_Name = "BOAvecIconePersonnalisee" 'Comment faire référence à ce bouton personnalisé dans l'instruction Faceid ?
Public Const nomBO = "MaBarreOutils" 'fs, mpfe Sub CreateBO() Dim bo As CommandBar, wbk As Workbook On Error Resume Next deleteBO 'en cas de plantage d'Excel :-)
Set bo = Application.CommandBars.Add(nomBO)
' (Noms et chemins à adapter) ' 1-ouvrir le classeur "spécial icones" Set wbk = Workbooks.Open("E:Cheni2001Boeticonesexcel.xls") ' 2-copier l'icone voulue wbk.Worksheets("Feuil1").Shapes("Image 97").Copy ' 3-refermer le classeur "spécial icones" wbk.Close False
With bo.Controls.Add(msoControlButton) .Caption = "LanceMacro1" ' coller l'icone personnalisée .PasteFace .OnAction = "Macro1" End With bo.Visible = True End Sub
Sub Macro1() MsgBox "Et voilà le travail !" End Sub
Sub deleteBO() On Error Resume Next Application.CommandBars(nomBO).Delete End Sub'*********************plus de procs Barres d'outils là : http://frederic.sigonneau.free.fr/BO.htm-- -- @+;o)))
Bonsour® jps avec ferveur ;o))) vous nous disiez :
bon je fonce à l'apéro donc pas trop le temps!!! !!!
'tain t'es vachement en retard, d'hab tu commences à 11:30 ;o)))
-- -- @+ ;o)))
Microsoft VBA Excel
Mais Isabelle, si je travaille sur une barre d'outils créée dans un autre module, est-ce que je dois rendre publiques mes variables de boutons ? "isabelle" a écrit dans le message de news:
Toutes ces histoires d'apéro me donnent envie d'un bon cocktail bien frais au bord d'une plage...
MAIS MON PROBLEME DE BARRE D'OUTILS N'EST PAS REGLE...
Quelqu'un a-t-il une idée ?
"Modeste" a écrit dans le message de news: %
Bonsour® jps avec ferveur ;o))) vous nous disiez :
bon je fonce à l'apéro donc pas trop le temps!!! !!!
'tain t'es vachement en retard, d'hab tu commences à 11:30 ;o)))
-- -- @+ ;o)))
Mais Isabelle, si je travaille sur une barre d'outils créée dans un autre
module, est-ce que je dois rendre publiques mes variables de boutons ?
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
eXl2GAMhGHA.1260@TK2MSFTNGP05.phx.gbl...
Mais Isabelle, si je travaille sur une barre d'outils créée dans un autre module, est-ce que je dois rendre publiques mes variables de boutons ? "isabelle" a écrit dans le message de news:
