Description:
This code is running on versions before 6.1 but after upgrade to LO 6.1 message is shown "Getting from this property is not unspported"

Steps to Reproduce:
1. Run this macro from Writer document with Graphics

Sub GetFirstPictureName()
  Dim oGraphics As Object
  Dim oGraph As Object
  Dim sGraphURL As String
  
	If not HasUnoInterfaces(ThisComponent,"com.sun.star.text.XTextGraphicObjectsSupplier") Then Exit Sub
	oGraphics = ThisComponent.getGraphicObjects()
	If oGraphics.getCount = 0 Then Exit Sub
	oGraph = oGraphics.getByIndex(0)
	sGraphURL = oGraph.GraphicURL
	GetFirstPictureName= FileNameoutofPath(sGraphURL, "/")
		
End Sub


2.
3.

Actual Results:
Runtime Error Message
"Getting from this property is not unspported"

Expected Results:
This code is working without errors if version 6.0.6 or less


Reproducible: Always


User Profile Reset: No



Additional Info:
Версия: 6.1.1.1 (x64)
ID сборки: 2718b4a18dfcc6a54ebe5f7b801ee7a47fa81e0c
Потоков ЦП: 4; ОС:Windows 10.0; Отрисовка ИП: по умолчанию; 
Локаль: ru-RU (en_US); Calc: group threaded