Size with Chart property of format picture in VBA

Does anybody know how to control "Size with Chart" property of format picture in VBA?

I found the solution after some trials.

ActiveChart.Shapes.Range(Array("chart")).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.Placement = xlMoveAndSize 'xlFreeFloating: Do not size with chart. 'xlMoveAndSize: Size with Chart