有没有办法在内容控件之间交换图像？

Question

这个问题几乎可以解释每一件事。我想知道是否有方法在使用vba的另一个图片内容控件中的图片内容控件中更改图片。

谢谢

Answer 1

这似乎工作。它假定内容控件是图片类型的（这就是为什么你可能在切换内容时遇到困难）。其中一张照片保存到剪贴板，另一张照片放在文档的末尾。剪贴板中的一个被粘贴到另一个控件中，然后剪切并粘贴到第一个控件中。

Dim cc1 As word.ContentControl, cc2 As word.ContentControl 
Dim ils1 As word.InlineShape, ils2 As word.InlineShape 
Dim doc As word.Document, rngTemp As word.Range 

Set doc = ActiveDocument 
Set rngTemp = doc.content 
rngTemp.Collapse wdCollapseEnd 
Set cc1 = doc.Contentcontrols(1) 
Set cc2 = doc.Contentcontrols(2) 
Set ils1 = cc1.Range.InlineShapes(1) 
Set ils2 = cc2.Range.InlineShapes(1) 

ils1.Range.Copy 
rngTemp.FormattedText = ils2.Range.FormattedText 
ils2.Range.Paste 
rngTemp.Cut 
ils1.Range.Paste