AlternativeText Property Example
This example sets the alternative text for the first shape on the first worksheet to a description of the shape.
Worksheets(1).Shapes(1).AlternativeText = "Concentric circles"