(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.