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

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