Sub Test() Dim di As DataItem Dim s As String s = "Field = Formatted/Value" & vbCr For Each di In ActiveShape.ObjectData s = s & vbCr & di.DataField.Name & " = " & di.FormattedValue & " / " & di.Value Next di MsgBox sEnd Sub