VBA数组/对象集合(图片)

时间:2018-03-30 22:49:28

标签: excel-vba vba excel

以下VBA代码从excel将表的命名范围复制为图片,并使用内容控件将其作为图片粘贴到word文档中。内容控件名称与excel中的命名范围相同。

每次有10张或更少的图片时,以下代码片段可以有效地从excel和word之间进行操作。但是,我的一些文档有50多个命名范围作为要传输的图片,可能需要1分钟+才能传输所有图片。有没有办法使用数组/集合来存储来自excel的所有图片,并从数组/集合中检索它们并粘贴到word中?这会更快吗?或者是否有其他方法可以提高流程效率?

Set tTable = Range(CCtrl.Title)
tTable.CopyPicture Appearance:=xlScreen, Format:=xlPicture

Set wdbmRange = wdDoc.ContentControls(CCtrl.ID)
If Occ.Type = wdContentControlPicture Then
If Occ.Range.InlineShapes.Count > 0 Then Occ.Range.InlineShapes(1).Delete
wdDoc.ContentControls(CCtrl.ID).Range.Paste  

0 个答案:

没有答案