я таким образом переписал для себя свою копию свойств, чтобы брать и из растра цвет тоже, именно, по координатам (моя ниже '))' )
retvall = ActiveDocument.GetUserClick(x1, y1, 0, 10, True, cdrCursorEyeDrop)
If retvall Then GoTo CancelIt
Set clr = ActiveDocument.SampleColorAtPoint(x1...