Filling a shape with color

[Roderick]

Windows 7, Word 2013.

I have a shape with a green background and using the following code I can fill it with a picture:

Sub InsertPictureDialog()
Dim strName As String
Dim fd As FileDialog
Dim FileChosen As Integer

Set fd = Application.FileDialog(msoFileDialogFilePicker)
'get the number of the button chosen
FileChosen = fd.Show


If FileChosen <> -1 Then
'didn't choose anything (clicked on CANCEL)
MsgBox "You chose cancel"
' Clean up
Set fd = Nothing
Exit Sub
Else
'gets the full path and filename
strName = fd.SelectedItems(1)
End If


'selects the shape
ActiveDocument.Shapes.Range(Array("Green Box")).Select
' now fills the shape with the picture
With ActiveDocument.Shapes("Green Box").Fill
.Visible = msoTrue
.UserPicture strName
End With
' Clean up
Set fd = Nothing
'deselects the shape and goes to the start bookmark
Selection.GoTo What:=wdGoToBookmark, Name:="start"
End Sub

I now want to return the shape to its original green color using the following code:

Sub ChangeToGreen()
'selects the shape
ActiveDocument.Shapes.Range(Array("Green Box")).Select

With ActiveDocument.Shapes("Green Box").Fill
.Visible = msoTrue
.BackColor.RGB = RGB(67, 176, 42)
' .ForeColor.RGB = RGB(67, 176, 42)
End With
'deselects the shape and goes to the start bookmark
Selection.GoTo What:=wdGoToBookmark, Name:="start"

End Sub

It selects the shape correctly but fails to change it back to the RGB requested.

I can manually change it by selecting the shape then going to Format (Drawing Tools)>Shape Fill>More Fill Colors... followed by the Custom RGB.

As you can see above, I've experimented with changing BackColor.RGB to ForeColor.RGB but with no success.

I know I'm going wrong somewhere but I cannot spot the error.

Could I be pointed in the right direction, please?

[macropod]

All you need to change the background colour is:

Sub ChangeToGreen()
ActiveDocument.Shapes("Green Box").Fill.BackColor.RGB = RGB(67, 176, 42)
End Sub
No selecting, etc. is necessary. Whether you'll see any change depends on what patterning/gradient settings the shape has.