Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Массовое Изменение размера шрифта на кнопках эл. управления - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Массовое Изменение размера шрифта на кнопках эл. управления (Макросы/Sub)
Массовое Изменение размера шрифта на кнопках эл. управления
Exo Дата: Четверг, 12.07.2018, 14:59 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте.
Подскажите, плиз.
На Листе имеется некоторое кол-во кнопок Элементов управления, которое может измениться - добавляются новые, удаляются старые.
Как можно макросом массово изменять размер шрифта на всех кнопках сразу, не прописывая каждый раз изменения в макрос, который это делает.
Пример файла прилагаю.
К сообщению приложен файл: _____.xlsm(44.6 Kb)


А что такое вестибюль?
 
Ответить
СообщениеЗдравствуйте.
Подскажите, плиз.
На Листе имеется некоторое кол-во кнопок Элементов управления, которое может измениться - добавляются новые, удаляются старые.
Как можно макросом массово изменять размер шрифта на всех кнопках сразу, не прописывая каждый раз изменения в макрос, который это делает.
Пример файла прилагаю.

Автор - Exo
Дата добавления - 12.07.2018 в 14:59
_Boroda_ Дата: Четверг, 12.07.2018, 15:29 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 12658
Репутация: 5191 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Sub tt()
    Set c_ = ActiveSheet.Shapes
    For i = 1 To c_.Count
        If Left(c_(i).AlternativeText, 3) = "Кно" Then
            With c_(i).DrawingObject.Font
                .Size = .Size + 1
            End With
        End If
    Next i
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Sub tt()
    Set c_ = ActiveSheet.Shapes
    For i = 1 To c_.Count
        If Left(c_(i).AlternativeText, 3) = "Кно" Then
            With c_(i).DrawingObject.Font
                .Size = .Size + 1
            End With
        End If
    Next i
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 12.07.2018 в 15:29
Exo Дата: Четверг, 12.07.2018, 15:34 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо, так очень хорошо.
а можно через оператор like "*" это как-то сделать, потому что названия кнопок разные?


А что такое вестибюль?
 
Ответить
СообщениеСпасибо, так очень хорошо.
а можно через оператор like "*" это как-то сделать, потому что названия кнопок разные?

Автор - Exo
Дата добавления - 12.07.2018 в 15:34
_Boroda_ Дата: Четверг, 12.07.2018, 15:42 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 12658
Репутация: 5191 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Не нужно. Это я не совсем грамотно написал. Вот так попробуйте
[vba]
Код
Sub Pl()
    Set c_ = ActiveSheet.Shapes
    For i = 1 To c_.Count
        If c_(i).DrawingObject.ShapeRange.Type = 8 Then
            With c_(i).DrawingObject.Font
                .Size = .Size + 1
            End With
        End If
    Next i
End Sub
[/vba]

Все типы здесь https://msdn.microsoft.com/en-us....-office


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеНе нужно. Это я не совсем грамотно написал. Вот так попробуйте
[vba]
Код
Sub Pl()
    Set c_ = ActiveSheet.Shapes
    For i = 1 To c_.Count
        If c_(i).DrawingObject.ShapeRange.Type = 8 Then
            With c_(i).DrawingObject.Font
                .Size = .Size + 1
            End With
        End If
    Next i
End Sub
[/vba]

Все типы здесь https://msdn.microsoft.com/en-us....-office

Автор - _Boroda_
Дата добавления - 12.07.2018 в 15:42
Exo Дата: Четверг, 12.07.2018, 15:45 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Да, сейчас просто супер!
Спасибо огромное!
так как файлом пользуются люди с разными мониторами и не у всех нормально отображается!
Плюс в репутацию!


А что такое вестибюль?
 
Ответить
СообщениеДа, сейчас просто супер!
Спасибо огромное!
так как файлом пользуются люди с разными мониторами и не у всех нормально отображается!
Плюс в репутацию!

Автор - Exo
Дата добавления - 12.07.2018 в 15:45
krosav4ig Дата: Четверг, 12.07.2018, 16:25 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1601
Репутация: 666 ±
Замечаний: 0% ±

Excel 2007,2010,2013
И так тоже можно
[vba]
Код
Dim btn As Button
Sub Уменьшить_размер_шрифта_на_кнопках()
    For Each btn In ActiveSheet.Buttons
        With btn.Font
            .Size = .Size - 1
        End With
    Next
End Sub
Sub Увеличить_размер_шрифта_на_кнопках()
    For Each btn In ActiveSheet.Buttons
        With btn.Font
            .Size = .Size + 1
        End With
    Next
End Sub
[/vba]


(_)Õvõ(_)
 
Ответить
СообщениеИ так тоже можно
[vba]
Код
Dim btn As Button
Sub Уменьшить_размер_шрифта_на_кнопках()
    For Each btn In ActiveSheet.Buttons
        With btn.Font
            .Size = .Size - 1
        End With
    Next
End Sub
Sub Увеличить_размер_шрифта_на_кнопках()
    For Each btn In ActiveSheet.Buttons
        With btn.Font
            .Size = .Size + 1
        End With
    Next
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 12.07.2018 в 16:25
Exo Дата: Четверг, 12.07.2018, 17:00 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
krosav4ig,
Вам тоже большое спасибо!
Интересное и простое решение.
+


А что такое вестибюль?
 
Ответить
Сообщениеkrosav4ig,
Вам тоже большое спасибо!
Интересное и простое решение.
+

Автор - Exo
Дата добавления - 12.07.2018 в 17:00
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Массовое Изменение размера шрифта на кнопках эл. управления (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!