Zone de texte transparente

[maval]

Bonjour

J'ai un Groupe_Prefectures et j'aimerai si possible avoir les fonds des zone texte en transparents et avec une couleur du texte rouge en VBA

Je joint un modèle

Je vous remercie d'avance

 

[DoubleZero]

Re : Zone de texte transparente

Bonjour, maval, le Forum,

Peut-être ainsi :

Option Explicit
Sub Zone_de_texte_format()
    ActiveSheet.DrawingObjects.Select
    Selection.ShapeRange.Fill.Visible = msoFalse
    With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
        .Solid
    End With
    [a1].Select
End Sub

A bientôt 🙂

 

[DoubleZero]

Re : Zone de texte transparente

Re-bonjour,

Si la macro ne doit agir que sur les zones du "Groupe Prefectures", une autre suggestion :

Option Explicit
Sub Zone_de_texte_format_du_groupe_x()
    ActiveSheet.Shapes.Range(Array("Groupe_Prefectures")).Select
    With Selection
        .ShapeRange.Fill.Visible = msoFalse
        .ShapeRange.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 0, 0)
    End With
End Sub

A bientôt 🙂

 

[maval]

Re : Zone de texte transparente

Bonjour doublezero,

Je te remercie beaucoup mais j'ai un petit souci message d'erreur "Cet objet ne gère pas cette action" sur la ligne

With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill

Merci et bonne journée

 

[DoubleZero]

Re : Zone de texte transparente

Re-bonjour,

... j'ai un petit souci message d'erreur "Cet objet ne gère pas cette action" sur la ligne

With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill

...

Les deux codes visés supra ne génèrent aucune erreur sur mon poste 😕.

Attendons la venue d'un membre expert.

A bientôt 🙂

 

[maval]

Re : Zone de texte transparente

Bonjour DoubleZero,

Je te remercie beaucoup le code du post #3 fonctionne très bien.

Bonne journée