Ajout d'une image

Version imprimable

13/09/2017, 17h31
marcelisa2

Ajout d'une image
Bonjour,

je génère actuellement un graphe dans un onglet dans lequel j'incorpore une image appelée "Matrix".
Cette image se trouve en dehors de la macro excel dans le même répertoire. Voici la partie chargement de l'image dans le graphe
Code:

1 2 3 4 5 6 With Selection.Format.Fill .Visible = msoTrue .UserPicture ThisWorkbook.Path & "\matrix.PNG" .TextureTile = msoFalse End With
Je cherche à faire en sorte d'éviter de devoir créer un fichier zip contenant la macro et cette image pour la transmettre à d'autres personnes.
Est-il possible d'incorporer au sein du classeur excel cette image afin de ne transmettre à mes correspondants que la macro ?

Merci par avance pour vos idées
14/09/2017, 09h20
Menhir

Si ta macro est dans un fichier xlsm, tu peux mettre ton image dans un onglet (éventuellement caché) et la transférer dans ton graph par copie.

Peux-tu dire quel type d'objet désigne Selection ?
14/09/2017, 09h41
marcelisa2

Bonjour,
merci pour votre conseil. Je vais essayer d'effectuer cette approche
La sélection concerne un graphe généré auparavant. j'insère au sein de ce graphe l'image

Rebonjour,

Je viens d'essayer de voir comment insérer dans la zone de traçage du graphe l'image.
J'ai un peu de mal à voir comment effectuer cette action, sachant que cette dernière a été stockée dans un autre onglet appelé "maquette"
Dois je travailler sur l'objet .Userpicture ?
Code:

1 2 3 4 5 6 7 8 ActiveChart.ChartArea.Select ActiveChart.PlotArea.Select With Selection.Format.Fill .Visible = msoTrue .UserPicture ThisWorkbook.Path & "\matrix.PNG" .TextureTile = msoFalse End With

14/09/2017, 11h16
Menhir

Il est possible de le faire "manuellement" (dans le format de ma zone de traçage du graphique, il y a un bouton "Presse-papier" sous "Insérer une image à partir de").
Donc, il est probable qu'il est possible de le faire en VBA.

Malheureusement, ça semble être l'un des rares cas où l'enregistreur automatique de macro est récalcitrant à fournir une piste de recherche. :calim2:
Je pense que la solution doit se trouver quelque part dans les méthodes et propriétés listées ici :
https://msdn.microsoft.com/fr-fr/lib.../ff838198.aspx

Comme je n'en sais pas plus, je te laisse fouiller et tester.
14/09/2017, 15h55
marcelisa2

ajout d'une image dans un graphe récupérée d'un onglet

Bonjour,
merci.
j'étudie la piste
http://silkyroad.developpez.com/VBA/ImageList/
Si vous avez d'autres idées, merci beaucoup par avance
14/09/2017, 16h41
marcelisa2

rebonjour,
une autre solution serait d'exporter l'image temporairement qui se trouve dans mon onglet maquette, dans un répertoire
l'insérer ensuite dans le graphe et enfin la supprimer du répertoire.
Avez-vous d'autres idées? :)

j'ai enfin trouvé la solution

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
    Set s = Sheets("maquette").Shapes("matrice")
    s.CopyPicture
 
    Sheets("graphe").Activate
    ActiveSheet.ChartObjects.Add(800, 780, s.Width, s.Height).Chart.Paste
    ActiveSheet.ChartObjects(2).Chart.Export Filename:="matrice.png"
 
    ActiveChart.ChartArea.Select
    ActiveChart.PlotArea.Select
    With Selection.Format.Fill
        .Visible = msoTrue
        .UserPicture "matrice.png"
        .TextureTile = msoFalse
    End With
 
    ActiveSheet.ChartObjects(2).Delete