Use VBA to resize a note entry

trevorc · #1 12-19-2021, 04:02 PM

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

trevorc · #2 12-20-2021, 12:04 PM

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

p45cal · #3 12-21-2021, 03:53 AM

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