Как получить доступ к диаграмме по имени

Question

Используя Word VBA, можно ли получить/получить ссылку на объект диаграммы, используя имя диаграммы?

В интерфейсе Word вы можете открыть «панель выбора» и указать имя диаграммы. Я хотел бы использовать это свойство имени для доступа к диаграмме в VBA.

Если я не могу использовать это имя, мне нужно получить ссылку через более громоздкий маршрут, разместив диаграмму как часть коллекции InlineShape диапазона.

Set MyChart= wrdApp.Selection.InlineShapes(1).Chart 

Но это очень утомительно, так что было бы здорово, чтобы иметь возможность перемещаться прямо на графике на основе имени ...

Answer 1

InlineShape-объекты не имеют свойство имени. Если преобразовать их в форму объекты, которые они делают, но вы все равно придется обратиться к ним с InlineShapes(index) для преобразования:

Sub ShapeTest() 
    Dim oShp As Shape 

    If ThisDocument.InlineShapes.Count > 0 Then 
     Set oShp = ThisDocument.InlineShapes(1).ConvertToShape 
     MsgBox "Shape name = " & ThisDocument.Shapes(oShp.Name).Name 
    End If 

    Set oShp = Nothing 
End Sub 

(образец довольно бессмысленно, но вы получите идею)

EDIT:

Просто проверил online documentation for InlineShape и, кажется, что объект InlineShape как Name собственности в Слове 2013 и более поздние версии. В какой версии вы работаете? У меня есть только доступ к Word 2010, где мой предыдущий вариант верен.