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

Question

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

由于

Answer 1

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

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