Fill ActivX Shape to Match Background

If you use an ActivX object e.g. a Control Text Box or and Image Control directly on a slide you will always see a solid fill in show mode which looks ugly. Setting the fill type to transparent does NOT have the expected result and makes no difference.

The best workaround can be to set the fill and line of the ActivX object to the same colour as the slide background.

This only works with solid background colours and even then is quite tricky as the values need to be entered in Hexadecimal.

If you select the ActivX object and run the code below it will do the best it can to match the current background (only solid colours)

Sub Activ_Colour()
Dim oshp As Shape
Dim osld As Object
Dim strName As String
On Error Resume Next
Err.Clear
strName = ActiveWindow.Selection.ShapeRange(1).Name
Set osld = ActiveWindow.Selection.ShapeRange(1).Parent
If Err <> 0 Then
MsgBox "You probably did not select a shape.", vbCritical, "PowerPoint Alchemy"
Exit Sub
End If
With ActivePresentation.SlideMaster.Shapes(strName).OLEFormat.Object
.BackColor = osld.Background.Fill.ForeColor
.BorderStyle = 1
.BorderColor = osld.Background.Fill.ForeColor
End With
End Sub