Solved: Scale graph absolutely

[enfantter]

Hi all,

I'm trying to do a part of a macro where i want to resize a graph.
I do a code that sizes the graph in relative terms, but does anybody know how to do it in absolute terms?
/Enfant Terrible

[Bob Phillips]

What do you mean?

[enfantter]

Im doing a macro that creates graphs in the right colour - now and want to include a part so they get the right size as well. But i can only figure out a way to change the relative size (eg. make it 50 pct. smaller ) not to change it to absolut size no matter what size the graphs is at the begining.

[Bob Phillips]

This works fine for me

[vba]

With ActiveSheet.ChartObjects("Chart 1")

.Height = 200
.Width = 300
End With
[/vba]

[enfantter]

Ok, i guess then it is just me who is thumbling.
Is it possible to put something like ActiveChart inside the paranthathese?!

[enfantter]

i know that this is probably too simply but i would need to attach something so this applies to the activechart

[Bob Phillips]

It is the chartobject that has height, so you have to get the chart parent

[vba]

With ActiveChart.Parent

.Height = 200
.Width = 300
End With
[/vba]