FILIGRANE

Le
jonquilles
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Péhemme
Le #17382331
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" 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
Le #17385091
Bonjour Michel (si je ne m'abuse -)

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"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" 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
Le #17387221
Bonsoir Jacques,
Ciel je suis démasqué !
;-))
Bien amicalement.
Michel

"Jacquouille" 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"
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" 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









Publicité
Poster une réponse
Anonyme