سلام
با کد زیر میتونید هر چارت و نموداری که در شیت دارین رو بدون دردسر در فرم ها نمایش بدین
قبلش باید دقت کنید که ابعاد چارت و یا نمودار باید با ابعاد فریم image در فرم یکی باشه
کد:
Private Sub UpdateChart(chtype)
Application.ScreenUpdating = False
Dim currentChart As Chart
Dim Fname As String
Set currentChart = Sheets("Chart").ChartObjects(1).Chart
' Save chart as GIF
Fname = Application.DefaultFilePath & Application.PathSeparator & "temp.gif"
currentChart.Export Filename:=Fname, FilterName:="GIF"
' Show the chart
Image1.Picture = LoadPicture(Fname)
Application.ScreenUpdating = True
End Sub
این هم کد مخصوص فراخوانی تصویر برای دکمه ها یا هنگام لود شدن فرم ها
کد:
Call UpdateChart(xlXYScatterSmoothNoMarkers)
نکات:
1- رنگ قرمز مربوط به نام شیت هست
2- رنگ آبی مربوط به شماره نمودار یا چارت که اگه دو یا چند چارت داشته باشین و روی انها کلیک کنید جایی ادرس سلول ها در فرمول بار نوشته رو دقت کنید می نویسیه chart 1 یا chart 2
این 1 یا 2 همون عدد مربوط به شماره چارت در بخشی که با رنگ ابی مشخص شده هست
3- رنگ سبز هم فایل ایمیج هر چارت هست که تولید میشه اگه چند نمودار دارین نباید temp تو همه کدها یکسان باشد
4- رنگ بنفش برای هر نمودار یک ابجکت image باید تعریف کنید
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)