Examples:
The following VBA example shows a list of all object-data items assigned to the selected shape. Each text line in the message box lists the field name and its value as they appear in Object Data Manager docker.
Sub Test()
Dim di As DataItem
Dim s As String
s = "Field = Value" & vbCr
For Each di In ActiveShape.ObjectData
s = s & vbCr & di.DataField.Name & " = " & di.FormattedValue
Next di
MsgBox s
End Sub