Note while your caption might read Delete Person.  That is not a valid name
for a document control.

If you already know the index number of the control you can use a single
line:

Sub Scratchmacro

ActiveDocument.InlineShapes(1).OLEFormat.Object.Enabled = False

End Sub

If there are multiple controls or other inlineshapes then you will need
something like this:

Sub Scratchmacro

ActiveDocument.InlineShapes(GetIndex).OLEFormat.Object.Enabled = False

End Sub

Function GetIndex() As Long

Dim i As Long

Dim oILS As InlineShape

For Each oILS In ActiveDocument.Range.InlineShapes

i = i + 1

If oILS.Type = wdInlineShapeOLEControlObject Then

   If InStr(oILS.OLEFormat.Object.Name, "CommandButton1") > 0 Then

     Exit For

   End If

 End If

Next oILS

GetIndex = i

End Function