ChartArea.width sometimes rounded

[VbaMinion]

Hi all,
I have a simple command in my macro which should change a width of my chart to 23cm. But for some charts it works and for some other charts it changes its width to 23.17cm. I have checked the properties of both charts and didn't find any difference.

ActiveChart.ChartArea.Width=647

I have tried

ActiveChart.Parent.Width=647

but it didn't help.

Does anyone had any idea why?

 

[Worf]

Welcome to the Forum

Sub Minion()
Dim co As ChartObject
Set co = ActiveChart.Parent
co.Chart.ChartArea.AutoScaleFont = 0
co.Width = Application.CentimetersToPoints(23)
End Sub

 

[VbaMinion]

Still didn't work, but I have tried this and it does the trick:

Sub Minion()
dim Standard_Exterior_Width as double
Standard_Exterior_Width=[COLOR=#333333]Application.CentimetersToPoints(23)[/COLOR]
        ActiveChart.ChartArea.Width = [COLOR=#333333]Application.CentimetersToPoints(23)[/COLOR]
        Do While ActiveChart.ChartArea.Width > [COLOR=#333333]Application.CentimetersToPoints(23)[/COLOR]
            ActiveChart.ChartArea.Width = Standard_Exterior_Width
            Standard_Exterior_Width = Standard_Exterior_Width - 1
        Loop