Results 1 to 9 of 9

Thread: `Insert Note` how to zoom in/out without manually stretching?
Thanks Thanks: 0 Likes Likes: 0

  1. #1
    Board Regular rediffusion's Avatar
    Join Date
    Apr 2019
    Posts
    60
    Post Thanks / Like
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

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

    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!

  2. #2
    Board Regular rediffusion's Avatar
    Join Date
    Apr 2019
    Posts
    60
    Post Thanks / Like
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

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

    I find some solution for this!

    XML
    Code:
    <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" />

    VBA
    Code:
    '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




  3. #3
    Board Regular rediffusion's Avatar
    Join Date
    Apr 2019
    Posts
    60
    Post Thanks / Like
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

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

    VBA
    Code:Sub NoteZoom_600_400_px(control As IRibbonControl)
    On Error Resume Next 'If there is no `notes` then skip!


    Example book here.

  4. #4
    Board Regular
    Join Date
    Mar 2015
    Posts
    3,907
    Post Thanks / Like
    Mentioned
    72 Post(s)
    Tagged
    7 Thread(s)

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

    thanks for posting your solution

  5. #5
    Board Regular rediffusion's Avatar
    Join Date
    Apr 2019
    Posts
    60
    Post Thanks / Like
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

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

    @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

  6. #6
    Board Regular rediffusion's Avatar
    Join Date
    Apr 2019
    Posts
    60
    Post Thanks / Like
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

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

    @Yongle

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

    First of all i want to tell how code works ��:

    1. Insert Note.
    2. Click on Cell who has inserted Note.
    3. Press Ctrl+N
      Then you will see PopUp-Menu.



    You can download Excel Workbook!

  7. #7
    Board Regular rediffusion's Avatar
    Join Date
    Apr 2019
    Posts
    60
    Post Thanks / Like
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

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

    Updated some information in the file and changed the link to it.
    **GOOD LINK TO DOWNLOAD FILE IS HERE**

  8. #8
    Board Regular
    Join Date
    Mar 2015
    Posts
    3,907
    Post Thanks / Like
    Mentioned
    72 Post(s)
    Tagged
    7 Thread(s)

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

    Looks good!

  9. #9
    Board Regular rediffusion's Avatar
    Join Date
    Apr 2019
    Posts
    60
    Post Thanks / Like
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

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

    @Yongle

    Not so long ago I created a separate subject for adding `SubMenu`. If you are interested in this `SubMenu` the solution is found!
    Last edited by rediffusion; Aug 5th, 2019 at 05:13 PM.

Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •