`Insert Note` how to zoom in/out without manually stretching?

[rediffusion]

Tired sometimes to pull some kind of end!

How to make the whole Sheet "Excel" or set the size of 600px.
I think the macro might be good! For example:
1) Point at the Cell.
2) Run the VBA macro in which the form appears.
3) In the form enter the desired size in pixels.


another...
1) Point at the cell.
2) Run VBA macro.
3) Nu and note on the entire Leaf.


...Help me out guys!

 

[rediffusion]

I find some solution for this!

“XML”
Code:
<code class="hljs xml" style="font-variant-numeric: normal; font-variant-east-asian: normal; font-stretch: normal; font-size: 12px; line-height: normal; display: block; color: rgb(17, 17, 17); background: rgb(235, 231, 222); overflow: auto; padding: 6px; width: 1000px;"><button id="Insert_Note1" label="Note-Zoom 600-400 px" image="NoteZoom1" onAction="NoteZoom_600_400_px" />
<button id="Insert_Note2" label="Note-Zoom 220-110 px" image="NoteZoom2" onAction="NoteZoom_200_110_px" /></code>
“VBA”
Code:
<code class="hljs vbnet" style="font-variant-numeric: normal; font-variant-east-asian: normal; font-stretch: normal; font-size: 12px; line-height: normal; display: block; color: rgb(17, 17, 17); background: rgb(235, 231, 222); overflow: auto; padding: 6px; width: 1000px;">'Added - "control As IRibbonControl" without it does not work!
Sub NoteZoom_600_400_px(control As IRibbonControl)
With Selection
.Comment.Shape.Width = 600
.Comment.Shape.Height = 400
End With
End Sub

Sub NoteZoom_200_110_px(control As IRibbonControl)
With Selection
.Comment.Shape.Width = 200
.Comment.Shape.Height = 110
End With
End Sub</code>

 

[rediffusion]

“VBA”
Code:<code class="hljs vbnet" style="font-variant-numeric: normal; font-variant-east-asian: normal; font-stretch: normal; font-size: 12px; line-height: normal; display: block; color: rgb(17, 17, 17); background: rgb(235, 231, 222); overflow: auto; padding: 6px; width: 1000px;">Sub NoteZoom_600_400_px(control As IRibbonControl)
On Error Resume Next 'If there is no `notes` then skip!

</code>
[FONT=&quot]Example book here.[/FONT]

 

[Yongle]

thanks for posting your solution

 

[rediffusion]

@Yongle

Find one more solution (i think it is more usable):

Private Sub Test2()
'Below are 2 lines to check for `notes` if it exist in a Cell.
If ActiveCell Is Nothing Then Exit Sub
If ActiveCell.Comment Is Nothing Then Exit Sub
With ActiveCell.Comment.Shape
.Width = 600
.Height = 400
End With
End Sub

 

[rediffusion]

@Yongle

I little bit mpdernize my "Menu". It's looks now very pretty.

First of all i want to tell how <code style="margin: 0px; padding: 1px 5px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; font-size: 13px; vertical-align: baseline; box-sizing: inherit; background-color: rgb(239, 240, 241); white-space: pre-wrap;">code</code> works &#55357;&#56481;:

1. Insert <code style="margin: 0px; padding: 1px 5px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; font-size: 13px; vertical-align: baseline; box-sizing: inherit; background-color: rgb(239, 240, 241); white-space: pre-wrap;">Note</code>.
2. Click on Cell who has inserted <code style="margin: 0px; padding: 1px 5px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; font-size: 13px; vertical-align: baseline; box-sizing: inherit; background-color: rgb(239, 240, 241); white-space: pre-wrap;">Note</code>.
3. Press <kbd style="margin: 0px 0.1em; padding: 0.1em 0.6em; border: 1px solid rgb(173, 179, 185); font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: 1.4; font-family: Arial, "Helvetica Neue", Helvetica, sans-serif; font-size: 11px; vertical-align: baseline; box-sizing: inherit; display: inline-block; text-shadow: rgb(255, 255, 255) 0px 1px 0px; background-color: rgb(225, 227, 229); border-radius: 3px; box-shadow: rgba(12, 13, 14, 0.2) 0px 1px 0px, rgb(255, 255, 255) 0px 0px 0px 2px inset; white-space: nowrap;">Ctrl</kbd>+<kbd style="margin: 0px 0.1em; padding: 0.1em 0.6em; border: 1px solid rgb(173, 179, 185); font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: 1.4; font-family: Arial, "Helvetica Neue", Helvetica, sans-serif; font-size: 11px; vertical-align: baseline; box-sizing: inherit; display: inline-block; text-shadow: rgb(255, 255, 255) 0px 1px 0px; background-color: rgb(225, 227, 229); border-radius: 3px; box-shadow: rgba(12, 13, 14, 0.2) 0px 1px 0px, rgb(255, 255, 255) 0px 0px 0px 2px inset; white-space: nowrap;">N</kbd>
   Then you will see <code style="margin: 0px; padding: 1px 5px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; font-size: 13px; vertical-align: baseline; box-sizing: inherit; background-color: rgb(239, 240, 241); white-space: pre-wrap;">PopUp-Menu</code>.

You can download Excel Workbook!

 

[rediffusion]

Updated some information in the file and changed the link to it.

**GOOD LINK TO DOWNLOAD FILE IS HERE**

 

[Yongle]

Looks good!

 

[rediffusion]

@Yongle

Not so long ago I created a separate subject for adding `SubMenu`. If you are interested in this `SubMenu` the solution is found!