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 sEnd Sub