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

Вход

Регистрация

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

 

= Мир MS Excel/Как заставить прямоугольник вписать внутрь себя - площадь - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как заставить прямоугольник вписать внутрь себя - площадь (Макросы/Sub)
Как заставить прямоугольник вписать внутрь себя - площадь
DimOzerov Дата: Понедельник, 13.11.2017, 05:55 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброе утро, мастера экселя.
Помогите с решением.

На листе есть автофигуры квадраты.
Как заставить всех их - вписывать внутрь себя - свою площадь (перемножение своей ширины и высоты) ?

То есть - если растянуть прямоугольник растягиваю этот квадрат и нажать на кнопку макроса - то цифра, внутри квадрата меняется - поскольку площадь (произведение ширины на высоту) изменилась.
К сообщению приложен файл: 37945.xls (35.0 Kb)
 
Ответить
СообщениеДоброе утро, мастера экселя.
Помогите с решением.

На листе есть автофигуры квадраты.
Как заставить всех их - вписывать внутрь себя - свою площадь (перемножение своей ширины и высоты) ?

То есть - если растянуть прямоугольник растягиваю этот квадрат и нажать на кнопку макроса - то цифра, внутри квадрата меняется - поскольку площадь (произведение ширины на высоту) изменилась.

Автор - DimOzerov
Дата добавления - 13.11.2017 в 05:55
miver Дата: Понедельник, 13.11.2017, 09:20 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 190
Репутация: 37 ±
Замечаний: 0% ±

Excel 2010
Пример выполнения
[vba]
Код
Sub SetSquare()
    Dim sh As Shape
    For Each sh In Лист3.Shapes
        If sh.Name Like "Rectangle*" Then
            sh.TextFrame2.TextRange.Characters.Text = sh.Width * sh.Height
        End If
    Next sh
End Sub
[/vba]
К сообщению приложен файл: 2995902.xls (42.5 Kb)


Сообщение отредактировал miver - Понедельник, 13.11.2017, 09:22
 
Ответить
СообщениеПример выполнения
[vba]
Код
Sub SetSquare()
    Dim sh As Shape
    For Each sh In Лист3.Shapes
        If sh.Name Like "Rectangle*" Then
            sh.TextFrame2.TextRange.Characters.Text = sh.Width * sh.Height
        End If
    Next sh
End Sub
[/vba]

Автор - miver
Дата добавления - 13.11.2017 в 09:20
DimOzerov Дата: Понедельник, 13.11.2017, 22:34 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
miver, спасибо - все работает.
 
Ответить
Сообщениеmiver, спасибо - все работает.

Автор - DimOzerov
Дата добавления - 13.11.2017 в 22:34
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как заставить прямоугольник вписать внутрь себя - площадь (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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