Description: .LMessagebox.TextAlign = fmTextAlignLeft this property seems to be missing in libeoffice calc Steps to Reproduce: 1. file containing this vba code does not run 2. 3. Actual Results: 423 error Expected Results: it should run as it works in excel Reproducible: Always User Profile Reset: No Additional Info: Version: 24.2.3.2 (X86_64) / LibreOffice Community Build ID: 433d9c2ded56988e8a90e6b2e771ee4e6a5ab2ba CPU threads: 4; OS: Linux 6.5; UI render: default; VCL: gtk3 Locale: en-IN (en_IN); UI: en-US Calc: threaded
Created attachment 194410 [details] screenshot of error
Could you provide the example file? Indeed, I pasted this on a brand new LO file: Option VBASupport 1 Public Sub fmsgboxoK(iintmsg As Variant) With MessageBox .Height = 130 .LMessagebox.Height = 60 .CommandButton1.Top = 78 .LMessagebox = "*" + iintmsg '.LMessagebox.TextAlign = fmTextAlignLeft .Show End With End Sub and got this message when trying it: "Basic runtime error. '91' Object variable not set."
Created attachment 194427 [details] file containing multiple macro bugs remove the following in order (search for hyperlink) ActiveWorkbook.FollowHyperlink Address:="https://eportal.incometax.gov.in/iec/foservices/#/TaxCalc/calculator" Private Sub ButtonHyperlink() On Error Resume Next fmsgbox "After e-payment of Tax, the details of amount paid, Challan No., BSR Code, etc. should be filled in Schedule IT of Income Tax Return before submission of the return to claim the challan" ActiveWorkbook.FollowHyperlink _ Address:="https://onlineservices.tin.egov-nsdl.com/etaxnew/tdsnontds.jsp" End Sub (this is already a listed bug) Then on prefiljson sheet goto line 87 and remove As Byte() and goto line 2318 and type end function then remove Application.CommandBars("Ply").Enabled = True (by finding ply) this is already a listed bug then if you click on "prefil json button", you will get to filters 423 which is already a bug so remove .Filters.add "Json File", "*.json", 1 as well Set sourceSheet = ThisWorkbook.Sheets("Taxes Paid and Verification") and Set a = ThisWorkbook.Sheets("TCS") this one also shows 423 not found keep on removing error files to reach the current bug
Too long to proceed all the instructions, I expected a minimum file to reproduce this without following a long explanation. Perhaps someone will take the time but prefer uncc myself here.
(In reply to johnks from comment #3) > Created attachment 194427 [details] > file containing multiple macro bugs When I open the file, I get a lot of "Unexpected symbol: Address." errors... and also other subsequent error messages. I'd say there are multiple bugs to be fixed here. Having LO working with this file would be a great test case. The main challenge is to reduce all these bugs to minimal test cases. In this case, MessageBox is a form in the document and LMessageBox is a label. By inpsecting it with XRay the label supports service ooo.vba.msforms.Label, which in turn does not seem to support the TextAlign property: Code pointers /core/vbahelper/source/msforms/vbalabel.hxx /core/vbahelper/source/msforms/vbalabel.cxx /core/oovbaapi/ooo/vba/msforms/XLabel.idl