Position Property Example

This example moves the chart legend to the bottom of the chart.

Charts(1).Legend.Position = xlLegendPositionBottom

This example displays the position number of the PivotTable item that contains the active cell.

Worksheets("Sheet1").Activate
MsgBox "The active item is in position number " & _
    ActiveCell.PivotItem.Position