有沒有辦法在內容控件之間交換圖像？

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