Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.07.2019, 22:17   #1
rediffusion
Пользователь
 
Аватар для rediffusion
 
Регистрация: 30.05.2019
Сообщений: 36
Сообщение `Вставить Примечание` как увеличить/уменьшить без растягивания вручную?

Устал порой тянуть за какой то конец!

Например как сделать во весь Лист "Excel" или установить размер 600px.
Думаю макрос подошёл бы! Например:
1) Наводим на ячейку.
2) Запускаем VBA макрос в котором появляется форма.
3) В форму вводим нужный размер в пикселах.

ещё...
1) Наводим на ячейку.
2) Запускаем VBA макрос.
3) Ну и примечание на весь Лист.

...Выручайте ребят!
rediffusion вне форума Ответить с цитированием
Старый 31.07.2019, 23:01   #2
Igor1961
Пользователь
 
Регистрация: 05.10.2015
Сообщений: 39
По умолчанию

Код:
Sub Примечание()
    Dim lH As Long 'высота
    Dim lW As Long 'ширина
    lH = InputBox("Укажите ВЫСОТУ примечания ")
    lW = InputBox("Укажите Ш И Р И Н У примечания ")
    With Selection
        .AddComment
        .Comment.Text Text:="Примечание:" & Chr(10) & ""
        .Comment.Shape.Height = lH
        .Comment.Shape.Width = lW
    End With
End Sub
Переменные lH и lW можете заменить конкретными значениями (числами), тогда строчки с InputBox нужно будет убрать

Последний раз редактировалось Igor1961; 31.07.2019 в 23:04.
Igor1961 вне форума Ответить с цитированием
Старый 01.08.2019, 00:18   #3
rediffusion
Пользователь
 
Аватар для rediffusion
 
Регистрация: 30.05.2019
Сообщений: 36
По умолчанию

@Igor1961

Нужная вещь!
Дело в том что оно перезаписывает уже имеющееся "Примечание". Мне это не нужно. Нужно чтоб просто менял маштаб уже имеющегося (в котором есть какие то записи)...
rediffusion вне форума Ответить с цитированием
Старый 01.08.2019, 00:34   #4
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

Вы устали тянуть за конец...
а не устанете, когда наехали на ячейку с размером окна примечаний там и так все нормально, но взлетает макрос с вопросами "укажите Высоту", "укажите Ширину", а Вы не знаете какая сейчас ни высота ни ширина, указываете корявые значения, примечания перестают нормально читаться, после нужно указать новые высоту и ширину и с какого-то раза угадать их.
от этого Вы не устанете??? уверены?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 01.08.2019, 08:01   #5
Igor1961
Пользователь
 
Регистрация: 05.10.2015
Сообщений: 39
По умолчанию

Код:
Sub Примечание()
    With Selection
        .Comment.Shape.Height = 350
        .Comment.Shape.Width = 800
    End With
End Sub
Конец будет очень рад, что за него перестали тянуть
Igor1961 вне форума Ответить с цитированием
Старый 01.08.2019, 11:25   #6
rediffusion
Пользователь
 
Аватар для rediffusion
 
Регистрация: 30.05.2019
Сообщений: 36
По умолчанию

@IgorGO
Нацепил на `RightClickMenu` 2 кнопки. Пример:
XML
Код:
<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
Код:
'Добавил control As IRibbonControl - без этого не робит!
Sub NoteZoom_600_400_px(control As IRibbonControl)
On Error Resume Next 'Если нет `Примечания` то пропустить!
    With Selection
        .Comment.Shape.Width = 600
        .Comment.Shape.Height = 400
    End With
End Sub

Sub NoteZoom_200_110_px(control As IRibbonControl)
On Error Resume Next 'Если нет `Примечания` то пропустить!
    With Selection
        .Comment.Shape.Width = 200
        .Comment.Shape.Height = 110
    End With
End Sub
Книгу с примером посмотреть можно тут!

Вот такое интересует в идеале Screencast.

@Igor1961
Благодарю, конец очень рад!

P.S.
InputBox более компактнее если записать так:
Код:
Application.InputBox

Последний раз редактировалось rediffusion; 01.08.2019 в 12:15.
rediffusion вне форума Ответить с цитированием
Старый 01.08.2019, 13:30   #7
rediffusion
Пользователь
 
Аватар для rediffusion
 
Регистрация: 30.05.2019
Сообщений: 36
По умолчанию

Вот ещё решение (по моему по интереснее):

Код:
Private Sub NoteZoom_600_400_px(control As IRibbonControl)
'Ниже 2 строчки для проверки наличия `Примечания`.
    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
··································· ··································· ··································· ··································· ··································· ·············
Спасибо за это юзеру с другова форума - pashulka
rediffusion вне форума Ответить с цитированием
Старый 03.08.2019, 09:42   #8
rediffusion
Пользователь
 
Аватар для rediffusion
 
Регистрация: 30.05.2019
Сообщений: 36
По умолчанию

Кароче кому интересно обсуждение данного вопроса то оно тут (много фишек, трюков и полезностей).
rediffusion вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Увеличить-уменьшить ячейку с рисунком Excel 2003 vfv Microsoft Office Excel 12 06.04.2016 11:35
С++. как увеличить/уменьшить число на % linberg Помощь студентам 1 15.12.2013 16:52
Увеличить или уменьшить вероятность RND jone Общие вопросы Delphi 16 04.04.2013 20:23
стрелки увеличить уменьшить число в ячейке AKolotushkin Microsoft Office Excel 3 11.06.2010 16:19