bonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des FaceId... Mais
peut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
bonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des FaceId... Mais
peut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
bonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des FaceId... Mais
peut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <> "&Toto"
Then
Set Toto CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Subbonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des FaceId...
Mais
peut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <> "&Toto"
Then
Set Toto CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Sub
bonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des FaceId...
Mais
peut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <> "&Toto"
Then
Set Toto CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Subbonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des FaceId...
Mais
peut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
rebonsoir,
Ma question était peut etre mal expliquée...
Il existe des faceid mais je voulais savoir s'il est possible d'en creer
ou
d'en faire a partir d'icones... Ou sont ils stockés? il y a des codes
vides,
je me disais qu'il seraitr bien de pouvoir les utiliser en creant quelue
chose de plus personnel et de plus adapté a ce qu'on veut faire...
ma demande est plus claire comme ca?
Merci
Lionel
"Poulpor" a écrit dans le message de
news:Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple
d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <> "&Toto"
ThenSet Toto > CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Subbonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des FaceId...
Maispeut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
rebonsoir,
Ma question était peut etre mal expliquée...
Il existe des faceid mais je voulais savoir s'il est possible d'en creer
ou
d'en faire a partir d'icones... Ou sont ils stockés? il y a des codes
vides,
je me disais qu'il seraitr bien de pouvoir les utiliser en creant quelue
chose de plus personnel et de plus adapté a ce qu'on veut faire...
ma demande est plus claire comme ca?
Merci
Lionel
"Poulpor" <Poulpor@discussions.microsoft.com> a écrit dans le message de
news: E9784675-4005-4AB1-AA81-7A81644EE72E@microsoft.com...
Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple
d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <> "&Toto"
Then
Set Toto > CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Sub
bonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des FaceId...
Mais
peut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
rebonsoir,
Ma question était peut etre mal expliquée...
Il existe des faceid mais je voulais savoir s'il est possible d'en creer
ou
d'en faire a partir d'icones... Ou sont ils stockés? il y a des codes
vides,
je me disais qu'il seraitr bien de pouvoir les utiliser en creant quelue
chose de plus personnel et de plus adapté a ce qu'on veut faire...
ma demande est plus claire comme ca?
Merci
Lionel
"Poulpor" a écrit dans le message de
news:Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple
d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <> "&Toto"
ThenSet Toto > CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Subbonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des FaceId...
Maispeut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
rebonsoir,
Ma question était peut etre mal expliquée...
Il existe des faceid mais je voulais savoir s'il est possible d'en creer
ou
d'en faire a partir d'icones... Ou sont ils stockés? il y a des codes
vides,
je me disais qu'il seraitr bien de pouvoir les utiliser en creant quelue
chose de plus personnel et de plus adapté a ce qu'on veut faire...
ma demande est plus claire comme ca?
Merci
Lionel
"Poulpor" a écrit dans le message de
news:Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple
d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <> "&Toto"
ThenSet Toto > CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Subbonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des FaceId...
Maispeut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
rebonsoir,
Ma question était peut etre mal expliquée...
Il existe des faceid mais je voulais savoir s'il est possible d'en creer
ou
d'en faire a partir d'icones... Ou sont ils stockés? il y a des codes
vides,
je me disais qu'il seraitr bien de pouvoir les utiliser en creant quelue
chose de plus personnel et de plus adapté a ce qu'on veut faire...
ma demande est plus claire comme ca?
Merci
Lionel
"Poulpor" <Poulpor@discussions.microsoft.com> a écrit dans le message de
news: E9784675-4005-4AB1-AA81-7A81644EE72E@microsoft.com...
Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple
d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <> "&Toto"
Then
Set Toto > CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Sub
bonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des FaceId...
Mais
peut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
rebonsoir,
Ma question était peut etre mal expliquée...
Il existe des faceid mais je voulais savoir s'il est possible d'en creer
ou
d'en faire a partir d'icones... Ou sont ils stockés? il y a des codes
vides,
je me disais qu'il seraitr bien de pouvoir les utiliser en creant quelue
chose de plus personnel et de plus adapté a ce qu'on veut faire...
ma demande est plus claire comme ca?
Merci
Lionel
"Poulpor" a écrit dans le message de
news:Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple
d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <> "&Toto"
ThenSet Toto > CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Subbonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des FaceId...
Maispeut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
Tu me parles d'une bonne réponse... je ne la connaissais même pas ;-))
Si tu fais une recherche à partir de la barre Google avec : "Icon Editor",
tu devrais
avoir une liste impressionnante de logiciels, gratuit ou non pour faire le
travail
que tu désires.
Un petit fichier que j'ai trouvé sur mon ordi... comme aide mémoire
pour identifier les différents ID disponibles et leur représentation
graphique.
http://cjoint.com/?fbnldqIoJ6
Inutile pour JPS, il les connaît tous par coeur !
"jps" a écrit dans le message de news:
bonjour lionel
inspire-toi de cette réponse faite, il y a quelques temps, par denis
michon,
sieur québécois qui ne dit pas (que) des c.....ries
début de copie
Une façon de faire :
A - tu écris 10 dans une cellule
B - Dimensionne la cellule pour qu'elle se rapproche de la taille du
chiffre
C - Copie dans le presse papier Ctrl + c
D - En maintenant la touche Maj enfoncé, utilise la commande "coller
image"
du menu édition
C - Colore l'image obtenu selon tes désirs.
Utilises cet exemple pour insérer cet image sur un bouton d'une barre
d'outils
La macro utilise "Image 4" et "Feuil5" que tu dois adapter à ta réalité.
Dans ton projet, tu peux toujours mettre l'image dans une feuille de ton
classeur perso.xls.
NDLR ton premier souci est donc d'avoir une image (dans l'exemple "Image
4")
dans une feuille (dans l'exemple "Feuil5") que la macro va copier puis,
grâce à PasteFace, coller dans le bouton de ta BO
'----------------------------
Sub ImageSurBouton_BarreOutils()
Dim Mbar As CommandBar
On Error Resume Next
Set Mbar = Application.CommandBars.Add("MaBar")
Mbar.Visible = True
With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With
With Mbar.Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône seulement
'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With
End Sub
fin de copie
HTH
jps
"Lionel" a écrit dans le message de news:
463668d7$0$27406$rebonsoir,
Ma question était peut etre mal expliquée...
Il existe des faceid mais je voulais savoir s'il est possible d'en creer
ou
d'en faire a partir d'icones... Ou sont ils stockés? il y a des codes
vides,
je me disais qu'il seraitr bien de pouvoir les utiliser en creant quelue
chose de plus personnel et de plus adapté a ce qu'on veut faire...
ma demande est plus claire comme ca?
Merci
Lionel
"Poulpor" a écrit dans le message de
news:Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple
d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <> "&Toto"
ThenSet Toto >> CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Subbonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des FaceId...
Maispeut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
Tu me parles d'une bonne réponse... je ne la connaissais même pas ;-))
Si tu fais une recherche à partir de la barre Google avec : "Icon Editor",
tu devrais
avoir une liste impressionnante de logiciels, gratuit ou non pour faire le
travail
que tu désires.
Un petit fichier que j'ai trouvé sur mon ordi... comme aide mémoire
pour identifier les différents ID disponibles et leur représentation
graphique.
http://cjoint.com/?fbnldqIoJ6
Inutile pour JPS, il les connaît tous par coeur !
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
OQMuMg7iHHA.5052@TK2MSFTNGP05.phx.gbl...
bonjour lionel
inspire-toi de cette réponse faite, il y a quelques temps, par denis
michon,
sieur québécois qui ne dit pas (que) des c.....ries
début de copie
Une façon de faire :
A - tu écris 10 dans une cellule
B - Dimensionne la cellule pour qu'elle se rapproche de la taille du
chiffre
C - Copie dans le presse papier Ctrl + c
D - En maintenant la touche Maj enfoncé, utilise la commande "coller
image"
du menu édition
C - Colore l'image obtenu selon tes désirs.
Utilises cet exemple pour insérer cet image sur un bouton d'une barre
d'outils
La macro utilise "Image 4" et "Feuil5" que tu dois adapter à ta réalité.
Dans ton projet, tu peux toujours mettre l'image dans une feuille de ton
classeur perso.xls.
NDLR ton premier souci est donc d'avoir une image (dans l'exemple "Image
4")
dans une feuille (dans l'exemple "Feuil5") que la macro va copier puis,
grâce à PasteFace, coller dans le bouton de ta BO
'----------------------------
Sub ImageSurBouton_BarreOutils()
Dim Mbar As CommandBar
On Error Resume Next
Set Mbar = Application.CommandBars.Add("MaBar")
Mbar.Visible = True
With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With
With Mbar.Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône seulement
'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With
End Sub
fin de copie
HTH
jps
"Lionel" <lionel.ma@wanadoo.fr> a écrit dans le message de news:
463668d7$0$27406$ba4acef3@news.orange.fr...
rebonsoir,
Ma question était peut etre mal expliquée...
Il existe des faceid mais je voulais savoir s'il est possible d'en creer
ou
d'en faire a partir d'icones... Ou sont ils stockés? il y a des codes
vides,
je me disais qu'il seraitr bien de pouvoir les utiliser en creant quelue
chose de plus personnel et de plus adapté a ce qu'on veut faire...
ma demande est plus claire comme ca?
Merci
Lionel
"Poulpor" <Poulpor@discussions.microsoft.com> a écrit dans le message de
news: E9784675-4005-4AB1-AA81-7A81644EE72E@microsoft.com...
Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple
d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <> "&Toto"
Then
Set Toto >> CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Sub
bonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des FaceId...
Mais
peut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
Tu me parles d'une bonne réponse... je ne la connaissais même pas ;-))
Si tu fais une recherche à partir de la barre Google avec : "Icon Editor",
tu devrais
avoir une liste impressionnante de logiciels, gratuit ou non pour faire le
travail
que tu désires.
Un petit fichier que j'ai trouvé sur mon ordi... comme aide mémoire
pour identifier les différents ID disponibles et leur représentation
graphique.
http://cjoint.com/?fbnldqIoJ6
Inutile pour JPS, il les connaît tous par coeur !
"jps" a écrit dans le message de news:
bonjour lionel
inspire-toi de cette réponse faite, il y a quelques temps, par denis
michon,
sieur québécois qui ne dit pas (que) des c.....ries
début de copie
Une façon de faire :
A - tu écris 10 dans une cellule
B - Dimensionne la cellule pour qu'elle se rapproche de la taille du
chiffre
C - Copie dans le presse papier Ctrl + c
D - En maintenant la touche Maj enfoncé, utilise la commande "coller
image"
du menu édition
C - Colore l'image obtenu selon tes désirs.
Utilises cet exemple pour insérer cet image sur un bouton d'une barre
d'outils
La macro utilise "Image 4" et "Feuil5" que tu dois adapter à ta réalité.
Dans ton projet, tu peux toujours mettre l'image dans une feuille de ton
classeur perso.xls.
NDLR ton premier souci est donc d'avoir une image (dans l'exemple "Image
4")
dans une feuille (dans l'exemple "Feuil5") que la macro va copier puis,
grâce à PasteFace, coller dans le bouton de ta BO
'----------------------------
Sub ImageSurBouton_BarreOutils()
Dim Mbar As CommandBar
On Error Resume Next
Set Mbar = Application.CommandBars.Add("MaBar")
Mbar.Visible = True
With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With
With Mbar.Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône seulement
'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With
End Sub
fin de copie
HTH
jps
"Lionel" a écrit dans le message de news:
463668d7$0$27406$rebonsoir,
Ma question était peut etre mal expliquée...
Il existe des faceid mais je voulais savoir s'il est possible d'en creer
ou
d'en faire a partir d'icones... Ou sont ils stockés? il y a des codes
vides,
je me disais qu'il seraitr bien de pouvoir les utiliser en creant quelue
chose de plus personnel et de plus adapté a ce qu'on veut faire...
ma demande est plus claire comme ca?
Merci
Lionel
"Poulpor" a écrit dans le message de
news:Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple
d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <> "&Toto"
ThenSet Toto >> CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Subbonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des FaceId...
Maispeut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
bonjour lionel
inspire-toi de cette réponse faite, il y a quelques temps, par denis
michon,
sieur québécois qui ne dit pas (que) des c.....ries
début de copie
Une façon de faire :
A - tu écris 10 dans une cellule
B - Dimensionne la cellule pour qu'elle se rapproche de la taille du
chiffre
C - Copie dans le presse papier Ctrl + c
D - En maintenant la touche Maj enfoncé, utilise la commande "coller
image"
du menu édition
C - Colore l'image obtenu selon tes désirs.
Utilises cet exemple pour insérer cet image sur un bouton d'une barre
d'outils
La macro utilise "Image 4" et "Feuil5" que tu dois adapter à ta réalité.
Dans ton projet, tu peux toujours mettre l'image dans une feuille de ton
classeur perso.xls.
NDLR ton premier souci est donc d'avoir une image (dans l'exemple "Image
4")
dans une feuille (dans l'exemple "Feuil5") que la macro va copier puis,
grâce à PasteFace, coller dans le bouton de ta BO
'----------------------------
Sub ImageSurBouton_BarreOutils()
Dim Mbar As CommandBar
On Error Resume Next
Set Mbar = Application.CommandBars.Add("MaBar")
Mbar.Visible = True
With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With
With Mbar.Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône seulement
'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With
End Sub
fin de copie
HTH
jps
"Lionel" a écrit dans le message de news:
463668d7$0$27406$rebonsoir,
Ma question était peut etre mal expliquée...
Il existe des faceid mais je voulais savoir s'il est possible d'en creer
ou
d'en faire a partir d'icones... Ou sont ils stockés? il y a des codes
vides,
je me disais qu'il seraitr bien de pouvoir les utiliser en creant quelue
chose de plus personnel et de plus adapté a ce qu'on veut faire...
ma demande est plus claire comme ca?
Merci
Lionel
"Poulpor" a écrit dans le message de
news:Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple
d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <> "&Toto"
ThenSet Toto > > CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Subbonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des FaceId...
Maispeut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
bonjour lionel
inspire-toi de cette réponse faite, il y a quelques temps, par denis
michon,
sieur québécois qui ne dit pas (que) des c.....ries
début de copie
Une façon de faire :
A - tu écris 10 dans une cellule
B - Dimensionne la cellule pour qu'elle se rapproche de la taille du
chiffre
C - Copie dans le presse papier Ctrl + c
D - En maintenant la touche Maj enfoncé, utilise la commande "coller
image"
du menu édition
C - Colore l'image obtenu selon tes désirs.
Utilises cet exemple pour insérer cet image sur un bouton d'une barre
d'outils
La macro utilise "Image 4" et "Feuil5" que tu dois adapter à ta réalité.
Dans ton projet, tu peux toujours mettre l'image dans une feuille de ton
classeur perso.xls.
NDLR ton premier souci est donc d'avoir une image (dans l'exemple "Image
4")
dans une feuille (dans l'exemple "Feuil5") que la macro va copier puis,
grâce à PasteFace, coller dans le bouton de ta BO
'----------------------------
Sub ImageSurBouton_BarreOutils()
Dim Mbar As CommandBar
On Error Resume Next
Set Mbar = Application.CommandBars.Add("MaBar")
Mbar.Visible = True
With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With
With Mbar.Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône seulement
'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With
End Sub
fin de copie
HTH
jps
"Lionel" <lionel.ma@wanadoo.fr> a écrit dans le message de news:
463668d7$0$27406$ba4acef3@news.orange.fr...
rebonsoir,
Ma question était peut etre mal expliquée...
Il existe des faceid mais je voulais savoir s'il est possible d'en creer
ou
d'en faire a partir d'icones... Ou sont ils stockés? il y a des codes
vides,
je me disais qu'il seraitr bien de pouvoir les utiliser en creant quelue
chose de plus personnel et de plus adapté a ce qu'on veut faire...
ma demande est plus claire comme ca?
Merci
Lionel
"Poulpor" <Poulpor@discussions.microsoft.com> a écrit dans le message de
news: E9784675-4005-4AB1-AA81-7A81644EE72E@microsoft.com...
Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple
d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <> "&Toto"
Then
Set Toto > > CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Sub
bonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des FaceId...
Mais
peut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
bonjour lionel
inspire-toi de cette réponse faite, il y a quelques temps, par denis
michon,
sieur québécois qui ne dit pas (que) des c.....ries
début de copie
Une façon de faire :
A - tu écris 10 dans une cellule
B - Dimensionne la cellule pour qu'elle se rapproche de la taille du
chiffre
C - Copie dans le presse papier Ctrl + c
D - En maintenant la touche Maj enfoncé, utilise la commande "coller
image"
du menu édition
C - Colore l'image obtenu selon tes désirs.
Utilises cet exemple pour insérer cet image sur un bouton d'une barre
d'outils
La macro utilise "Image 4" et "Feuil5" que tu dois adapter à ta réalité.
Dans ton projet, tu peux toujours mettre l'image dans une feuille de ton
classeur perso.xls.
NDLR ton premier souci est donc d'avoir une image (dans l'exemple "Image
4")
dans une feuille (dans l'exemple "Feuil5") que la macro va copier puis,
grâce à PasteFace, coller dans le bouton de ta BO
'----------------------------
Sub ImageSurBouton_BarreOutils()
Dim Mbar As CommandBar
On Error Resume Next
Set Mbar = Application.CommandBars.Add("MaBar")
Mbar.Visible = True
With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With
With Mbar.Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône seulement
'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With
End Sub
fin de copie
HTH
jps
"Lionel" a écrit dans le message de news:
463668d7$0$27406$rebonsoir,
Ma question était peut etre mal expliquée...
Il existe des faceid mais je voulais savoir s'il est possible d'en creer
ou
d'en faire a partir d'icones... Ou sont ils stockés? il y a des codes
vides,
je me disais qu'il seraitr bien de pouvoir les utiliser en creant quelue
chose de plus personnel et de plus adapté a ce qu'on veut faire...
ma demande est plus claire comme ca?
Merci
Lionel
"Poulpor" a écrit dans le message de
news:Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple
d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <> "&Toto"
ThenSet Toto > > CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Subbonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des FaceId...
Maispeut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
Bonjour
Je vois a peu pres ce que ca donne
j'ai un hic car je suis compliqué ! ;-))
l'explication vaut pour un bouton de barre outil...
mais si c'est pour mettre dans un menu ?
C'est possible? Comment?
Merci
Lionel
"jps" a écrit dans le message de news:bonjour lionel
inspire-toi de cette réponse faite, il y a quelques temps, par denis
michon,sieur québécois qui ne dit pas (que) des c.....ries
début de copie
Une façon de faire :
A - tu écris 10 dans une cellule
B - Dimensionne la cellule pour qu'elle se rapproche de la taille du
chiffreC - Copie dans le presse papier Ctrl + c
D - En maintenant la touche Maj enfoncé, utilise la commande "coller
image"du menu édition
C - Colore l'image obtenu selon tes désirs.
Utilises cet exemple pour insérer cet image sur un bouton d'une barre
d'outils
La macro utilise "Image 4" et "Feuil5" que tu dois adapter à ta réalité.
Dans ton projet, tu peux toujours mettre l'image dans une feuille de ton
classeur perso.xls.
NDLR ton premier souci est donc d'avoir une image (dans l'exemple "Image
4")dans une feuille (dans l'exemple "Feuil5") que la macro va copier puis,
grâce à PasteFace, coller dans le bouton de ta BO
'----------------------------
Sub ImageSurBouton_BarreOutils()
Dim Mbar As CommandBar
On Error Resume Next
Set Mbar = Application.CommandBars.Add("MaBar")
Mbar.Visible = True
With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With
With Mbar.Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône seulement
'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With
End Sub
fin de copie
HTH
jps
"Lionel" a écrit dans le message de news:
463668d7$0$27406$rebonsoir,
Ma question était peut etre mal expliquée...
Il existe des faceid mais je voulais savoir s'il est possible d'en
creer
ou
d'en faire a partir d'icones... Ou sont ils stockés? il y a des codes
vides,
je me disais qu'il seraitr bien de pouvoir les utiliser en creant
quelue
chose de plus personnel et de plus adapté a ce qu'on veut faire...
ma demande est plus claire comme ca?
Merci
Lionel
"Poulpor" a écrit dans le message
de
news:Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple
d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <> "&Toto"
ThenSet Toto >> > CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Subbonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des
FaceId...
Maispeut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
Bonjour
Je vois a peu pres ce que ca donne
j'ai un hic car je suis compliqué ! ;-))
l'explication vaut pour un bouton de barre outil...
mais si c'est pour mettre dans un menu ?
C'est possible? Comment?
Merci
Lionel
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
OQMuMg7iHHA.5052@TK2MSFTNGP05.phx.gbl...
bonjour lionel
inspire-toi de cette réponse faite, il y a quelques temps, par denis
michon,
sieur québécois qui ne dit pas (que) des c.....ries
début de copie
Une façon de faire :
A - tu écris 10 dans une cellule
B - Dimensionne la cellule pour qu'elle se rapproche de la taille du
chiffre
C - Copie dans le presse papier Ctrl + c
D - En maintenant la touche Maj enfoncé, utilise la commande "coller
image"
du menu édition
C - Colore l'image obtenu selon tes désirs.
Utilises cet exemple pour insérer cet image sur un bouton d'une barre
d'outils
La macro utilise "Image 4" et "Feuil5" que tu dois adapter à ta réalité.
Dans ton projet, tu peux toujours mettre l'image dans une feuille de ton
classeur perso.xls.
NDLR ton premier souci est donc d'avoir une image (dans l'exemple "Image
4")
dans une feuille (dans l'exemple "Feuil5") que la macro va copier puis,
grâce à PasteFace, coller dans le bouton de ta BO
'----------------------------
Sub ImageSurBouton_BarreOutils()
Dim Mbar As CommandBar
On Error Resume Next
Set Mbar = Application.CommandBars.Add("MaBar")
Mbar.Visible = True
With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With
With Mbar.Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône seulement
'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With
End Sub
fin de copie
HTH
jps
"Lionel" <lionel.ma@wanadoo.fr> a écrit dans le message de news:
463668d7$0$27406$ba4acef3@news.orange.fr...
rebonsoir,
Ma question était peut etre mal expliquée...
Il existe des faceid mais je voulais savoir s'il est possible d'en
creer
ou
d'en faire a partir d'icones... Ou sont ils stockés? il y a des codes
vides,
je me disais qu'il seraitr bien de pouvoir les utiliser en creant
quelue
chose de plus personnel et de plus adapté a ce qu'on veut faire...
ma demande est plus claire comme ca?
Merci
Lionel
"Poulpor" <Poulpor@discussions.microsoft.com> a écrit dans le message
de
news: E9784675-4005-4AB1-AA81-7A81644EE72E@microsoft.com...
Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple
d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <> "&Toto"
Then
Set Toto >> > CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Sub
bonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des
FaceId...
Mais
peut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
Bonjour
Je vois a peu pres ce que ca donne
j'ai un hic car je suis compliqué ! ;-))
l'explication vaut pour un bouton de barre outil...
mais si c'est pour mettre dans un menu ?
C'est possible? Comment?
Merci
Lionel
"jps" a écrit dans le message de news:bonjour lionel
inspire-toi de cette réponse faite, il y a quelques temps, par denis
michon,sieur québécois qui ne dit pas (que) des c.....ries
début de copie
Une façon de faire :
A - tu écris 10 dans une cellule
B - Dimensionne la cellule pour qu'elle se rapproche de la taille du
chiffreC - Copie dans le presse papier Ctrl + c
D - En maintenant la touche Maj enfoncé, utilise la commande "coller
image"du menu édition
C - Colore l'image obtenu selon tes désirs.
Utilises cet exemple pour insérer cet image sur un bouton d'une barre
d'outils
La macro utilise "Image 4" et "Feuil5" que tu dois adapter à ta réalité.
Dans ton projet, tu peux toujours mettre l'image dans une feuille de ton
classeur perso.xls.
NDLR ton premier souci est donc d'avoir une image (dans l'exemple "Image
4")dans une feuille (dans l'exemple "Feuil5") que la macro va copier puis,
grâce à PasteFace, coller dans le bouton de ta BO
'----------------------------
Sub ImageSurBouton_BarreOutils()
Dim Mbar As CommandBar
On Error Resume Next
Set Mbar = Application.CommandBars.Add("MaBar")
Mbar.Visible = True
With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With
With Mbar.Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône seulement
'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With
End Sub
fin de copie
HTH
jps
"Lionel" a écrit dans le message de news:
463668d7$0$27406$rebonsoir,
Ma question était peut etre mal expliquée...
Il existe des faceid mais je voulais savoir s'il est possible d'en
creer
ou
d'en faire a partir d'icones... Ou sont ils stockés? il y a des codes
vides,
je me disais qu'il seraitr bien de pouvoir les utiliser en creant
quelue
chose de plus personnel et de plus adapté a ce qu'on veut faire...
ma demande est plus claire comme ca?
Merci
Lionel
"Poulpor" a écrit dans le message
de
news:Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple
d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <> "&Toto"
ThenSet Toto >> > CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Subbonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des
FaceId...
Maispeut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
bonjour lionel
à quel menu penses-tu?
s'il s'agit du menu contextuel (celui que tu déroules sous le clic droit
dans ta feuille), tu peux envisager ceci :
Sub ImageSurBoutonDansMenuContextuel()
With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône seulement
'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With
End Sub
pas testé malgré tout, c'est le 1er mai....
jps
"Lionel" a écrit dans le message de news:
46375227$0$5071$Bonjour
Je vois a peu pres ce que ca donne
j'ai un hic car je suis compliqué ! ;-))
l'explication vaut pour un bouton de barre outil...
mais si c'est pour mettre dans un menu ?
C'est possible? Comment?
Merci
Lionel
"jps" a écrit dans le message de news:bonjour lionel
inspire-toi de cette réponse faite, il y a quelques temps, par denis
michon,sieur québécois qui ne dit pas (que) des c.....ries
début de copie
Une façon de faire :
A - tu écris 10 dans une cellule
B - Dimensionne la cellule pour qu'elle se rapproche de la taille du
chiffreC - Copie dans le presse papier Ctrl + c
D - En maintenant la touche Maj enfoncé, utilise la commande "coller
image"du menu édition
C - Colore l'image obtenu selon tes désirs.
Utilises cet exemple pour insérer cet image sur un bouton d'une barre
d'outils
La macro utilise "Image 4" et "Feuil5" que tu dois adapter à ta
réalité.
Dans ton projet, tu peux toujours mettre l'image dans une feuille de
ton
classeur perso.xls.
NDLR ton premier souci est donc d'avoir une image (dans l'exemple
"Image
4")dans une feuille (dans l'exemple "Feuil5") que la macro va copier puis,
grâce à PasteFace, coller dans le bouton de ta BO
'----------------------------
Sub ImageSurBouton_BarreOutils()
Dim Mbar As CommandBar
On Error Resume Next
Set Mbar = Application.CommandBars.Add("MaBar")
Mbar.Visible = True
With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With
With Mbar.Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône
seulement
'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With
End Sub
fin de copie
HTH
jps
"Lionel" a écrit dans le message de news:
463668d7$0$27406$rebonsoir,
Ma question était peut etre mal expliquée...
Il existe des faceid mais je voulais savoir s'il est possible d'en
creer
ou
d'en faire a partir d'icones... Ou sont ils stockés? il y a des codes
vides,
je me disais qu'il seraitr bien de pouvoir les utiliser en creant
quelue
chose de plus personnel et de plus adapté a ce qu'on veut faire...
ma demande est plus claire comme ca?
Merci
Lionel
"Poulpor" a écrit dans le message
de
news:Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple
d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <>
"&Toto"
ThenSet Toto > >> > CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton,
ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton,
ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Subbonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des
FaceId...
Maispeut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
bonjour lionel
à quel menu penses-tu?
s'il s'agit du menu contextuel (celui que tu déroules sous le clic droit
dans ta feuille), tu peux envisager ceci :
Sub ImageSurBoutonDansMenuContextuel()
With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône seulement
'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With
End Sub
pas testé malgré tout, c'est le 1er mai....
jps
"Lionel" <lionel.ma@wanadoo.fr> a écrit dans le message de news:
46375227$0$5071$ba4acef3@news.orange.fr...
Bonjour
Je vois a peu pres ce que ca donne
j'ai un hic car je suis compliqué ! ;-))
l'explication vaut pour un bouton de barre outil...
mais si c'est pour mettre dans un menu ?
C'est possible? Comment?
Merci
Lionel
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
OQMuMg7iHHA.5052@TK2MSFTNGP05.phx.gbl...
bonjour lionel
inspire-toi de cette réponse faite, il y a quelques temps, par denis
michon,
sieur québécois qui ne dit pas (que) des c.....ries
début de copie
Une façon de faire :
A - tu écris 10 dans une cellule
B - Dimensionne la cellule pour qu'elle se rapproche de la taille du
chiffre
C - Copie dans le presse papier Ctrl + c
D - En maintenant la touche Maj enfoncé, utilise la commande "coller
image"
du menu édition
C - Colore l'image obtenu selon tes désirs.
Utilises cet exemple pour insérer cet image sur un bouton d'une barre
d'outils
La macro utilise "Image 4" et "Feuil5" que tu dois adapter à ta
réalité.
Dans ton projet, tu peux toujours mettre l'image dans une feuille de
ton
classeur perso.xls.
NDLR ton premier souci est donc d'avoir une image (dans l'exemple
"Image
4")
dans une feuille (dans l'exemple "Feuil5") que la macro va copier puis,
grâce à PasteFace, coller dans le bouton de ta BO
'----------------------------
Sub ImageSurBouton_BarreOutils()
Dim Mbar As CommandBar
On Error Resume Next
Set Mbar = Application.CommandBars.Add("MaBar")
Mbar.Visible = True
With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With
With Mbar.Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône
seulement
'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With
End Sub
fin de copie
HTH
jps
"Lionel" <lionel.ma@wanadoo.fr> a écrit dans le message de news:
463668d7$0$27406$ba4acef3@news.orange.fr...
rebonsoir,
Ma question était peut etre mal expliquée...
Il existe des faceid mais je voulais savoir s'il est possible d'en
creer
ou
d'en faire a partir d'icones... Ou sont ils stockés? il y a des codes
vides,
je me disais qu'il seraitr bien de pouvoir les utiliser en creant
quelue
chose de plus personnel et de plus adapté a ce qu'on veut faire...
ma demande est plus claire comme ca?
Merci
Lionel
"Poulpor" <Poulpor@discussions.microsoft.com> a écrit dans le message
de
news: E9784675-4005-4AB1-AA81-7A81644EE72E@microsoft.com...
Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple
d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <>
"&Toto"
Then
Set Toto > >> > CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton,
ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton,
ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Sub
bonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des
FaceId...
Mais
peut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
bonjour lionel
à quel menu penses-tu?
s'il s'agit du menu contextuel (celui que tu déroules sous le clic droit
dans ta feuille), tu peux envisager ceci :
Sub ImageSurBoutonDansMenuContextuel()
With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône seulement
'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With
End Sub
pas testé malgré tout, c'est le 1er mai....
jps
"Lionel" a écrit dans le message de news:
46375227$0$5071$Bonjour
Je vois a peu pres ce que ca donne
j'ai un hic car je suis compliqué ! ;-))
l'explication vaut pour un bouton de barre outil...
mais si c'est pour mettre dans un menu ?
C'est possible? Comment?
Merci
Lionel
"jps" a écrit dans le message de news:bonjour lionel
inspire-toi de cette réponse faite, il y a quelques temps, par denis
michon,sieur québécois qui ne dit pas (que) des c.....ries
début de copie
Une façon de faire :
A - tu écris 10 dans une cellule
B - Dimensionne la cellule pour qu'elle se rapproche de la taille du
chiffreC - Copie dans le presse papier Ctrl + c
D - En maintenant la touche Maj enfoncé, utilise la commande "coller
image"du menu édition
C - Colore l'image obtenu selon tes désirs.
Utilises cet exemple pour insérer cet image sur un bouton d'une barre
d'outils
La macro utilise "Image 4" et "Feuil5" que tu dois adapter à ta
réalité.
Dans ton projet, tu peux toujours mettre l'image dans une feuille de
ton
classeur perso.xls.
NDLR ton premier souci est donc d'avoir une image (dans l'exemple
"Image
4")dans une feuille (dans l'exemple "Feuil5") que la macro va copier puis,
grâce à PasteFace, coller dans le bouton de ta BO
'----------------------------
Sub ImageSurBouton_BarreOutils()
Dim Mbar As CommandBar
On Error Resume Next
Set Mbar = Application.CommandBars.Add("MaBar")
Mbar.Visible = True
With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With
With Mbar.Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône
seulement
'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With
End Sub
fin de copie
HTH
jps
"Lionel" a écrit dans le message de news:
463668d7$0$27406$rebonsoir,
Ma question était peut etre mal expliquée...
Il existe des faceid mais je voulais savoir s'il est possible d'en
creer
ou
d'en faire a partir d'icones... Ou sont ils stockés? il y a des codes
vides,
je me disais qu'il seraitr bien de pouvoir les utiliser en creant
quelue
chose de plus personnel et de plus adapté a ce qu'on veut faire...
ma demande est plus claire comme ca?
Merci
Lionel
"Poulpor" a écrit dans le message
de
news:Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple
d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <>
"&Toto"
ThenSet Toto > >> > CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton,
ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton,
ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Subbonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des
FaceId...
Maispeut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
re...
Je pensais a un menu integre dans lee menu haut de page fichier,
edition,affichage...
j'ai mon propre menu auquel je voudrai pouvoir adjoindre mes propres
faceId...
C'etait le but de ma question originelle...
Merci pour ce travail effectué un 1° Mai... ;-))
Lionel
"jps" a écrit dans le message de news:bonjour lionel
à quel menu penses-tu?
s'il s'agit du menu contextuel (celui que tu déroules sous le clic droit
dans ta feuille), tu peux envisager ceci :
Sub ImageSurBoutonDansMenuContextuel()
With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône seulement
'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With
End Sub
pas testé malgré tout, c'est le 1er mai....
jps
"Lionel" a écrit dans le message de news:
46375227$0$5071$Bonjour
Je vois a peu pres ce que ca donne
j'ai un hic car je suis compliqué ! ;-))
l'explication vaut pour un bouton de barre outil...
mais si c'est pour mettre dans un menu ?
C'est possible? Comment?
Merci
Lionel
"jps" a écrit dans le message de news:bonjour lionel
inspire-toi de cette réponse faite, il y a quelques temps, par denis
michon,sieur québécois qui ne dit pas (que) des c.....ries
début de copie
Une façon de faire :
A - tu écris 10 dans une cellule
B - Dimensionne la cellule pour qu'elle se rapproche de la taille du
chiffreC - Copie dans le presse papier Ctrl + c
D - En maintenant la touche Maj enfoncé, utilise la commande "coller
image"du menu édition
C - Colore l'image obtenu selon tes désirs.
Utilises cet exemple pour insérer cet image sur un bouton d'une barre
d'outils
La macro utilise "Image 4" et "Feuil5" que tu dois adapter à ta
réalité.
Dans ton projet, tu peux toujours mettre l'image dans une feuille de
tonclasseur perso.xls.
NDLR ton premier souci est donc d'avoir une image (dans l'exemple
"Image4")dans une feuille (dans l'exemple "Feuil5") que la macro va copier
puis,
grâce à PasteFace, coller dans le bouton de ta BO
'----------------------------
Sub ImageSurBouton_BarreOutils()
Dim Mbar As CommandBar
On Error Resume Next
Set Mbar = Application.CommandBars.Add("MaBar")
Mbar.Visible = True
With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With
With Mbar.Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône
seulement'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With
End Sub
fin de copie
HTH
jps
"Lionel" a écrit dans le message de news:
463668d7$0$27406$rebonsoir,
Ma question était peut etre mal expliquée...
Il existe des faceid mais je voulais savoir s'il est possible d'en
creer
ou
d'en faire a partir d'icones... Ou sont ils stockés? il y a des
codes
vides,
je me disais qu'il seraitr bien de pouvoir les utiliser en creant
quelue
chose de plus personnel et de plus adapté a ce qu'on veut faire...
ma demande est plus claire comme ca?
Merci
Lionel
"Poulpor" a écrit dans le
message
de
news:Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple
d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <>
"&Toto"ThenSet Toto >> >> > CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton,
ID:=1)ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton,
ID:=1)ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Subbonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des
FaceId...
Maispeut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
re...
Je pensais a un menu integre dans lee menu haut de page fichier,
edition,affichage...
j'ai mon propre menu auquel je voudrai pouvoir adjoindre mes propres
faceId...
C'etait le but de ma question originelle...
Merci pour ce travail effectué un 1° Mai... ;-))
Lionel
"jps" <vaderetrosp@mas> a écrit dans le message de news:
eJ3CjPAjHHA.3928@TK2MSFTNGP03.phx.gbl...
bonjour lionel
à quel menu penses-tu?
s'il s'agit du menu contextuel (celui que tu déroules sous le clic droit
dans ta feuille), tu peux envisager ceci :
Sub ImageSurBoutonDansMenuContextuel()
With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône seulement
'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With
End Sub
pas testé malgré tout, c'est le 1er mai....
jps
"Lionel" <lionel.ma@wanadoo.fr> a écrit dans le message de news:
46375227$0$5071$ba4acef3@news.orange.fr...
Bonjour
Je vois a peu pres ce que ca donne
j'ai un hic car je suis compliqué ! ;-))
l'explication vaut pour un bouton de barre outil...
mais si c'est pour mettre dans un menu ?
C'est possible? Comment?
Merci
Lionel
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
OQMuMg7iHHA.5052@TK2MSFTNGP05.phx.gbl...
bonjour lionel
inspire-toi de cette réponse faite, il y a quelques temps, par denis
michon,
sieur québécois qui ne dit pas (que) des c.....ries
début de copie
Une façon de faire :
A - tu écris 10 dans une cellule
B - Dimensionne la cellule pour qu'elle se rapproche de la taille du
chiffre
C - Copie dans le presse papier Ctrl + c
D - En maintenant la touche Maj enfoncé, utilise la commande "coller
image"
du menu édition
C - Colore l'image obtenu selon tes désirs.
Utilises cet exemple pour insérer cet image sur un bouton d'une barre
d'outils
La macro utilise "Image 4" et "Feuil5" que tu dois adapter à ta
réalité.
Dans ton projet, tu peux toujours mettre l'image dans une feuille de
ton
classeur perso.xls.
NDLR ton premier souci est donc d'avoir une image (dans l'exemple
"Image
4")
dans une feuille (dans l'exemple "Feuil5") que la macro va copier
puis,
grâce à PasteFace, coller dans le bouton de ta BO
'----------------------------
Sub ImageSurBouton_BarreOutils()
Dim Mbar As CommandBar
On Error Resume Next
Set Mbar = Application.CommandBars.Add("MaBar")
Mbar.Visible = True
With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With
With Mbar.Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône
seulement
'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With
End Sub
fin de copie
HTH
jps
"Lionel" <lionel.ma@wanadoo.fr> a écrit dans le message de news:
463668d7$0$27406$ba4acef3@news.orange.fr...
rebonsoir,
Ma question était peut etre mal expliquée...
Il existe des faceid mais je voulais savoir s'il est possible d'en
creer
ou
d'en faire a partir d'icones... Ou sont ils stockés? il y a des
codes
vides,
je me disais qu'il seraitr bien de pouvoir les utiliser en creant
quelue
chose de plus personnel et de plus adapté a ce qu'on veut faire...
ma demande est plus claire comme ca?
Merci
Lionel
"Poulpor" <Poulpor@discussions.microsoft.com> a écrit dans le
message
de
news: E9784675-4005-4AB1-AA81-7A81644EE72E@microsoft.com...
Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple
d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <>
"&Toto"
Then
Set Toto >> >> > CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton,
ID:=1)
ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton,
ID:=1)
ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Sub
bonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des
FaceId...
Mais
peut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
re...
Je pensais a un menu integre dans lee menu haut de page fichier,
edition,affichage...
j'ai mon propre menu auquel je voudrai pouvoir adjoindre mes propres
faceId...
C'etait le but de ma question originelle...
Merci pour ce travail effectué un 1° Mai... ;-))
Lionel
"jps" a écrit dans le message de news:bonjour lionel
à quel menu penses-tu?
s'il s'agit du menu contextuel (celui que tu déroules sous le clic droit
dans ta feuille), tu peux envisager ceci :
Sub ImageSurBoutonDansMenuContextuel()
With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône seulement
'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With
End Sub
pas testé malgré tout, c'est le 1er mai....
jps
"Lionel" a écrit dans le message de news:
46375227$0$5071$Bonjour
Je vois a peu pres ce que ca donne
j'ai un hic car je suis compliqué ! ;-))
l'explication vaut pour un bouton de barre outil...
mais si c'est pour mettre dans un menu ?
C'est possible? Comment?
Merci
Lionel
"jps" a écrit dans le message de news:bonjour lionel
inspire-toi de cette réponse faite, il y a quelques temps, par denis
michon,sieur québécois qui ne dit pas (que) des c.....ries
début de copie
Une façon de faire :
A - tu écris 10 dans une cellule
B - Dimensionne la cellule pour qu'elle se rapproche de la taille du
chiffreC - Copie dans le presse papier Ctrl + c
D - En maintenant la touche Maj enfoncé, utilise la commande "coller
image"du menu édition
C - Colore l'image obtenu selon tes désirs.
Utilises cet exemple pour insérer cet image sur un bouton d'une barre
d'outils
La macro utilise "Image 4" et "Feuil5" que tu dois adapter à ta
réalité.
Dans ton projet, tu peux toujours mettre l'image dans une feuille de
tonclasseur perso.xls.
NDLR ton premier souci est donc d'avoir une image (dans l'exemple
"Image4")dans une feuille (dans l'exemple "Feuil5") que la macro va copier
puis,
grâce à PasteFace, coller dans le bouton de ta BO
'----------------------------
Sub ImageSurBouton_BarreOutils()
Dim Mbar As CommandBar
On Error Resume Next
Set Mbar = Application.CommandBars.Add("MaBar")
Mbar.Visible = True
With ThisWorkbook
With Worksheets("Feuil5")
With .Shapes("Image 4")
.Copy
End With
End With
End With
With Mbar.Controls.Add(msoControlButton)
.Caption = "LanceMacro1"
'Affiche Icône et Texte
.Style = msoButtonIconAndCaption 'msoButtonIcon pour icône
seulement'Colle l'image du presse-papier
.PasteFace
'Macro associé au bouton
.OnAction = "LaMacro"
End With
End Sub
fin de copie
HTH
jps
"Lionel" a écrit dans le message de news:
463668d7$0$27406$rebonsoir,
Ma question était peut etre mal expliquée...
Il existe des faceid mais je voulais savoir s'il est possible d'en
creer
ou
d'en faire a partir d'icones... Ou sont ils stockés? il y a des
codes
vides,
je me disais qu'il seraitr bien de pouvoir les utiliser en creant
quelue
chose de plus personnel et de plus adapté a ce qu'on veut faire...
ma demande est plus claire comme ca?
Merci
Lionel
"Poulpor" a écrit dans le
message
de
news:Bonjour Lionel,
Je ne compreds pas trop la question. En tout cas, voici un exemple
d'ajout
de menu (avec Faceid), qui se met sous le menu outils :
Bon courage,
Poulpor.
Sub Ajout_Menu()
Dim Toto, ctrl21, ctrl22 As Variant
On Error Resume Next
If Application.CommandBars("Tools").Controls(1).Caption <>
"&Toto"ThenSet Toto >> >> > CommandBars("Tools").Controls.Add(Type:=msoControlPopup,
Before:=1)
Toto.Caption = "&Toto"
Set ctrl21 = Toto.Controls.Add(Type:=msoControlButton,
ID:=1)ctrl21.Caption = "&Remonter une NDF"
ctrl21.TooltipText = "Remonter une NDF"
ctrl21.Style = msoButtonAutomatic
ctrl21.OnAction = "GO_Remonter_NDF"
ctrl21.FaceId = 270
Set ctrl22 = Toto.Controls.Add(Type:=msoControlButton,
ID:=1)ctrl22.Caption = "Remonter une Demande de &Véhicule"
ctrl22.TooltipText = "Remonter une Demande de Véhicule"
ctrl22.Style = msoButtonAutomatic
ctrl22.OnAction = "GO_Remonter_VEH"
ctrl22.FaceId = 270
End If
End Subbonsoir a tous
question pas courante mais votre réponse me serait d'une aide
incommensurable...
Il est possible de personnaliser un menu personnel avec des
FaceId...
Maispeut on en creer ou utiliser des icones standards... Comment?
Merci pour votre aide
Lionel
re bonjour lionel
il est tard et ma tête commence à vaciller
peut-être pourrais-tu te pencher sur cette proc signée chrisV (dont on
aimerait bien avoir des nouvelles) ...
re bonjour lionel
il est tard et ma tête commence à vaciller
peut-être pourrais-tu te pencher sur cette proc signée chrisV (dont on
aimerait bien avoir des nouvelles) ...
re bonjour lionel
il est tard et ma tête commence à vaciller
peut-être pourrais-tu te pencher sur cette proc signée chrisV (dont on
aimerait bien avoir des nouvelles) ...