![]() |
|
#1
|
|||
|
|||
![]()
With a lot of trial and many errors i found this works.
Code:
Intersect(ActiveCell.EntireRow, tblColumns("Notes").Range).Comment.Shape.Width = 600 Intersect(ActiveCell.EntireRow, tblColumns("Notes").Range).Comment.Shape.Height = 800 |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
One Note Online not transferring to One Note App | Jaden | OneNote | 0 | 06-14-2018 02:39 PM |
![]() |
Kohawk65 | Word | 4 | 01-08-2016 08:29 AM |
![]() |
Yuffster | Word VBA | 2 | 01-30-2015 06:05 AM |
![]() |
excelledsoftware | PowerPoint | 2 | 02-01-2013 03:49 PM |
![]() |
AndyDDUK | PowerPoint | 9 | 11-09-2012 05:23 AM |