<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 - In 7.1.0.3, the Basic macro of calc shows the error "CellAddress method is missing."
   href="https://bugs.documentfoundation.org/show_bug.cgi?id=140337">140337</a>
          </td>
        </tr>

        <tr>
          <th>Summary</th>
          <td>In 7.1.0.3, the Basic macro of calc shows the error "CellAddress method is missing.
          </td>
        </tr>

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

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

        <tr>
          <th>Hardware</th>
          <td>x86 (IA32)
          </td>
        </tr>

        <tr>
          <th>OS</th>
          <td>Mac OS X (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>BASIC
          </td>
        </tr>

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

        <tr>
          <th>Reporter</th>
          <td>camper@mac.com
          </td>
        </tr></table>
      <p>
        <div>
        <pre>Description:
This is about a macro in Calc. I have a Calc Basic macro that I set up about
three years ago, and it worked fine until 7.0.4. But in 7.1.0.3, it doesn't
work anymore.

The error dialog looks like this BASIC Runtime Error. The following property or
method was not found: CellAddress.

The macro, which is assigned to a button and deletes the row with the selected
cell, looks like this

Sub delete_Click()
    Dim oSheet As Object
    oSheet = ThisComponent.CurrentController.ActiveSheet
    dim oActiveCell As Object
    dim currRowNum As Long
    oActiveCell = ThisComponent.CurrentSelection
    currRowNum = oActiveCell.CellAddress.Row
    oSheet.Rows.removeByIndex(currRowNum, 1)
End Sub

Steps to Reproduce:
1. Create a Calc file
2. Put text in some cells
3. Set up a button and assign the macro above.
4. Select one of the cells and then press the button.

Actual Results:
error "CellAddress method is missing.

Expected Results:
The row with the selected cell will be deleted.


Reproducible: Always


User Profile Reset: No



Additional Info:
When I run it with 7.0.4 on the same machine, it works fine.
Both 7.0.4 and 7.1.0.3 have been converted to Japanese by installing the
Language pack.</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>