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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Массовое Изменение размера шрифта на кнопках эл. управления (Макросы/Sub)

Exo

Дата: Четверг, 12.07.2018, 14:59 | Сообщение № 1

Группа: Заблокированные

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

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

К сообщению приложен файл: _____.xlsm (44.6 Kb)

А что такое вестибюль?
А что такое широкополосный интернет?

Ответить

_Boroda_

Дата: Четверг, 12.07.2018, 15:29 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 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

Ответить

Exo

Дата: Четверг, 12.07.2018, 15:34 | Сообщение № 3

Группа: Заблокированные

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

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

А что такое вестибюль?
А что такое широкополосный интернет?

Ответить

_Boroda_

Дата: Четверг, 12.07.2018, 15:42 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 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

Ответить

Exo

Дата: Четверг, 12.07.2018, 15:45 | Сообщение № 5

Группа: Заблокированные

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

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

А что такое вестибюль?
А что такое широкополосный интернет?

Ответить

krosav4ig

Дата: Четверг, 12.07.2018, 16:25 | Сообщение № 6

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 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]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Exo

Дата: Четверг, 12.07.2018, 17:00 | Сообщение № 7

Группа: Заблокированные

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

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

А что такое вестибюль?
А что такое широкополосный интернет?

Ответить

Страница 1 из 1
1