[Libreoffice-bugs] [Bug 119616] New: BASIC macro runtime error on GetByIndex of TextGraphicObjects

[bugzilla-daemon at bugs.documentfoundation.org]

https://bugs.documentfoundation.org/show_bug.cgi?id=119616

            Bug ID: 119616
           Summary: BASIC macro runtime error on GetByIndex of
                    TextGraphicObjects
           Product: LibreOffice
           Version: 6.1.0.3 release
          Hardware: All
                OS: All
            Status: UNCONFIRMED
          Severity: normal
          Priority: medium
         Component: BASIC
          Assignee: libreoffice-bugs at lists.freedesktop.org
          Reporter: i_o5 at pisem.net

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

-- 
You are receiving this mail because:
You are the assignee for the bug.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.freedesktop.org/archives/libreoffice-bugs/attachments/20180831/47e688a9/attachment.html>