Image a part

Bonjour,

je vous contacte car j'ai un petit soucis.

En effet, je souhaiterais avoir une image(un plan fait sous visio) sur une feuille a part comme pour les graphiques.

Il semblerais que j'ai des conflits, incompatibilités ou plus surement une logique erronée.

Je réussi a le faire en créant un graphique, en le déplaçant vers une nouvelle feuille et en collant mon plan sur le graphique.

C'est pas propre et un peu galère a gérer par macro (nom des plans importés,des feuilles/graphique).

Sheets("Feuil1").Range("AH24:AM41").Select
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
    ActiveChart.SetSourceData Source:=Range("Feuil1!$AH$24:$AM$41")
    ActiveChart.Location Where:=xlLocationAsNewSheet
    Sheets("Feuil1").Shapes.Range(Array("Picture 22")).Select
    Selection.Copy 'Sheets("Graphique8").ActiveChart.ChartArea.Select

    Sheets("Graphique8").Select
    ActiveChart.ChartArea.Select
    ActiveChart.ChartArea.Select
    ActiveChart.ChartArea.Copy
    Sheets("Feuil1").Select
    Selection.Copy
    Sheets("Graphique8").Select
    ActiveChart.ChartArea.Select
    ActiveChart.Paste

Une idée?

merci

Apparement j'ai posé une colle.

Faut avouer que le code de l'enregistreur n'est pas terrible....