gpt4 book ai didi

excel - 复制visio页面并将其作为图像粘贴到excel中

转载 作者:行者123 更新时间:2023-12-04 20:28:01 25 4
gpt4 key购买 nike

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

最佳答案

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

关于excel - 复制visio页面并将其作为图像粘贴到excel中,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/56265048/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com