#1
|
|||
|
|||
Use VBA to resize a note entry
Hi All, I'm trying to resize a note field using VBA, i recorded a macro to do what i wanted but if fails after adding the note. The code below is what the recorded macro is for adding and resizing a basic note. Any idea's ??? Code:
Sub Macro18() Range("W12").AddComment Range("W12").Comment.Visible = False Range("W12").Comment.Text Text:="Me:" & Chr(10) & "" Selection.ShapeRange.ScaleWidth 1.95, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 2.12, msoFalse, msoScaleFromTopLeft End Sub |
#2
|
|||
|
|||
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 |
#3
|
||||
|
||||
Could this be a bit more straightforward?:
Code:
Sub Macro18() With Range("W12").AddComment .Visible = False .Text Text:="Me:" & Chr(10) .Shape.Width = 600 .Shape.Height = 800 End With End Sub |
|
Similar Threads | ||||
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 |
End note Text Style and End note Reference Style | Kohawk65 | Word | 4 | 01-08-2016 08:29 AM |
Help with VBA to resize images | Yuffster | Word VBA | 2 | 01-30-2015 06:05 AM |
Slide Minature Resize? | excelledsoftware | PowerPoint | 2 | 02-01-2013 03:49 PM |
Resize and align | AndyDDUK | PowerPoint | 9 | 11-09-2012 05:23 AM |