rediffusion
08-07-2019, 08:32 AM
So here is macro:
Private Sub NoteZoom3()
With ActiveWindow.VisibleRange
NoteChangeSize .Width, .Height, True
End With
End Sub
Private Sub NoteChangeSize(w!, h!, Optional scr As Boolean)
With ActiveCell.Comment.Shape
.Width = w: .Height = h
If scr Then .Top = 0: .Left = 0: .Visible = msoTrue
End With
End Sub
How it works... go to the cell that contains `Note` > Run the macro!
`Note` is adjusted to the size Of the sheet window (we get <Full Screen>).
It's all bad if we for example are somewhere in the column (AB) or line 60. `Note` that opens in <Full Screen> but it is fixed in the top where the cell (A) and I need to scroll up to see.
I would like to be adjusted to the size of the Sheet and opened exactly where the `Note` (that each time not to climb up).
Private Sub NoteZoom3()
With ActiveWindow.VisibleRange
NoteChangeSize .Width, .Height, True
End With
End Sub
Private Sub NoteChangeSize(w!, h!, Optional scr As Boolean)
With ActiveCell.Comment.Shape
.Width = w: .Height = h
If scr Then .Top = 0: .Left = 0: .Visible = msoTrue
End With
End Sub
How it works... go to the cell that contains `Note` > Run the macro!
`Note` is adjusted to the size Of the sheet window (we get <Full Screen>).
It's all bad if we for example are somewhere in the column (AB) or line 60. `Note` that opens in <Full Screen> but it is fixed in the top where the cell (A) and I need to scroll up to see.
I would like to be adjusted to the size of the Sheet and opened exactly where the `Note` (that each time not to climb up).