j'AIMERAIS UN FILIGRANE "TEXTE" DANS EXCELL MAIS LES RÉPONSES DÉJÀ DONNÉES NE
M'AIDENT PAS. SI JE CRÉE LE TEXTE EN WORD ART EST-CE QUE JE LE FAIS EN WORD
ET JE LE SAUVEGARDE OU AUTRE CHOSE? MERCI
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Péhemme
Les bouquets de jonquilles sont ravissants au printemps et très spécialement à Gérarmer. Mais il ne faut pas crier, cela fait mal aux yeux. Bonjour à toi aussi. Notre Modeste de Gilbert (j'espère que c'est bien lui) avait publié sur ce même forum il y a quelques années ce bout de code. Tu adaptes en fonction de tes besoins. Au revoir et Merci à Modeste (ou à l'auteur) Michel
Private Sub Fili_Projet() ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "Projet", "Algerian", _ 100#, msoFalse, msoFalse, 150, 100#).Select With Selection .ShapeRange.Fill.Visible = msoTrue .ShapeRange.Fill.Solid .ShapeRange.Fill.ForeColor.SchemeColor = 22 .ShapeRange.Fill.Transparency = 0.7 .ShapeRange.Line.Visible = msoFalse .ShapeRange.IncrementRotation -25 .ShapeRange.IncrementLeft -60 .ShapeRange.IncrementTop 100 End With [a5].Select End Sub
"jonquilles" a écrit dans le message de news:
j'AIMERAIS UN FILIGRANE "TEXTE" DANS EXCELL MAIS LES RÉPONSES DÉJÀ DONNÉES NE M'AIDENT PAS. SI JE CRÉE LE TEXTE EN WORD ART EST-CE QUE JE LE FAIS EN WORD ET JE LE SAUVEGARDE OU AUTRE CHOSE? MERCI
Les bouquets de jonquilles sont ravissants au printemps et très spécialement
à Gérarmer.
Mais il ne faut pas crier, cela fait mal aux yeux.
Bonjour à toi aussi.
Notre Modeste de Gilbert (j'espère que c'est bien lui) avait publié sur ce
même forum il y a quelques années ce bout de code. Tu adaptes en fonction de
tes besoins.
Au revoir et Merci à Modeste (ou à l'auteur)
Michel
Private Sub Fili_Projet()
ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "Projet", "Algerian", _
100#, msoFalse, msoFalse, 150, 100#).Select
With Selection
.ShapeRange.Fill.Visible = msoTrue
.ShapeRange.Fill.Solid
.ShapeRange.Fill.ForeColor.SchemeColor = 22
.ShapeRange.Fill.Transparency = 0.7
.ShapeRange.Line.Visible = msoFalse
.ShapeRange.IncrementRotation -25
.ShapeRange.IncrementLeft -60
.ShapeRange.IncrementTop 100
End With
[a5].Select
End Sub
"jonquilles" <jonquilles@discussions.microsoft.com> a écrit dans le message
de news:0EEA3892-7838-4FF6-A409-3BA2C844C360@microsoft.com...
j'AIMERAIS UN FILIGRANE "TEXTE" DANS EXCELL MAIS LES RÉPONSES DÉJÀ DONNÉES
NE
M'AIDENT PAS. SI JE CRÉE LE TEXTE EN WORD ART EST-CE QUE JE LE FAIS EN
WORD
ET JE LE SAUVEGARDE OU AUTRE CHOSE? MERCI
Les bouquets de jonquilles sont ravissants au printemps et très spécialement à Gérarmer. Mais il ne faut pas crier, cela fait mal aux yeux. Bonjour à toi aussi. Notre Modeste de Gilbert (j'espère que c'est bien lui) avait publié sur ce même forum il y a quelques années ce bout de code. Tu adaptes en fonction de tes besoins. Au revoir et Merci à Modeste (ou à l'auteur) Michel
Private Sub Fili_Projet() ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "Projet", "Algerian", _ 100#, msoFalse, msoFalse, 150, 100#).Select With Selection .ShapeRange.Fill.Visible = msoTrue .ShapeRange.Fill.Solid .ShapeRange.Fill.ForeColor.SchemeColor = 22 .ShapeRange.Fill.Transparency = 0.7 .ShapeRange.Line.Visible = msoFalse .ShapeRange.IncrementRotation -25 .ShapeRange.IncrementLeft -60 .ShapeRange.IncrementTop 100 End With [a5].Select End Sub
"jonquilles" a écrit dans le message de news:
j'AIMERAIS UN FILIGRANE "TEXTE" DANS EXCELL MAIS LES RÉPONSES DÉJÀ DONNÉES NE M'AIDENT PAS. SI JE CRÉE LE TEXTE EN WORD ART EST-CE QUE JE LE FAIS EN WORD ET JE LE SAUVEGARDE OU AUTRE CHOSE? MERCI
Jacquouille
Bonjour Michel (si je ne m'abuse -)
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Péhemme" a écrit dans le message de news:
Les bouquets de jonquilles sont ravissants au printemps et très spécialement à Gérarmer. Mais il ne faut pas crier, cela fait mal aux yeux. Bonjour à toi aussi. Notre Modeste de Gilbert (j'espère que c'est bien lui) avait publié sur ce même forum il y a quelques années ce bout de code. Tu adaptes en fonction de tes besoins. Au revoir et Merci à Modeste (ou à l'auteur) Michel
Private Sub Fili_Projet() ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "Projet", "Algerian", _ 100#, msoFalse, msoFalse, 150, 100#).Select With Selection .ShapeRange.Fill.Visible = msoTrue .ShapeRange.Fill.Solid .ShapeRange.Fill.ForeColor.SchemeColor = 22 .ShapeRange.Fill.Transparency = 0.7 .ShapeRange.Line.Visible = msoFalse .ShapeRange.IncrementRotation -25 .ShapeRange.IncrementLeft -60 .ShapeRange.IncrementTop 100 End With [a5].Select End Sub
"jonquilles" a écrit dans le message de news:
j'AIMERAIS UN FILIGRANE "TEXTE" DANS EXCELL MAIS LES RÉPONSES DÉJÀ DONNÉES NE M'AIDENT PAS. SI JE CRÉE LE TEXTE EN WORD ART EST-CE QUE JE LE FAIS EN WORD ET JE LE SAUVEGARDE OU AUTRE CHOSE? MERCI
Bonjour Michel (si je ne m'abuse -)
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Péhemme" <xx@xx.xx> a écrit dans le message de news:
ew6BE3vIJHA.1968@TK2MSFTNGP06.phx.gbl...
Les bouquets de jonquilles sont ravissants au printemps et très
spécialement à Gérarmer.
Mais il ne faut pas crier, cela fait mal aux yeux.
Bonjour à toi aussi.
Notre Modeste de Gilbert (j'espère que c'est bien lui) avait publié sur ce
même forum il y a quelques années ce bout de code. Tu adaptes en fonction
de tes besoins.
Au revoir et Merci à Modeste (ou à l'auteur)
Michel
Private Sub Fili_Projet()
ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "Projet", "Algerian",
_
100#, msoFalse, msoFalse, 150, 100#).Select
With Selection
.ShapeRange.Fill.Visible = msoTrue
.ShapeRange.Fill.Solid
.ShapeRange.Fill.ForeColor.SchemeColor = 22
.ShapeRange.Fill.Transparency = 0.7
.ShapeRange.Line.Visible = msoFalse
.ShapeRange.IncrementRotation -25
.ShapeRange.IncrementLeft -60
.ShapeRange.IncrementTop 100
End With
[a5].Select
End Sub
"jonquilles" <jonquilles@discussions.microsoft.com> a écrit dans le
message de news:0EEA3892-7838-4FF6-A409-3BA2C844C360@microsoft.com...
j'AIMERAIS UN FILIGRANE "TEXTE" DANS EXCELL MAIS LES RÉPONSES DÉJÀ
DONNÉES NE
M'AIDENT PAS. SI JE CRÉE LE TEXTE EN WORD ART EST-CE QUE JE LE FAIS EN
WORD
ET JE LE SAUVEGARDE OU AUTRE CHOSE? MERCI
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Péhemme" a écrit dans le message de news:
Les bouquets de jonquilles sont ravissants au printemps et très spécialement à Gérarmer. Mais il ne faut pas crier, cela fait mal aux yeux. Bonjour à toi aussi. Notre Modeste de Gilbert (j'espère que c'est bien lui) avait publié sur ce même forum il y a quelques années ce bout de code. Tu adaptes en fonction de tes besoins. Au revoir et Merci à Modeste (ou à l'auteur) Michel
Private Sub Fili_Projet() ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "Projet", "Algerian", _ 100#, msoFalse, msoFalse, 150, 100#).Select With Selection .ShapeRange.Fill.Visible = msoTrue .ShapeRange.Fill.Solid .ShapeRange.Fill.ForeColor.SchemeColor = 22 .ShapeRange.Fill.Transparency = 0.7 .ShapeRange.Line.Visible = msoFalse .ShapeRange.IncrementRotation -25 .ShapeRange.IncrementLeft -60 .ShapeRange.IncrementTop 100 End With [a5].Select End Sub
"jonquilles" a écrit dans le message de news:
j'AIMERAIS UN FILIGRANE "TEXTE" DANS EXCELL MAIS LES RÉPONSES DÉJÀ DONNÉES NE M'AIDENT PAS. SI JE CRÉE LE TEXTE EN WORD ART EST-CE QUE JE LE FAIS EN WORD ET JE LE SAUVEGARDE OU AUTRE CHOSE? MERCI
Péhemme
Bonsoir Jacques, Ciel je suis démasqué ! ;-)) Bien amicalement. Michel
"Jacquouille" a écrit dans le message de news:
Bonjour Michel (si je ne m'abuse -)
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Péhemme" a écrit dans le message de news:
Les bouquets de jonquilles sont ravissants au printemps et très spécialement à Gérarmer. Mais il ne faut pas crier, cela fait mal aux yeux. Bonjour à toi aussi. Notre Modeste de Gilbert (j'espère que c'est bien lui) avait publié sur ce même forum il y a quelques années ce bout de code. Tu adaptes en fonction de tes besoins. Au revoir et Merci à Modeste (ou à l'auteur) Michel
Private Sub Fili_Projet() ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "Projet", "Algerian", _ 100#, msoFalse, msoFalse, 150, 100#).Select With Selection .ShapeRange.Fill.Visible = msoTrue .ShapeRange.Fill.Solid .ShapeRange.Fill.ForeColor.SchemeColor = 22 .ShapeRange.Fill.Transparency = 0.7 .ShapeRange.Line.Visible = msoFalse .ShapeRange.IncrementRotation -25 .ShapeRange.IncrementLeft -60 .ShapeRange.IncrementTop 100 End With [a5].Select End Sub
"jonquilles" a écrit dans le message de news:
j'AIMERAIS UN FILIGRANE "TEXTE" DANS EXCELL MAIS LES RÉPONSES DÉJÀ DONNÉES NE M'AIDENT PAS. SI JE CRÉE LE TEXTE EN WORD ART EST-CE QUE JE LE FAIS EN WORD ET JE LE SAUVEGARDE OU AUTRE CHOSE? MERCI
Bonsoir Jacques,
Ciel je suis démasqué !
;-))
Bien amicalement.
Michel
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news:u58U7NyIJHA.740@TK2MSFTNGP03.phx.gbl...
Bonjour Michel (si je ne m'abuse -)
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Péhemme" <xx@xx.xx> a écrit dans le message de news:
ew6BE3vIJHA.1968@TK2MSFTNGP06.phx.gbl...
Les bouquets de jonquilles sont ravissants au printemps et très
spécialement à Gérarmer.
Mais il ne faut pas crier, cela fait mal aux yeux.
Bonjour à toi aussi.
Notre Modeste de Gilbert (j'espère que c'est bien lui) avait publié sur
ce même forum il y a quelques années ce bout de code. Tu adaptes en
fonction de tes besoins.
Au revoir et Merci à Modeste (ou à l'auteur)
Michel
Private Sub Fili_Projet()
ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "Projet", "Algerian",
_
100#, msoFalse, msoFalse, 150, 100#).Select
With Selection
.ShapeRange.Fill.Visible = msoTrue
.ShapeRange.Fill.Solid
.ShapeRange.Fill.ForeColor.SchemeColor = 22
.ShapeRange.Fill.Transparency = 0.7
.ShapeRange.Line.Visible = msoFalse
.ShapeRange.IncrementRotation -25
.ShapeRange.IncrementLeft -60
.ShapeRange.IncrementTop 100
End With
[a5].Select
End Sub
"jonquilles" <jonquilles@discussions.microsoft.com> a écrit dans le
message de news:0EEA3892-7838-4FF6-A409-3BA2C844C360@microsoft.com...
j'AIMERAIS UN FILIGRANE "TEXTE" DANS EXCELL MAIS LES RÉPONSES DÉJÀ
DONNÉES NE
M'AIDENT PAS. SI JE CRÉE LE TEXTE EN WORD ART EST-CE QUE JE LE FAIS EN
WORD
ET JE LE SAUVEGARDE OU AUTRE CHOSE? MERCI
Bonsoir Jacques, Ciel je suis démasqué ! ;-)) Bien amicalement. Michel
"Jacquouille" a écrit dans le message de news:
Bonjour Michel (si je ne m'abuse -)
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Péhemme" a écrit dans le message de news:
Les bouquets de jonquilles sont ravissants au printemps et très spécialement à Gérarmer. Mais il ne faut pas crier, cela fait mal aux yeux. Bonjour à toi aussi. Notre Modeste de Gilbert (j'espère que c'est bien lui) avait publié sur ce même forum il y a quelques années ce bout de code. Tu adaptes en fonction de tes besoins. Au revoir et Merci à Modeste (ou à l'auteur) Michel
Private Sub Fili_Projet() ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "Projet", "Algerian", _ 100#, msoFalse, msoFalse, 150, 100#).Select With Selection .ShapeRange.Fill.Visible = msoTrue .ShapeRange.Fill.Solid .ShapeRange.Fill.ForeColor.SchemeColor = 22 .ShapeRange.Fill.Transparency = 0.7 .ShapeRange.Line.Visible = msoFalse .ShapeRange.IncrementRotation -25 .ShapeRange.IncrementLeft -60 .ShapeRange.IncrementTop 100 End With [a5].Select End Sub
"jonquilles" a écrit dans le message de news:
j'AIMERAIS UN FILIGRANE "TEXTE" DANS EXCELL MAIS LES RÉPONSES DÉJÀ DONNÉES NE M'AIDENT PAS. SI JE CRÉE LE TEXTE EN WORD ART EST-CE QUE JE LE FAIS EN WORD ET JE LE SAUVEGARDE OU AUTRE CHOSE? MERCI