Placement Property Example

This example sets embedded chart one on Sheet1 to be free-floating (it neither moves nor is sized with its underlying cells).

Worksheets("Sheet1").ChartObjects(1).Placement = xlFreeFloating