#Excel for the mac vba addin how to#
#Excel for the mac vba addin for mac#
#Excel for the mac vba addin code#

Cells(29, 'B')) End With For Each rCell In rng With rCell 'Test if comment associated with the cell If Not.

#Excel for the mac vba addin code#

'Insert the constants at top of module before any Subs or Functions Const lngMaxChar As Long = 30 'Edit 30 to maximum characters wide for Comments Const dblPicHt As Double = 50 'Edit 50 to preferred picture height Const dblPicWdth As Double = 60 'Edit 50 to preferred picture width 'See comments in the code re setting Height and Width and LockAspectRatio Sub ReSizeCommentsWithinRange_2() 'See alternative test for Pictures Dim rng As Range Dim rCell As Range Dim txtBox As Shape Dim Commnt As Comment Dim strInitComment As String Dim strNewComment As String Dim strFontName As String Dim dblFontSize As Double Dim bolFontBold As Boolean Dim dblHt As Double Dim dblWdth As Double 'Add a temporary TextBox top left of worksheet (Initial Position and Size not critical) 'AddTextbox (Orientation, Left, Top, Width, Height) 'for info re arguments Set txtBox = (msoTextOrientationHorizontal, 10, 20, 50, 10) With ActiveSheet 'With Worksheets('Sheet1') 'Alternative to previous line 'Edit following to set rng to your range specification Set rng =.

The entire sub (including the Function) below. Note my comment and the commented out lines where I have indicated to use On Error if the code errors when attempting to assign text to a variable when there is no text. Therefore test the text to see if it returns a zero length string and if so, assume a picture.ДЄlternative code below. If the comment does not contain text then we should be able to assume it contains a picture. You have said that the comments with pictures do not contain text so lets try an alternative method to determine if the Comment contains a picture.

#Excel for the mac vba addin how to#

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.

#Excel for the mac vba addin for mac#

In MS Excel 2019 for Mac the same VBA code above generates the error: 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