(آموزشی) نمایش چارت و نمودار شیت ها در فرم

[ali.b]

سلام
با کد زیر میتونید هر چارت و نموداری که در شیت دارین رو بدون دردسر در فرم ها نمایش بدین
قبلش باید دقت کنید که ابعاد چارت و یا نمودار باید با ابعاد فریم image در فرم یکی باشه

Private Sub UpdateChart(chtype)
Application.ScreenUpdating = False
    Dim currentChart As Chart
    Dim Fname As String
    
    Set currentChart = Sheets("[COLOR=#ff0000]Chart[/COLOR]").ChartObjects([COLOR=#0000cd]1[/COLOR]).Chart
    
'   Save chart as GIF
    Fname = Application.DefaultFilePath & Application.PathSeparator & "[COLOR=#008000]temp[/COLOR].gif"
    currentChart.Export Filename:=Fname, FilterName:="GIF"


'   Show the chart
    [COLOR=#800080]Image1[/COLOR].Picture = LoadPicture(Fname)
Application.ScreenUpdating = True
End Sub

این هم کد مخصوص فراخوانی تصویر برای دکمه ها یا هنگام لود شدن فرم ها

Call UpdateChart(xlXYScatterSmoothNoMarkers)

نکات:
1- رنگ قرمز مربوط به نام شیت هست

2- رنگ آبی مربوط به شماره نمودار یا چارت که اگه دو یا چند چارت داشته باشین و روی انها کلیک کنید جایی ادرس سلول ها در فرمول بار نوشته رو دقت کنید می نویسیه chart 1 یا chart 2
این 1 یا 2 همون عدد مربوط به شماره چارت در بخشی که با رنگ ابی مشخص شده هست

3- رنگ سبز هم فایل ایمیج هر چارت هست که تولید میشه اگه چند نمودار دارین نباید temp تو همه کدها یکسان باشد

4- رنگ بنفش برای هر نمودار یک ابجکت image باید تعریف کنید