PatternFill.FilePath

Property FilePath As String

The FilePath property returns the full file path of the vector-pattern file used in the pattern.

The FilePath property returns a read-only value.

The following code example displays the file path of the full-color pattern of the selected shape:

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.FilePath 
End Sub