使用VBA复制或创建相同形状的Word

Question

我试图创建VBA代码，允许我创建或复制已经存在于word中的相同形状并将其置于相同位置 现在我的代码只能将形状从X或Y移动到单词中的另一个位置，但我想复制那个形状，我做了一些研究，我发现的是这个代码

Set dChart = Worksheets("Sheet1").ChartObjects(1).Duplicate 
dChart.Select

我不知道如何使其适应复制或创建相同的形状 形状名称＆＃34; Groupe 391＆＃34;