Sub Test() Dim pf As PatternFill If ActiveShape.Fill.Type <> cdrPatternFill Then MsgBox "Select an object with a pattern fill" Exit Sub End If Set pf = ActiveShape.Fill.Pattern If pf.Type <> cdrFullColorPattern Then MsgBox "Select an object with a full color pattern fill" Exit Sub End If MsgBox pf.FilePathEnd Sub