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

Вход

Регистрация

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

 

= Мир MS Excel/Процентная заливка фигуры - Мир MS Excel

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

Excel 2013
Нужно рисунком отобразить ход завершения работ. Есть фигура которою нужно заливать только на % , который будет указан в ячейке. Я думаю можно на рисунок назначить макрос который будет менять градиентную заливку фигуры(смотреть файл).
К сообщению приложен файл: _Microsoft_Exce.xlsx(10.1 Kb)


Сообщение отредактировал Donald - Вторник, 13.03.2018, 10:52
 
Ответить
СообщениеНужно рисунком отобразить ход завершения работ. Есть фигура которою нужно заливать только на % , который будет указан в ячейке. Я думаю можно на рисунок назначить макрос который будет менять градиентную заливку фигуры(смотреть файл).

Автор - Donald
Дата добавления - 12.03.2018 в 15:27
sboy Дата: Понедельник, 12.03.2018, 16:04 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2224
Репутация: 631 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Если правильно понял суть, в модуль листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$14" Then
        Shapes(1).Fill.GradientStops(1).Position = 1 - Target.Value
    End If
End Sub
[/vba]
К сообщению приложен файл: _Microsoft_Exce.xlsm(15.3 Kb)
 
Ответить
СообщениеДобрый день.
Если правильно понял суть, в модуль листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$14" Then
        Shapes(1).Fill.GradientStops(1).Position = 1 - Target.Value
    End If
End Sub
[/vba]

Автор - sboy
Дата добавления - 12.03.2018 в 16:04
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Процентная заливка фигуры (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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