D
Dan
Another question,
I need to set chart exported to a specific size to fit in
UserForm/ImageControl. Since the chat is large, only small portion of of is
being displayed. I tried other options of changing PictureSizeMode between 0,
1 and 3, but this is not what I need. Anyone has ideas? I am using John's URL
http://j-walk.com/ss/excel/tips/tip66.htm to fit according to my need. Code
is below.
Dim MyChart As Chart
Dim ChartNum As Integer
Private Sub UserForm_Initialize()
ChartNum = 1
UpdateChart
End Sub
Private Sub CloseButton_Click()
Unload Me
Kill (ThisWorkbook.Path & Application.PathSeparator & "temp.gif")
End Sub
'Declare Chart as variable
Private Sub UpdateChart()
Set MyChart = Charts("Tool Sales2")
' Save chart as GIF
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
MyChart.Export FileName:=Fname, FilterName:="GIF"
' Show the chart
Image1.Picture = LoadPicture(Fname)
End Sub
I need to set chart exported to a specific size to fit in
UserForm/ImageControl. Since the chat is large, only small portion of of is
being displayed. I tried other options of changing PictureSizeMode between 0,
1 and 3, but this is not what I need. Anyone has ideas? I am using John's URL
http://j-walk.com/ss/excel/tips/tip66.htm to fit according to my need. Code
is below.
Dim MyChart As Chart
Dim ChartNum As Integer
Private Sub UserForm_Initialize()
ChartNum = 1
UpdateChart
End Sub
Private Sub CloseButton_Click()
Unload Me
Kill (ThisWorkbook.Path & Application.PathSeparator & "temp.gif")
End Sub
'Declare Chart as variable
Private Sub UpdateChart()
Set MyChart = Charts("Tool Sales2")
' Save chart as GIF
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
MyChart.Export FileName:=Fname, FilterName:="GIF"
' Show the chart
Image1.Picture = LoadPicture(Fname)
End Sub