How to return the descriptive (alternative) text string for a Shape object in excel?

Question

Looking for VBA code for Excel that will read the Alt Text for an image and paste the alt text string in a cell.

https://learn.microsoft.com/en-us/office/vba/api/excel.shape.alternativetext only showed an example for how to set Alt Text but not how to return the alt text in a cell.

Answer 1

For example, to put the Alt Text of the first shape to F1:

Range("F1").Value = Worksheets(1).Shapes(1).AlternativeText

If the picture has some name:

Range("F1").Value = Worksheets("Sheet1").Shapes("MyPicture1").AlternativeText