In diesem Beispiel wird die Diagrammlegende an den unteren Rand des Dokuments verschoben.
Charts(1).Legend.Position = xlLegendPositionBottom
In diesem Beispiel wird die Positionsnummer des aktiven PivotTable-Elements angezeigt.
Worksheets("Sheet1").Activate MsgBox "The active item is in position number " & _ ActiveCell.PivotItem.Position