Comment faire pour que la ligne de couleur modifiable de la boîte "couleur de
remplissage" puisse contenir une couleur dégradée en lieu et place d'une
couleur pleine? Celà permettrai d'accéder plus rapidement à des dégradés de
couleurs que je me sers régulièrement plutôt que de devoir passer à chaque
fois par le sous menu "motifs et textures". Je pourrai définir les trois
dégradés que je me sers le plus souvent et les rendre acessibles directement
dans la boîte "couleur de remplissage"
Dans 2007, tu peux dégrader des cellules... Mais à attendre d'upgrader vers la 2007...Passez donc directement à la 2010 qui sort dans environ 1,5 mois !
"NOSI4211" a écrit dans le message de news:
Merci Circé de l'aide. Je vais patienter jusqu'a ce que mon employeur nous "update" à la version 2007.
"Circé" wrote:
Bonsoir,
NOSI4211 a écrit : > Merci Circé, mais ai encore besoin d'aide. La macro fonctionne pour > une > forme complète, mais je voudrais qu'elle s'applique à "une cellule d'un > tableau PP", que dois-je modifier ds la macro?
Pas si simple !! A priori, je ne vois pas de méthode en VBA pour traiter comme sélection une cellule... Par ailleurs, tout dépend de ta version car les tableaux 2003 ne sont pas les mêmes objets que les tableaux 2007.
Circé http://faqword.com
> Merci > NOSI4211
> "Circé" wrote:
>> Bonjour >> >> Il faut que tu crées trois macros que tu ajouteras sur la barre >> d'outils. >> >> Exemple : >> >> Sub dégradé1() >> Dim couleur1, couleur2 >> couleur1 = RGB(x, x, x) >> couleur2 = RGB(x, x, x) >> With ActiveWindow.Selection.ShapeRange.Fill >> .ForeColor.RGB = couleur1 >> .BackColor.RGB = couleur2 >> .TwoColorGradient msoGradientHorizontal, 1 >> End With >> End Sub >> >> >> Il faut que tu spécifies les couleurs 1 et 2 en remplaçant les X par >> les couleurs RGB de ton choix. >> Ensuite, dans TwoColorGradient, tu choisis le type de dégradé (ici >> j'ai >> mis horizontal, ça peut être msoGradientVertical pour vertical, >> msoGradientFromCorner à partir du coin, etc.) et le numéro de 1 à 4 >> qui >> correspond aux 4 types de dégradés de la boîte de dialogue). >> >> Circé >> http://faqword.com >> >> >> >> NOSI4211 a présenté l'énoncé suivant : >>> I s'agit de la barre d'outil "couleur de remplisage" et de la ligne >>> de >>> choix de couleur juste au dessus de "Autres couleurs". Je voudrais >>> savoir >>> comment modifier ces choix de couleurs. Merci >>> "jpforestier" a écrit : >> >>>> Bonjour >>>> 1° qu'appelles-tu Ligne de couleur modifiable... >>>> 2° quelle version de PPT ? >>>> "NOSI4211" a écrit dans le >>>> message de >>>> news: >>>>> Comment faire pour que la ligne de couleur modifiable de la boîte >>>>> "couleur de >>>>> remplissage" puisse contenir une couleur dégradée en lieu et place >>>>> d'une >>>>> couleur pleine? Celà permettrai d'accéder plus rapidement à des >>>>> dégradés >>>>> de >>>>> couleurs que je me sers régulièrement plutôt que de devoir passer à >>>>> chaque fois par le sous menu "motifs et textures". Je pourrai >>>>> définir >>>>> les trois dégradés que je me sers le plus souvent et les rendre >>>>> acessibles directement >>>>> dans la boîte "couleur de remplissage" >>>>> >>>>> Merci >>>>> >>>>> >>>> >>>> >>>> . >>>> >> >> >> . >>
.
Dans 2007, tu peux dégrader des cellules... Mais à attendre d'upgrader vers
la 2007...Passez donc directement à la 2010 qui sort dans environ 1,5 mois !
"NOSI4211" <NOSI4211@discussions.microsoft.com> a écrit dans le message de
news: 8123FE9B-9AB3-4C56-98B9-D07F08A42149@microsoft.com...
Merci Circé de l'aide. Je vais patienter jusqu'a ce que mon employeur
nous
"update" à la version 2007.
"Circé" wrote:
Bonsoir,
NOSI4211 a écrit :
> Merci Circé, mais ai encore besoin d'aide. La macro fonctionne pour
> une
> forme complète, mais je voudrais qu'elle s'applique à "une cellule d'un
> tableau PP", que dois-je modifier ds la macro?
Pas si simple !!
A priori, je ne vois pas de méthode en VBA pour traiter comme sélection
une cellule...
Par ailleurs, tout dépend de ta version car les tableaux 2003 ne sont
pas les mêmes objets que les tableaux 2007.
Circé
http://faqword.com
> Merci
> NOSI4211
> "Circé" wrote:
>> Bonjour
>>
>> Il faut que tu crées trois macros que tu ajouteras sur la barre
>> d'outils.
>>
>> Exemple :
>>
>> Sub dégradé1()
>> Dim couleur1, couleur2
>> couleur1 = RGB(x, x, x)
>> couleur2 = RGB(x, x, x)
>> With ActiveWindow.Selection.ShapeRange.Fill
>> .ForeColor.RGB = couleur1
>> .BackColor.RGB = couleur2
>> .TwoColorGradient msoGradientHorizontal, 1
>> End With
>> End Sub
>>
>>
>> Il faut que tu spécifies les couleurs 1 et 2 en remplaçant les X par
>> les couleurs RGB de ton choix.
>> Ensuite, dans TwoColorGradient, tu choisis le type de dégradé (ici
>> j'ai
>> mis horizontal, ça peut être msoGradientVertical pour vertical,
>> msoGradientFromCorner à partir du coin, etc.) et le numéro de 1 à 4
>> qui
>> correspond aux 4 types de dégradés de la boîte de dialogue).
>>
>> Circé
>> http://faqword.com
>>
>>
>>
>> NOSI4211 a présenté l'énoncé suivant :
>>> I s'agit de la barre d'outil "couleur de remplisage" et de la ligne
>>> de
>>> choix de couleur juste au dessus de "Autres couleurs". Je voudrais
>>> savoir
>>> comment modifier ces choix de couleurs. Merci
>>> "jpforestier" a écrit :
>>
>>>> Bonjour
>>>> 1° qu'appelles-tu Ligne de couleur modifiable...
>>>> 2° quelle version de PPT ?
>>>> "NOSI4211" <NOSI4211@discussions.microsoft.com> a écrit dans le
>>>> message de
>>>> news: B9353173-99CA-477D-8116-E02A9F8E645E@microsoft.com...
>>>>> Comment faire pour que la ligne de couleur modifiable de la boîte
>>>>> "couleur de
>>>>> remplissage" puisse contenir une couleur dégradée en lieu et place
>>>>> d'une
>>>>> couleur pleine? Celà permettrai d'accéder plus rapidement à des
>>>>> dégradés
>>>>> de
>>>>> couleurs que je me sers régulièrement plutôt que de devoir passer à
>>>>> chaque fois par le sous menu "motifs et textures". Je pourrai
>>>>> définir
>>>>> les trois dégradés que je me sers le plus souvent et les rendre
>>>>> acessibles directement
>>>>> dans la boîte "couleur de remplissage"
>>>>>
>>>>> Merci
>>>>>
>>>>>
>>>>
>>>>
>>>> .
>>>>
>>
>>
>> .
>>
Dans 2007, tu peux dégrader des cellules... Mais à attendre d'upgrader vers la 2007...Passez donc directement à la 2010 qui sort dans environ 1,5 mois !
"NOSI4211" a écrit dans le message de news:
Merci Circé de l'aide. Je vais patienter jusqu'a ce que mon employeur nous "update" à la version 2007.
"Circé" wrote:
Bonsoir,
NOSI4211 a écrit : > Merci Circé, mais ai encore besoin d'aide. La macro fonctionne pour > une > forme complète, mais je voudrais qu'elle s'applique à "une cellule d'un > tableau PP", que dois-je modifier ds la macro?
Pas si simple !! A priori, je ne vois pas de méthode en VBA pour traiter comme sélection une cellule... Par ailleurs, tout dépend de ta version car les tableaux 2003 ne sont pas les mêmes objets que les tableaux 2007.
Circé http://faqword.com
> Merci > NOSI4211
> "Circé" wrote:
>> Bonjour >> >> Il faut que tu crées trois macros que tu ajouteras sur la barre >> d'outils. >> >> Exemple : >> >> Sub dégradé1() >> Dim couleur1, couleur2 >> couleur1 = RGB(x, x, x) >> couleur2 = RGB(x, x, x) >> With ActiveWindow.Selection.ShapeRange.Fill >> .ForeColor.RGB = couleur1 >> .BackColor.RGB = couleur2 >> .TwoColorGradient msoGradientHorizontal, 1 >> End With >> End Sub >> >> >> Il faut que tu spécifies les couleurs 1 et 2 en remplaçant les X par >> les couleurs RGB de ton choix. >> Ensuite, dans TwoColorGradient, tu choisis le type de dégradé (ici >> j'ai >> mis horizontal, ça peut être msoGradientVertical pour vertical, >> msoGradientFromCorner à partir du coin, etc.) et le numéro de 1 à 4 >> qui >> correspond aux 4 types de dégradés de la boîte de dialogue). >> >> Circé >> http://faqword.com >> >> >> >> NOSI4211 a présenté l'énoncé suivant : >>> I s'agit de la barre d'outil "couleur de remplisage" et de la ligne >>> de >>> choix de couleur juste au dessus de "Autres couleurs". Je voudrais >>> savoir >>> comment modifier ces choix de couleurs. Merci >>> "jpforestier" a écrit : >> >>>> Bonjour >>>> 1° qu'appelles-tu Ligne de couleur modifiable... >>>> 2° quelle version de PPT ? >>>> "NOSI4211" a écrit dans le >>>> message de >>>> news: >>>>> Comment faire pour que la ligne de couleur modifiable de la boîte >>>>> "couleur de >>>>> remplissage" puisse contenir une couleur dégradée en lieu et place >>>>> d'une >>>>> couleur pleine? Celà permettrai d'accéder plus rapidement à des >>>>> dégradés >>>>> de >>>>> couleurs que je me sers régulièrement plutôt que de devoir passer à >>>>> chaque fois par le sous menu "motifs et textures". Je pourrai >>>>> définir >>>>> les trois dégradés que je me sers le plus souvent et les rendre >>>>> acessibles directement >>>>> dans la boîte "couleur de remplissage" >>>>> >>>>> Merci >>>>> >>>>> >>>> >>>> >>>> . >>>> >> >> >> . >>
.
Circé
Bonsoir,
NOSI4211 avait écrit le 28/04/2010 :
Merci Circé de l'aide. Je vais patienter jusqu'a ce que mon employeur nous "update" à la version 2007.
Voici une macro pour la version 2003 (ça ne marchera pas avec 2007/2010). A noter qu'effectivement je n'ai pas trouvé le moyen de travailler sur une sélection de cellule, mais j'ai triché par la sélection de texte. Mais, bon, même si la cellule est sans texte, la macro fonctionnera pour une seule cellule à la fois :
Sub colore_cellule() Dim couleur1, couleur2 couleur1 = RGB(x, x, x) couleur2 = RGB(x, x, x) Dim forme As Shape Dim tablo As Table Dim nb_l As Long, nb_col As Long
With ActiveWindow.Selection.TextRange Set forme = .Parent.Parent
Set tablo = ActiveWindow.Selection.ShapeRange(1).Table With tablo For nb_l = 1 To .Rows.Count For nb_col = 1 To .Columns.Count If .Cell(nb_l, nb_col).Shape.Name = forme.Name Then With .Cell(CStr(nb_l), CStr(nb_col)).Shape.Fill .ForeColor.RGB = couleur1 .BackColor.RGB = couleur2 .TwoColorGradient msoGradientDiagonalDown, 1 End With
End If Next Next End With End With End Sub
Circé http://faqword.com
"Circé" wrote:
Bonsoir,
NOSI4211 a écrit :
Merci Circé, mais ai encore besoin d'aide. La macro fonctionne pour une forme complète, mais je voudrais qu'elle s'applique à "une cellule d'un tableau PP", que dois-je modifier ds la macro?
Pas si simple !! A priori, je ne vois pas de méthode en VBA pour traiter comme sélection une cellule... Par ailleurs, tout dépend de ta version car les tableaux 2003 ne sont pas les mêmes objets que les tableaux 2007.
Circé http://faqword.com
Merci NOSI4211
"Circé" wrote:
Bonjour
Il faut que tu crées trois macros que tu ajouteras sur la barre d'outils.
Exemple :
Sub dégradé1() Dim couleur1, couleur2 couleur1 = RGB(x, x, x) couleur2 = RGB(x, x, x) With ActiveWindow.Selection.ShapeRange.Fill .ForeColor.RGB = couleur1 .BackColor.RGB = couleur2 .TwoColorGradient msoGradientHorizontal, 1 End With End Sub
Il faut que tu spécifies les couleurs 1 et 2 en remplaçant les X par les couleurs RGB de ton choix. Ensuite, dans TwoColorGradient, tu choisis le type de dégradé (ici j'ai mis horizontal, ça peut être msoGradientVertical pour vertical, msoGradientFromCorner à partir du coin, etc.) et le numéro de 1 à 4 qui correspond aux 4 types de dégradés de la boîte de dialogue).
Circé http://faqword.com
NOSI4211 a présenté l'énoncé suivant :
I s'agit de la barre d'outil "couleur de remplisage" et de la ligne de choix de couleur juste au dessus de "Autres couleurs". Je voudrais savoir comment modifier ces choix de couleurs. Merci "jpforestier" a écrit :
Bonjour 1° qu'appelles-tu Ligne de couleur modifiable... 2° quelle version de PPT ? "NOSI4211" a écrit dans le message de news:
Comment faire pour que la ligne de couleur modifiable de la boîte "couleur de remplissage" puisse contenir une couleur dégradée en lieu et place d'une couleur pleine? Celà permettrai d'accéder plus rapidement à des dégradés de couleurs que je me sers régulièrement plutôt que de devoir passer à chaque fois par le sous menu "motifs et textures". Je pourrai définir les trois dégradés que je me sers le plus souvent et les rendre acessibles directement dans la boîte "couleur de remplissage"
Merci
.
.
.
Bonsoir,
NOSI4211 avait écrit le 28/04/2010 :
Merci Circé de l'aide. Je vais patienter jusqu'a ce que mon employeur nous
"update" à la version 2007.
Voici une macro pour la version 2003 (ça ne marchera pas avec
2007/2010).
A noter qu'effectivement je n'ai pas trouvé le moyen de travailler sur
une sélection de cellule, mais j'ai triché par la sélection de texte.
Mais, bon, même si la cellule est sans texte, la macro fonctionnera
pour une seule cellule à la fois :
Sub colore_cellule()
Dim couleur1, couleur2
couleur1 = RGB(x, x, x)
couleur2 = RGB(x, x, x)
Dim forme As Shape
Dim tablo As Table
Dim nb_l As Long, nb_col As Long
With ActiveWindow.Selection.TextRange
Set forme = .Parent.Parent
Set tablo = ActiveWindow.Selection.ShapeRange(1).Table
With tablo
For nb_l = 1 To .Rows.Count
For nb_col = 1 To .Columns.Count
If .Cell(nb_l, nb_col).Shape.Name = forme.Name Then
With .Cell(CStr(nb_l), CStr(nb_col)).Shape.Fill
.ForeColor.RGB = couleur1
.BackColor.RGB = couleur2
.TwoColorGradient msoGradientDiagonalDown, 1
End With
End If
Next
Next
End With
End With
End Sub
Circé
http://faqword.com
"Circé" wrote:
Bonsoir,
NOSI4211 a écrit :
Merci Circé, mais ai encore besoin d'aide. La macro fonctionne pour une
forme complète, mais je voudrais qu'elle s'applique à "une cellule d'un
tableau PP", que dois-je modifier ds la macro?
Pas si simple !!
A priori, je ne vois pas de méthode en VBA pour traiter comme sélection
une cellule...
Par ailleurs, tout dépend de ta version car les tableaux 2003 ne sont
pas les mêmes objets que les tableaux 2007.
Circé
http://faqword.com
Merci
NOSI4211
"Circé" wrote:
Bonjour
Il faut que tu crées trois macros que tu ajouteras sur la barre
d'outils.
Exemple :
Sub dégradé1()
Dim couleur1, couleur2
couleur1 = RGB(x, x, x)
couleur2 = RGB(x, x, x)
With ActiveWindow.Selection.ShapeRange.Fill
.ForeColor.RGB = couleur1
.BackColor.RGB = couleur2
.TwoColorGradient msoGradientHorizontal, 1
End With
End Sub
Il faut que tu spécifies les couleurs 1 et 2 en remplaçant les X par
les couleurs RGB de ton choix.
Ensuite, dans TwoColorGradient, tu choisis le type de dégradé (ici j'ai
mis horizontal, ça peut être msoGradientVertical pour vertical,
msoGradientFromCorner à partir du coin, etc.) et le numéro de 1 à 4 qui
correspond aux 4 types de dégradés de la boîte de dialogue).
Circé
http://faqword.com
NOSI4211 a présenté l'énoncé suivant :
I s'agit de la barre d'outil "couleur de remplisage" et de la ligne de
choix de couleur juste au dessus de "Autres couleurs". Je voudrais
savoir comment modifier ces choix de couleurs. Merci
"jpforestier" a écrit :
Bonjour
1° qu'appelles-tu Ligne de couleur modifiable...
2° quelle version de PPT ?
"NOSI4211" <NOSI4211@discussions.microsoft.com> a écrit dans le message
de news: B9353173-99CA-477D-8116-E02A9F8E645E@microsoft.com...
Comment faire pour que la ligne de couleur modifiable de la boîte
"couleur de
remplissage" puisse contenir une couleur dégradée en lieu et place
d'une couleur pleine? Celà permettrai d'accéder plus rapidement à des
dégradés de
couleurs que je me sers régulièrement plutôt que de devoir passer à
chaque fois par le sous menu "motifs et textures". Je pourrai définir
les trois dégradés que je me sers le plus souvent et les rendre
acessibles directement
dans la boîte "couleur de remplissage"
Merci Circé de l'aide. Je vais patienter jusqu'a ce que mon employeur nous "update" à la version 2007.
Voici une macro pour la version 2003 (ça ne marchera pas avec 2007/2010). A noter qu'effectivement je n'ai pas trouvé le moyen de travailler sur une sélection de cellule, mais j'ai triché par la sélection de texte. Mais, bon, même si la cellule est sans texte, la macro fonctionnera pour une seule cellule à la fois :
Sub colore_cellule() Dim couleur1, couleur2 couleur1 = RGB(x, x, x) couleur2 = RGB(x, x, x) Dim forme As Shape Dim tablo As Table Dim nb_l As Long, nb_col As Long
With ActiveWindow.Selection.TextRange Set forme = .Parent.Parent
Set tablo = ActiveWindow.Selection.ShapeRange(1).Table With tablo For nb_l = 1 To .Rows.Count For nb_col = 1 To .Columns.Count If .Cell(nb_l, nb_col).Shape.Name = forme.Name Then With .Cell(CStr(nb_l), CStr(nb_col)).Shape.Fill .ForeColor.RGB = couleur1 .BackColor.RGB = couleur2 .TwoColorGradient msoGradientDiagonalDown, 1 End With
End If Next Next End With End With End Sub
Circé http://faqword.com
"Circé" wrote:
Bonsoir,
NOSI4211 a écrit :
Merci Circé, mais ai encore besoin d'aide. La macro fonctionne pour une forme complète, mais je voudrais qu'elle s'applique à "une cellule d'un tableau PP", que dois-je modifier ds la macro?
Pas si simple !! A priori, je ne vois pas de méthode en VBA pour traiter comme sélection une cellule... Par ailleurs, tout dépend de ta version car les tableaux 2003 ne sont pas les mêmes objets que les tableaux 2007.
Circé http://faqword.com
Merci NOSI4211
"Circé" wrote:
Bonjour
Il faut que tu crées trois macros que tu ajouteras sur la barre d'outils.
Exemple :
Sub dégradé1() Dim couleur1, couleur2 couleur1 = RGB(x, x, x) couleur2 = RGB(x, x, x) With ActiveWindow.Selection.ShapeRange.Fill .ForeColor.RGB = couleur1 .BackColor.RGB = couleur2 .TwoColorGradient msoGradientHorizontal, 1 End With End Sub
Il faut que tu spécifies les couleurs 1 et 2 en remplaçant les X par les couleurs RGB de ton choix. Ensuite, dans TwoColorGradient, tu choisis le type de dégradé (ici j'ai mis horizontal, ça peut être msoGradientVertical pour vertical, msoGradientFromCorner à partir du coin, etc.) et le numéro de 1 à 4 qui correspond aux 4 types de dégradés de la boîte de dialogue).
Circé http://faqword.com
NOSI4211 a présenté l'énoncé suivant :
I s'agit de la barre d'outil "couleur de remplisage" et de la ligne de choix de couleur juste au dessus de "Autres couleurs". Je voudrais savoir comment modifier ces choix de couleurs. Merci "jpforestier" a écrit :
Bonjour 1° qu'appelles-tu Ligne de couleur modifiable... 2° quelle version de PPT ? "NOSI4211" a écrit dans le message de news:
Comment faire pour que la ligne de couleur modifiable de la boîte "couleur de remplissage" puisse contenir une couleur dégradée en lieu et place d'une couleur pleine? Celà permettrai d'accéder plus rapidement à des dégradés de couleurs que je me sers régulièrement plutôt que de devoir passer à chaque fois par le sous menu "motifs et textures". Je pourrai définir les trois dégradés que je me sers le plus souvent et les rendre acessibles directement dans la boîte "couleur de remplissage"
