<html>
    <head>
      <base href="https://bugs.documentfoundation.org/">
    </head>
    <body><table border="1" cellspacing="0" cellpadding="8">
        <tr>
          <th>Bug ID</th>
          <td><a class="bz_bug_link 
          bz_status_UNCONFIRMED "
   title="UNCONFIRMED - Calling setToDefault doesn't work in Impress"
   href="https://bugs.documentfoundation.org/show_bug.cgi?id=128650">128650</a>
          </td>
        </tr>

        <tr>
          <th>Summary</th>
          <td>Calling setToDefault doesn't work in Impress
          </td>
        </tr>

        <tr>
          <th>Product</th>
          <td>LibreOffice
          </td>
        </tr>

        <tr>
          <th>Version</th>
          <td>6.2.5.2 release
          </td>
        </tr>

        <tr>
          <th>Hardware</th>
          <td>All
          </td>
        </tr>

        <tr>
          <th>OS</th>
          <td>All
          </td>
        </tr>

        <tr>
          <th>Status</th>
          <td>UNCONFIRMED
          </td>
        </tr>

        <tr>
          <th>Severity</th>
          <td>normal
          </td>
        </tr>

        <tr>
          <th>Priority</th>
          <td>medium
          </td>
        </tr>

        <tr>
          <th>Component</th>
          <td>Impress
          </td>
        </tr>

        <tr>
          <th>Assignee</th>
          <td>libreoffice-bugs@lists.freedesktop.org
          </td>
        </tr>

        <tr>
          <th>Reporter</th>
          <td>marklh9@gmail.com
          </td>
        </tr></table>
      <p>
        <div>
        <pre>Description:
Calling setToDefault of XPropertyState interface on a text range in Impress
doesn't work.

Steps to Reproduce:
1. Open the attached document.
2. Insert Basic code and run it.
Sub ResetCharFontToDefaultImpress

  Dim oDrawPages As Variant
  Dim oObj1 As Variant
  Dim oObj2 As Variant
  Dim oText As Variant
  Dim oStart As Variant
  Dim oObj3 As Variant

  oDrawPages = ThisComponent.getDrawPages()
  oObj1 = oDrawPages.getByIndex(0)
  oObj2 = oObj1.getByIndex(0)

  oText = oObj2.getText()
  oStart = oText.getStart()
  oObj3 = oText.createTextCursorByRange(oStart)

  oObj3.goRight(5, True)
  msgbox  oObj3.getString()

  oObj3.setPropertyToDefault("CharFontName")   

End Sub


Actual Results:
First five characters "aaaaa" show up in the message, the text is formatted
with Times New Roman. 

Expected Results:
First five characters "aaaaa" should show up in the message, the font of the
text should be set to its default ( Liberation Sans ).


Reproducible: Always


User Profile Reset: No



Additional Info:</pre>
        </div>
      </p>


      <hr>
      <span>You are receiving this mail because:</span>

      <ul>
          <li>You are the assignee for the bug.</li>
      </ul>
    </body>
</html>