ActiveChart modify size and anchoring

[leocoppens]

Hi,

I'm struggling to find the way to modify the title's properties of a chart I'm inserting in a worksheet.

I generate the chart from a PivotTable report with

ActiveSheet.Shapes.AddChart.Select



Does anybody know how to, for example, set it to be at a certain location within the spreadsheet and modify it's size?

Thanks a lot for the interest!

Leo

 

[Jon von der Heyden]

Hello Leo

Here's an example:

<font face=Courier New>    <SPAN style="color:#00007F">With</SPAN> Charts("Chart1").ChartTitle<br>        .Text = "Hello"<br>        .Left = 10<br>        <SPAN style="color:#00007F">With</SPAN> .Font<br>            .FontStyle = "Bold"<br>            .Size = 18<br>            .ColorIndex = 49<br>        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>        .AutoScaleFont = <SPAN style="color:#00007F">True</SPAN><br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN></FONT>

 

[Jon von der Heyden]

I'm actually not sure if you mean to move and size the Chart of the ChartTitle.

Regardless this page has various examples that may be helpful to you: http://peltiertech.com/Excel/ChartsHowTo/QuickChartVBA.html

 

[leocoppens]

Hi Jon and all,

I finally found it, it's in the ChartArea property of the activechart object. As a test I did something like this:

ActiveSheet.Shapes.AddChart.Select
With ActiveChart.ChartArea
.Width = 600
.Height = 200
.Top = 300
.Left = 50
End With

Thanks anyway

Best regards,
Leo