Question

我正在尝试在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的代码

Answer 1

'Assuming your page object is named vsoPage
'This embeds the visio drawing
vsoPage.CreateSelection(visSelTypeAll).Copy
CIwb.Worksheets("Current FlowChart").Paste

复制visio页面并将其作为图片粘贴在excel中

1 个答案: