Есть ли способ обмена изображениями между элементами управления контентом?

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