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"