使用内容控件将VBA复制并粘贴到Excel到Word的图片

Question

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

有没有办法让这段代码更快或更高效？

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