Son bir şey daha garfik kısmına bir combobox eklesek ve farklı garfik başlıklarını seçerek tek image de göstersek olurmu bunu yapma şansımız varmı bir çok image eklemek yerine kulanıcı hangi başlıklı garfiği görmek istiyorsa onu seçsin.

---

Bizim toplamda 21 grafiğimiz var bunları tek tek image ile göstermek yerine combobox tan oluşturacağımız seçeneklerle o grafikleri göstersin o tablo seçeneğine göre şimdi burada sadece bir tane tablonun grafiğini gösteriyor onu nasıl ayarlaya biliriz.

(19/08/2020, 10:00)merttr07 yazdı: combobox tan oluşturacağımız seçeneklerle o grafikleri göstersin o tablo seçeneğine göre

çok sorun olmaz hangi grafik hangi tabloya bağlıysa tablo seçtikten sonra grafiğin adı açılır kutuya alınır ve seçime göre grafik gösterilebilir.

(19/08/2020, 11:03)berduş yazdı:

(19/08/2020, 10:00)merttr07 yazdı: combobox tan oluşturacağımız seçeneklerle o grafikleri göstersin o tablo seçeneğine göre

çok sorun olmaz hangi grafik hangi tabloya bağlıysa tablo seçtikten sonra grafiğin adı açılır kutuya alınır ve seçime göre grafik gösterilebilir.

ama nasıl yapıacam kod olarak işte önemli olanda listbox gibi veya combobox gibi

---

21 tane image oluşturmak yerine karma karışık yapmak yerine kullanıcının görmek istediği grafiği görmesini sunmak daha mantıklı. Ama işte o kodu nasıl oluşturucaz

İkinci gözlemlediğim olay ise Vba tablo kısmında hepsini birleştiriyor ayrı ayrı getirmiyor tabloları.

ö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

Teşekkür ederim daha dikkatli olacağım. Bunu combobox içerisine ekleyeceğiz değilmi.