Size with Chart property of format picture in VBA

[jaywang2000]

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

[jaywang2000]

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