<div>
As for your previous question:<br />
several ways...<br />
1. you can go through the Shape object:<br />
&nbsp; &nbsp; &nbsp; &nbsp; ActiveSheet.Shapes(&quot;Chart 1&quot;).width = 600<br />
&nbsp; &nbsp; &nbsp; &nbsp; ActiveSheet.Shapes(&quot;Chart 1&quot;).height = 300<br />
2. or the ChartObjects()<br />
&nbsp; &nbsp; &nbsp;activesheet.chartobjects(1<wbr />).width= 600<br />
&nbsp; &nbsp; &nbsp;activesheet.chartobjects(1<wbr />).height= 300<br />
<br />
however, the units are in &nbsp;points, not pixels.<br />
You can transform points to pixels, by using the <br />
&nbsp; &nbsp;PointsToScreenPixelsX<br />
&nbsp; &nbsp;PointsToScreenPixelsY<br />
functions of the Window object, eg:<br />
&nbsp; &nbsp; &nbsp; &nbsp;ActiveSheet.Shapes(&quot;Chart 1&quot;).Width = 600 / ActiveWindow.PointsToScree<wbr />nPixelsX(1<wbr />)<br />
&nbsp; &nbsp; ActiveSheet.Shapes(&quot;Chart 1&quot;).Top = 300 / ActiveWindow.PointsToScree<wbr />nPixelsY(1<wbr />)<br />
<br />
or by applying the function of the Application.Windows(1).<br />
<br />
Just make sure a window is there when you run it.<br />
<br />
Regards,<br />
Sebastien 
</div>


As for your previous question:
several ways...
1. you can go through the Shape object:
        ActiveSheet.Shapes("Chart 1").width = 600
        ActiveSheet.Shapes("Chart 1").height = 300
2. or the ChartObjects()
     activesheet.chartobjects(1).width= 600
     activesheet.chartobjects(1).height= 300

however, the units are in  points, not pixels.
You can transform points to pixels, by using the
   PointsToScreenPixelsX
   PointsToScreenPixelsY
functions of the Window object, eg:
       ActiveSheet.Shapes("Chart 1").Width = 600 / ActiveWindow.PointsToScreenPixelsX(1)
    ActiveSheet.Shapes("Chart 1").Top = 300 / ActiveWindow.PointsToScreenPixelsY(1)

or by applying the function of the Application.Windows(1).

Just make sure a window is there when you run it.

Regards,
Sebastien

<div>
Well Done!<br />
Thank You Sebastienm!<br />
<br />
Ted
</div>


<div>
Thank you for the points, Ted.<br />
<br />
Regards,<br />
Sebastien
</div>


Thank you for the points, Ted.

Regards,
Sebastien

<div>
<div class="content wysiwyg-content">
I just upgraded my Office 97 to 2002. &nbsp;I can't seem to set the absolute width and height of my chart to a 600 pixel width and a 300 pixel height on the activesheet. &nbsp;Does anybody have a technique for this?<br />
<br />
Many thanks,<br />

</div>
</div>


I just upgraded my Office 97 to 2002.  I can't seem to set the absolute width and height of my chart to a 600 pixel width and a 300 pixel height on the activesheet.  Does anybody have a technique for this?

Many thanks,


Excel 2002: How do I use VBA to set the area size of my chart to 600 width 300 height?

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.