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