Копирование страницы Visio и вставка ее в Excel в качестве изображения - PullRequest
Новая
       20

Копирование страницы Visio и вставка ее в Excel в качестве изображения

1 голос
/ 23 мая 2019

Я пытаюсь скопировать все фигуры на странице Visio и вставить ее в Excel как изображение.Изображение должно быть точной копией рисунка Visio.Ищете Excel vba скрипт для этого.Я могу открыть Visio, получить доступ к информации о фигурах и т. Д., Но застрял в копировании и вставке всех фигур, чтобы превзойти их как одно изображение

Я попробовал следующее: 

 For j = 1 To intShapeCount  'Get count of shapes on page
        Set vsoConnectFrom = vsoShapes.Item(j)
        vsoConnectFrom.Copy(visCopyPasteNoTranslate)
        CIwb.Worksheets("Current FlowChart").Paste
  Next j

Этот кодвставка всех фигур в одно место, и фигуры не связаны.Поэтому ищем код, который бы просто скопировал все фигуры и вставил как изображение в excel

1 Ответ

1 голос
/ 23 мая 2019 
'Assuming your page object is named vsoPage
'This embeds the visio drawing
vsoPage.CreateSelection(visSelTypeAll).Copy
CIwb.Worksheets("Current FlowChart").Paste
...