В настоящее время я работаю над простым макросом слова, который считывает данные из таблицы Excel и вставляет их в указанные места в документах с несколькими словами.
Помимо размещения данных в виде текста, макрос также вставляет данные всуществующие диаграммы в шаблоне Word.
Для этого я использую объект InlineShapes, например, такой:
ActiveDocument.InlineShapes(6).Chart.ChartData.Activate
ActiveDocument.InlineShapes(6).Chart.ChartData.Workbook.Worksheets(1).Range("B2").Value = uwp
ActiveDocument.InlineShapes(6).Chart.ChartData.Workbook.Worksheets(1).Range("C2").Value = uwpsamo
ActiveDocument.InlineShapes(6).Chart.ChartData.Workbook.Worksheets(1).Range("D2").Value = uwpprze
ActiveDocument.InlineShapes(6).Chart.ChartData.Workbook.Worksheets(1).Range("E2").Value = uwprown
ActiveDocument.InlineShapes(6).Chart.ChartData.Workbook.Worksheets(1).Range("F2").Value = uwppodw
ActiveDocument.InlineShapes(6).Chart.ChartData.Workbook.Close
Это прекрасно работает с одним исключением, кроме
. Всего18 встроенных объектов в моем текстовом документе, первый - типа 3 (рисунок), после этого 16 - типа 12 (диаграмма), а последний - типа 3 (рисунок снова).Последняя проблема.Поверх этого рисунка существует еще одна диаграмма, которой нет в коллекции ActiveDocument.InlineShapes
Есть идеи, как получить доступ к данным диаграммы в последней встроенной форме?InlineShapes.Chart не работает для последнего, так как тип изображения не имеет объекта диаграммы.