Loop While FoundRow 0 And FoundRow FirstFoundRowĬould someone explain why the error occurs and how to accomplish this in VBA MS Excel 2019? TextFrame.MarginBottom = 0 ' Margins Need To Be TweakedįoundRow = Cells.Find(What:="Fluid Driver", After:=Cells(FoundRow, FoundColumn), LookAt:=xlWhole).Row With Cells(FoundRow, FoundColumn).Comment.Shape ' Size Branch TSU Wage Comment Cell Similarly, the following code generates the same 'TextFrame' error, but works to set the comment box dimensions found successfully in VBA MS Excel 2011 for Mac. In MS Excel 2019 for Mac the same VBA code above generates the error: Have I missed something obvious, or is there a bug in the mac version of this Method? Searching the net suggests there are issues with the GetOpenFilename method on a mac, but usually with the FileFilter argument.The following VBA code successfully sets the size of all comment boxes of MS Excel 2011 for Mac to fit the comment text of every cell with a comment.įor Each Commnt In ' Autosize all comment boxes on the sheet The issue seems clearly to be the MultiSelect argument - I get the same behaviour if all other arguments but the script then fails at this line, with the message 'Run-time error '1004': Method 'GetOpenFilename' of object '_Application' failed'. To achieve this I should be able to use: NewFileNames = Application.GetOpenFilename(Title:="Locate latest download files", ButtonText:="Choose", MultiSelect:=True) The problem is that this allows selection of only one file (MultiSelect:=False), whereas I want users to be able to make more than one selection. The following code line works OK: NewFileNames = Application.GetOpenFilename(Title:="Locate latest download files", ButtonText:="Choose", MultiSelect:=False) I'm writing an excel VBA script to run on a mac (Excel for Mac, version 15.17, mac OSX 10.11.2 El-Capitan).
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. Archives
December 2022
Categories |