<div>
Unfortunately the events for content controls are a little lacking. For this instance, the best option is to use the OnExit event which only runs when you leave the content control. 
 
The below code assumes the shape name is &quot;Oval 2&quot; and the Title of your content control is &quot;Select Shape Color&quot;. Adjust as necessary. You'll see there are 2 methods for setting the color - by using one of the color constants or using the RGB value. 
 

<pre><code class="code-10 nolinks" id="code-20-41798937-1">Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
 If ContentControl.Title = &quot;Select Shape Color&quot; Then
 With ActiveDocument.Shapes(&quot;Oval 2&quot;).Fill
 Select Case ContentControl.Range.Text
 Case &quot;Blue&quot;: .ForeColor = vbBlue
 Case &quot;Red&quot;: .ForeColor = vbRed
 Case &quot;Yellow&quot;: .ForeColor = vbYellow
 Case &quot;Green&quot;: .ForeColor = vbGreen
 Case &quot;Orange&quot;: .ForeColor.RGB = RGB(255, 128, 0)
 End Select
 End With
 End If
End Sub
</code></pre>
</div>

<div>
Wayne...thanks so much! &nbsp;I'll test it out and let you know how I fare. &nbsp;The code looks good though. &nbsp;More to come!
</div>

<div>
Code doesn't seem to be working. &nbsp;Shape color isn't changing. &nbsp;Shape shows as Oval 3 in the Selection pane. &nbsp;Shape is set to Inline and is in a table. 
 
Here is the code: 
 

<pre><code class="code-10 nolinks" id="code-20-41799917-1">Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
 If ContentControl.Title = &quot;Select Shape Color&quot; Then
 With ActiveDocument.Shapes(&quot;Oval 3&quot;).Fill
 Select Case ContentControl.Range.Text
 Case &quot;White&quot;: .ForeColor = vbWhite
 Case &quot;Yellow&quot;: .ForeColor = vbYellow
 Case &quot;Orange&quot;: .ForeColor.RGB = RGB(255, 128, 0)
 Case &quot;Red&quot;: .ForeColor = vbRed
 Case &quot;Black&quot;: .ForeColor = vbBlack
 End Select
 End With
 End If
End Sub
</code></pre>
 
Here is a screenshot of my content control properties: 
<a href="https://filedb.experts-exchange.com/incoming/2016/09_w38/1116841/--CCProperties.jpg" target="_blank" title="Content Control Properties Screenshot (52 KB)"><img alt="Content Control Properties Screenshot" class="file-block lazyload" style="max-width: 325px;" data-src="https://filedb.experts-exchange.com/incoming/2016/09_w38/1116841/--CCProperties.jpg" /></a> 
I'm not against using a classic combo or list box if you think it would be easier.
</div>

--CCProperties.jpg

<div>
That did it Wayne! &nbsp; ActiveX control was so easy! &nbsp;Thanks so very much!
</div>

<div>
<div class="content wysiwyg-content">
I would like to use a Combo Box Content Control to give people a list of colors to choose from and then change the fill color on a circle in the document to whatever color they choose. &nbsp;Colors are white, yellow, orange, red, and black. &nbsp;I am able to make the Combo Box Content Control but I'm unsure of the rest. 
 
I've worked in VBA but I usually find or record a macro to start with. &nbsp;Can anyone give me a hand here or point me in the right direction?
</div>
</div>

I would like to use a Combo Box Content Control to give people a list of colors to choose from and then change the fill color on a circle in the document to whatever color they choose.  Colors are white, yellow, orange, red, and black.  I am able to make the Combo Box Content Control but I'm unsure of the rest.

I've worked in VBA but I usually find or record a macro to start with.  Can anyone give me a hand here or point me in the right direction?

Use a content control to change the fill color of a shape

Microsoft Word is a commercial document editing program that is part of the Microsoft Office suite. It features numerous text-editing tools for creating richly formatted documents, along with tools for the use of macros in Word documents. Word's native file formats are denoted either by a .doc or .docx file extension. Plugins permitting the Windows versions of Word to read and write formats it does not natively support, such as the OpenDocument format (ODF) are available. Word can import and display images in common bitmap formats such as JPG and GIF. It can also be used to create and display simple line-art.

Microsoft Word

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.