Remplissage avec image ou texture - Graphique - vba

[nam]

Bonjour,
j'ai automatisé la création d'un certain nombre de graphiques avec une macro vba.
La mise en forme ne pose pas de problème (bordure, couleur...), sauf pour l'application d'une texture sur la zone de graphique.
Je voudrais appliquer une des textures "standard" d'Excel, et pas une image importée. (17e texture proposée, en bleu, cf pièce jointe).
Pour l'instant, je contourne cette difficulté en commandant l'application d'un modèle de graphique, mais ma macro est destinée à terme à être utilisée par plusieurs personnes n'ayant pas forcément enregistré ce modèle.
Et l'enregistreur de macro n'a pas l'air de détecter les commandes de mise en forme du graphique...

Merci beaucoup de votre aide,
nam

 

[Misange]

Re : Remplissage avec image ou texture - Graphique - vba

Bonjour
l'enregistreur de macro sur les graphiques a beaucoup de manques avec excel 2007.
Avec 2010 voilà ce qu'il me dit

Sub Macro1()

    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.PlotArea.Select
    With Selection.Format.Fill
        .Visible = msoTrue
        .PresetTextured msoTextureBlueTissuePaper
        .TextureTile = msoTrue
        .TextureOffsetX = 0
        .TextureOffsetY = 0
        .TextureHorizontalScale = 1
        .TextureVerticalScale = 1
        .TextureAlignment = msoTextureTopLeft
    End With
End Sub

Adapte 🙂

 

[nam]

Re : Remplissage avec image ou texture - Graphique - vba

Super c'est exactement ça que je voulais !
Merci beaucoup Misange !

nam

 

[jo91379]

Re : Remplissage avec image ou texture - Graphique - vba

Bonjour,
je rebondis sur ce sujet car mon problème est similaire.

Suite à d'un certain temps passé sur ce forum j'ai récupéré à droite à gauche des bouts de macros pour créer la macro ci dessous qui crée un graphe à bulle.
Je cherche dorénavant à remplir chacune de mes bulles avec une image différente en fonction de deux valeurs (j'utilise une image pour avoir à la fois deux infos : risque et tendance).

Avec l'enregistreur j'obtiens :

With Selection.Format.Fill
.Visible = msoTrue
.UserPicture "D:\Users\martin\Pictures\Rouge S.png"
.TextureTile = msoFalse
End With

Mais je ne sais pas comment l'utiliser...

Une idée?

Merci beaucoup