VBA数组/对象集合（图片）

Question

以下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