Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Mettre la mention Projet en transparence

Mettre la mention Projet en transparence

6 réponses
Avatar
Mike
Bonjour,
J'aimerais savoir s'il est possible, comme sous Word, de mettre sur le fond
de la page la mention "Projet" en transparence sans passer par l'insertion
d'une image.
Merci
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
garnote
Salut Mike,

Et si c'était possible de mettre le mot Projet en
arrière-plan en passant par Insertion d'images,
est-ce que ça te conviendrait ?

Serge

"Mike" <~~ a écrit dans le message de news:
e$
Bonjour,
J'aimerais savoir s'il est possible, comme sous Word, de mettre sur le
fond

de la page la mention "Projet" en transparence sans passer par l'insertion
d'une image.
Merci




Avatar
Michel Pierron
Bonjour Mike;
Par exemple:
ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, "PROJET" _
, "Arial", 32#, msoTrue, msoFalse, 25, 50#).Select
With Selection
.ShapeRange.Fill.Visible = msoTrue
.ShapeRange.Fill.Solid
.ShapeRange.Fill.ForeColor.SchemeColor = 22
.ShapeRange.Fill.Transparency = 0.5
.ShapeRange.Line.Visible = msoFalse
.ShapeRange.IncrementRotation -30
End With

"Mike" <~~ a écrit dans le message de
news:e$
Bonjour,
J'aimerais savoir s'il est possible, comme sous Word, de mettre sur le fond
de la page la mention "Projet" en transparence sans passer par l'insertion
d'une image.
Merci




Avatar
garnote
Une fois ce beau mofif apparu, tu pourrais lancer :

Sub CréerImage()
Application.ScreenUpdating = False
nom = InputBox("Nom de la nouvelle image")
Selection.CopyPicture
Workbooks.Add
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, _
Selection.Height).Chart
.ChartArea.Border.LineStyle = 0
.Paste
.Export "D:Mes documentsMes images" & nom & " .jpg", "JPG"
End With
ActiveWorkbook.Close False
End Sub

et te servir de l'image obtenue comme arrière-plan.

Serge

"Michel Pierron" a écrit dans le message de news:

Bonjour Mike;
Par exemple:
ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, "PROJET" _
, "Arial", 32#, msoTrue, msoFalse, 25, 50#).Select
With Selection
.ShapeRange.Fill.Visible = msoTrue
.ShapeRange.Fill.Solid
.ShapeRange.Fill.ForeColor.SchemeColor = 22
.ShapeRange.Fill.Transparency = 0.5
.ShapeRange.Line.Visible = msoFalse
.ShapeRange.IncrementRotation -30
End With

"Mike" <~~ a écrit dans le message de
news:e$
Bonjour,
J'aimerais savoir s'il est possible, comme sous Word, de mettre sur le
fond


de la page la mention "Projet" en transparence sans passer par
l'insertion


d'une image.
Merci








Avatar
garnote
Évidemment, c'est motif. Et en passant, comme dirait l'autre,
qui est donc l'auteur de cette macro ?

Serge

"garnote" a écrit dans le message de news:
zs1Zb.61667$
Une fois ce beau mofif apparu, tu pourrais lancer :

Sub CréerImage()
Application.ScreenUpdating = False
nom = InputBox("Nom de la nouvelle image")
Selection.CopyPicture
Workbooks.Add
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, _
Selection.Height).Chart
.ChartArea.Border.LineStyle = 0
.Paste
.Export "D:Mes documentsMes images" & nom & " .jpg", "JPG"
End With
ActiveWorkbook.Close False
End Sub

et te servir de l'image obtenue comme arrière-plan.

Serge

"Michel Pierron" a écrit dans le message de news:

Bonjour Mike;
Par exemple:
ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, "PROJET" _
, "Arial", 32#, msoTrue, msoFalse, 25, 50#).Select
With Selection
.ShapeRange.Fill.Visible = msoTrue
.ShapeRange.Fill.Solid
.ShapeRange.Fill.ForeColor.SchemeColor = 22
.ShapeRange.Fill.Transparency = 0.5
.ShapeRange.Line.Visible = msoFalse
.ShapeRange.IncrementRotation -30
End With

"Mike" <~~ a écrit dans le message de
news:e$
Bonjour,
J'aimerais savoir s'il est possible, comme sous Word, de mettre sur le
fond


de la page la mention "Projet" en transparence sans passer par
l'insertion


d'une image.
Merci












Avatar
Michel Pierron
Bonjour Serge;
Il s'agit d'un auteur particulièrement prolixe en la matière:
L'enregistreur de macro !
MP

"garnote" a écrit dans le message de
news:EJ1Zb.61704$
Évidemment, c'est motif. Et en passant, comme dirait l'autre,
qui est donc l'auteur de cette macro ?

Serge

"garnote" a écrit dans le message de news:
zs1Zb.61667$
Une fois ce beau mofif apparu, tu pourrais lancer :

Sub CréerImage()
Application.ScreenUpdating = False
nom = InputBox("Nom de la nouvelle image")
Selection.CopyPicture
Workbooks.Add
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, _
Selection.Height).Chart
.ChartArea.Border.LineStyle = 0
.Paste
.Export "D:Mes documentsMes images" & nom & " .jpg", "JPG"
End With
ActiveWorkbook.Close False
End Sub

et te servir de l'image obtenue comme arrière-plan.

Serge

"Michel Pierron" a écrit dans le message de news:

Bonjour Mike;
Par exemple:
ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, "PROJET" _
, "Arial", 32#, msoTrue, msoFalse, 25, 50#).Select
With Selection
.ShapeRange.Fill.Visible = msoTrue
.ShapeRange.Fill.Solid
.ShapeRange.Fill.ForeColor.SchemeColor = 22
.ShapeRange.Fill.Transparency = 0.5
.ShapeRange.Line.Visible = msoFalse
.ShapeRange.IncrementRotation -30
End With

"Mike" <~~ a écrit dans le message de
news:e$
Bonjour,
J'aimerais savoir s'il est possible, comme sous Word, de mettre sur le
fond


de la page la mention "Projet" en transparence sans passer par
l'insertion


d'une image.
Merci
















Avatar
Mike
Je voyais ca plus simple lol !

Mais ca marche donc je vais l'utiliser
Merci !!