CHANGING DEFAULT SIZE OF NOTE WINDOW

[frasermac123]

On creating a new note I would like the default size of the note to be about 3 times bigger. Recording a macro to do this produces a macro that always fails. Any ideas on how to increase the size without having to drag the bottom corner every time.

 

[p45cal]

Recording a macro to do this produces a macro that always fails.

Let's see that macro and we'll tweak it.

 

[frasermac123]

Thanks for your help

Sub CREATENEWNOTE()
'
' CREATENEWNOTE Macro
' New note with larger size
'
' Keyboard Shortcut: Ctrl+Shift+A
'
    Range("I10").AddComment
    Range("I10").Comment.Visible = False
    Range("I10").Comment.Text Text:="Simon BCPL:" & Chr(10) & ""
    Selection.ShapeRange.ScaleWidth 2.82, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 4.42, msoFalse, msoScaleFromTopLeft
    Range("I10").Select
End Sub

 

[p45cal]

Sub CREATENEWNOTE()
With Selection.Cells(1)
  If .Comment Is Nothing Then
    With .AddComment
      .Text Text:="Simon BCPL:" & Chr(10)
      With .Shape
        .Width = 304
        .Height = 262
      End With
    End With
  End If
End With
End Sub

Works on the (first) cell of what's selected
Won't error if the cell already has a comment

 

[frasermac123]

Very grateful for your help, will save a lot of work, thanks very much!