Hi Marie -
After this line, resize the Plot Area:
Set CurrentChart = Blad102.ChartObjects(ChartNum).Chart
like this:
With CurrentChart.PlotArea
.Left = 0
.Top = 0
.Width = CurrentChart.ChartArea.Width
.Height = CurrentChart.ChartArea.Height
End With
You may need to adjust slightly, to allow room for the legend, chart title, or axis
titles.
- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______
Marie J-son wrote:
Hi there,
I have this code in a userform and get with it a picture in the same size as
the chartobject - to small. I want a much larger (fill the screen as much as
possible). I can easily solve it by changing size of the chartobject before
export to gif, but i dno't want to do that. I want to change the size of the
gif during or after importing it by LoadPicture.
How?
Help = Forever happy
/Regards
Dim ChartNum As Integer
Private Sub UserForm_Initialize()
Debug.Print "frmPPT initilize "
ChartNum = 1
UpdateChart
End Sub
Private Sub UpdateChart()
Set CurrentChart = Blad102.ChartObjects(ChartNum).Chart
' Save chart as GIF
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.GIF"
CurrentChart.Export Filename:=Fname, FilterName:="GIF"
' Show the chart
Image1.Picture = LoadPicture(Fname)
End Sub