öncelikle mesajlarınızı yazarken yada alıntı yaparken biraz daha dikkatli olur musunuz , her şey bir birine karışmış neresi alıntı neresi yorum, neye cevap vermişsiniz, en son ne demişsiniz hepsi bir birine girmiş... bu nedenle açıkçası takip etmekte zorlanıyorum.
mesajınız net açık ama çok uzun olmasın
aşağıdaki kod resim çerçeverine grafik ekleme kodu
Worksheets("örnekgrafik").ChartObjects("3 Grafik").Chart bu satırda geçen "3 Grafik" kısmı sizin grafiğinizin adı açılır kutulara tüm grafik nesnelerinin adını eklersiniz ve seçimi gösterilecek resmi bu belirler
diyelim ki AKGrafik adında bir açılır kutu/combobox var ve seçimi bu kutudan yapacaksınız ozaman kod aşağıdaki gibi olmalı

Dim sTempFile As String

    Dim sChartName As String

    Dim oChart As Chart

    

    

    sTempFile = Environ("temp") & "\temp.gif"

    

    Set oChart = Worksheets("örnekgrafik").ChartObjects(AKGrafik.value).Chart 'bu kısım grafik nesnesinin adı 

    

    oChart.Export Filename:=sTempFile, FilterName:="GIF"

    

    grafik.Image3.Picture = LoadPicture(sTempFile)

    

    Kill sTempFile